Changeset 144e032a in sasview for src/sas/sascalc/calculator/c_extensions/librefl.h

Timestamp:

Nov 14, 2017 8:57:07 AM (6 years ago)

Author:

Paul Kienzle <pkienzle@…>

Branches:

master, magnetic_scatt, release-4.2.2, ticket-1009, ticket-1094-headless, ticket-1242-2d-resolution, ticket-1243, ticket-1249, ticket885, unittest-saveload

Children:

f0ce6e2

Parents:

a57ae07

Message:

tinycc doesn't return structures, so must pass return structure as pointer

File:

• src/sas/sascalc/calculator/c_extensions/librefl.h (modified) (1 diff)

src/sas/sascalc/calculator/c_extensions/librefl.h

@@ -5 +5 @@
         double re;
         double im;
-} complex;
+} Cplx;
 
 typedef struct {
-        complex a;
-        complex b;
-        complex c;
-        complex d;
+        Cplx a;
+        Cplx b;
+        Cplx c;
+        Cplx d;
 } matrix;
 
-complex cassign(double real, double imag);
+void cassign(Cplx*, double real, double imag);
 
-complex cplx_add(complex x,complex y);
+void cplx_add(Cplx*, Cplx x,Cplx y);
 
-complex rcmult(double x,complex y);
+void rcmult(Cplx*, double x,Cplx y);
 
-complex cplx_sub(complex x,complex y);
+void cplx_sub(Cplx*, Cplx x,Cplx y);
 
-complex cplx_mult(complex x,complex y);
+void cplx_mult(Cplx*, Cplx x,Cplx y);
 
-complex cplx_div(complex x,complex y);
+void cplx_div(Cplx*, Cplx x,Cplx y);
 
-complex cplx_exp(complex b);
+void cplx_exp(Cplx*, Cplx b);
 
-complex cplx_sqrt(complex z);
+void cplx_sqrt(Cplx*, Cplx z);
 
-complex cplx_cos(complex b);
+void cplx_cos(Cplx*, Cplx b);
 
 double intersldfunc(int fun_type, double n_sub, double i, double nu, double sld_l, double sld_r);