1 extern int inside_main; 2 extern void abort (void); 3 #ifdef __OPTIMIZE__ 4 #define ABORT_INSIDE_MAIN do { if (inside_main) abort (); } while (0) 5 #else 6 #define ABORT_INSIDE_MAIN do { } while (0) 7 #endif 8 9 static float _Complex conjf(float _Complex z)10conjf (float _Complex z) 11 { 12 ABORT_INSIDE_MAIN; 13 return ~z; 14 } 15 16 static double _Complex conj(double _Complex z)17conj (double _Complex z) 18 { 19 ABORT_INSIDE_MAIN; 20 return ~z; 21 } 22 23 static long double _Complex conjl(long double _Complex z)24conjl (long double _Complex z) 25 { 26 ABORT_INSIDE_MAIN; 27 return ~z; 28 } 29 30 static float crealf(float _Complex z)31crealf (float _Complex z) 32 { 33 ABORT_INSIDE_MAIN; 34 return __real__ z; 35 } 36 37 static double creal(double _Complex z)38creal (double _Complex z) 39 { 40 ABORT_INSIDE_MAIN; 41 return __real__ z; 42 } 43 44 static long double creall(long double _Complex z)45creall (long double _Complex z) 46 { 47 ABORT_INSIDE_MAIN; 48 return __real__ z; 49 } 50 51 static float cimagf(float _Complex z)52cimagf (float _Complex z) 53 { 54 ABORT_INSIDE_MAIN; 55 return __imag__ z; 56 } 57 58 static double cimag(double _Complex z)59cimag (double _Complex z) 60 { 61 ABORT_INSIDE_MAIN; 62 return __imag__ z; 63 } 64 65 static long double cimagl(long double _Complex z)66cimagl (long double _Complex z) 67 { 68 ABORT_INSIDE_MAIN; 69 return __imag__ z; 70 } 71