diff options
| author | Jakob Kaivo <jkk@ung.org> | 2019-03-03 21:16:07 -0500 |
|---|---|---|
| committer | Jakob Kaivo <jkk@ung.org> | 2019-03-03 21:16:07 -0500 |
| commit | 7de5c55472611fe8ee33f4254f640c7097003748 (patch) | |
| tree | 42d4eae5f89b8e9cb10660dec1122fb760bcf4e7 /src/complex/CMPLX.c | |
| parent | d767dff01337517e61deaf6da9f51158a3e4ffc5 (diff) | |
add macros from C11/C18 as they make implementation *much* cleaner
Diffstat (limited to 'src/complex/CMPLX.c')
| -rw-r--r-- | src/complex/CMPLX.c | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/complex/CMPLX.c b/src/complex/CMPLX.c new file mode 100644 index 00000000..d0ffdedf --- /dev/null +++ b/src/complex/CMPLX.c @@ -0,0 +1,16 @@ +#include <complex.h> + +#ifdef __STDC_IEC_559_COMPLEX__ +#define CMPLX(__x, __y) \ + ((double complex)((double)(__x) + _Imaginary_I * (double)(__y))) +#else +#define CMPLX(__x, __y) \ + (((union { \ + double complex __c; \ + double __d[2]; \ + }){ .__d = { __x, __y } }).__c) +#endif + +/* +STDC(201112) +*/ |