simplify creal and cimag macros

This commit is contained in:
Rich Felker 2012-03-22 20:00:58 -04:00
parent 13e400b355
commit 494ba80e9a
1 changed files with 8 additions and 8 deletions

View File

@ -97,16 +97,16 @@ double creal(double complex);
float crealf(float complex); float crealf(float complex);
long double creall(long double complex); long double creall(long double complex);
#define __CREALIMAG(x, t, i) \ #define __CIMAG(x, t) \
((union { _Complex t __z; t __xy[2]; }){(_Complex t)(x)}.__xy[i]) ((union { _Complex t __z; t __xy[2]; }){(_Complex t)(x)}.__xy[1])
#define creal(x) __CREALIMAG(x, double, 0) #define creal(x) ((double)(x))
#define crealf(x) __CREALIMAG(x, float, 0) #define crealf(x) ((float)(x))
#define creall(x) __CREALIMAG(x, long double, 0) #define creall(x) ((long double)(x))
#define cimag(x) __CREALIMAG(x, double, 1) #define cimag(x) __CIMAG(x, double)
#define cimagf(x) __CREALIMAG(x, float, 1) #define cimagf(x) __CIMAG(x, float)
#define cimagl(x) __CREALIMAG(x, long double, 1) #define cimagl(x) __CIMAG(x, long double)
#ifdef __cplusplus #ifdef __cplusplus
} }