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)10 conjf (float _Complex z)
11 {
12   ABORT_INSIDE_MAIN;
13   return ~z;
14 }
15 
16 static double _Complex
conj(double _Complex z)17 conj (double _Complex z)
18 {
19   ABORT_INSIDE_MAIN;
20   return ~z;
21 }
22 
23 static long double _Complex
conjl(long double _Complex z)24 conjl (long double _Complex z)
25 {
26   ABORT_INSIDE_MAIN;
27   return ~z;
28 }
29 
30 static float
crealf(float _Complex z)31 crealf (float _Complex z)
32 {
33   ABORT_INSIDE_MAIN;
34   return __real__ z;
35 }
36 
37 static double
creal(double _Complex z)38 creal (double _Complex z)
39 {
40   ABORT_INSIDE_MAIN;
41   return __real__ z;
42 }
43 
44 static long double
creall(long double _Complex z)45 creall (long double _Complex z)
46 {
47   ABORT_INSIDE_MAIN;
48   return __real__ z;
49 }
50 
51 static float
cimagf(float _Complex z)52 cimagf (float _Complex z)
53 {
54   ABORT_INSIDE_MAIN;
55   return __imag__ z;
56 }
57 
58 static double
cimag(double _Complex z)59 cimag (double _Complex z)
60 {
61   ABORT_INSIDE_MAIN;
62   return __imag__ z;
63 }
64 
65 static long double
cimagl(long double _Complex z)66 cimagl (long double _Complex z)
67 {
68   ABORT_INSIDE_MAIN;
69   return __imag__ z;
70 }
71