2 * This file has no copyright assigned and is placed in the Public Domain.
3 * This file is part of the w64 mingw-runtime package.
4 * No warranty is given; refer to the file DISCLAIMER within this package.
9 * This file is part of the Mingw32 package.
12 * Created by Danny Smith <dannysmith@users.sourceforge.net>
14 * THIS SOFTWARE IS NOT COPYRIGHTED
16 * This source code is offered for use in the public domain. You may
17 * use, modify or distribute it freely.
19 * This code is distributed in the hope that it will be useful but
20 * WITHOUT ANY WARRANTY. ALL WARRANTIES, EXPRESS OR IMPLIED ARE HEREBY
21 * DISCLAIMED. This includes but is not limited to warranties of
22 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
31 #if (defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L) \
32 || !defined __STRICT_ANSI__
34 /* These macros are specified by C99 standard */
37 #define complex _Complex
40 #define _Complex_I (0.0F + 1.0iF)
42 /* GCC doesn't support _Imaginary type yet, so we don't
43 define _Imaginary_I */
53 double creal (double _Complex
);
54 double cimag (double _Complex
);
55 double carg (double _Complex
);
56 double cabs (double _Complex
);
57 double _Complex
conj (double _Complex
);
58 double _Complex
cacos (double _Complex
);
59 double _Complex
casin (double _Complex
);
60 double _Complex
catan (double _Complex
);
61 double _Complex
ccos (double _Complex
);
62 double _Complex
csin (double _Complex
);
63 double _Complex
ctan (double _Complex
);
64 double _Complex
cacosh (double _Complex
);
65 double _Complex
casinh (double _Complex
);
66 double _Complex
catanh (double _Complex
);
67 double _Complex
ccosh (double _Complex
);
68 double _Complex
csinh (double _Complex
);
69 double _Complex
ctanh (double _Complex
);
70 double _Complex
cexp (double _Complex
);
71 double _Complex
clog (double _Complex
);
72 double _Complex
cpow (double _Complex
, double _Complex
);
73 double _Complex
csqrt (double _Complex
);
74 double _Complex
cproj (double _Complex
);
76 float crealf (float _Complex
);
77 float cimagf (float _Complex
);
78 float cargf (float _Complex
);
79 float cabsf (float _Complex
);
80 float _Complex
conjf (float _Complex
);
81 float _Complex
cacosf (float _Complex
);
82 float _Complex
casinf (float _Complex
);
83 float _Complex
catanf (float _Complex
);
84 float _Complex
ccosf (float _Complex
);
85 float _Complex
csinf (float _Complex
);
86 float _Complex
ctanf (float _Complex
);
87 float _Complex
cacoshf (float _Complex
);
88 float _Complex
casinhf (float _Complex
);
89 float _Complex
catanhf (float _Complex
);
90 float _Complex
ccoshf (float _Complex
);
91 float _Complex
csinhf (float _Complex
);
92 float _Complex
ctanhf (float _Complex
);
93 float _Complex
cexpf (float _Complex
);
94 float _Complex
clogf (float _Complex
);
95 float _Complex
cpowf (float _Complex
, float _Complex
);
96 float _Complex
csqrtf (float _Complex
);
97 float _Complex
cprojf (float _Complex
);
99 long double creall (long double _Complex
);
100 long double cimagl (long double _Complex
);
101 long double cargl (long double _Complex
);
102 long double cabsl (long double _Complex
);
103 long double _Complex
conjl (long double _Complex
);
104 long double _Complex
cacosl (long double _Complex
);
105 long double _Complex
casinl (long double _Complex
);
106 long double _Complex
catanl (long double _Complex
);
107 long double _Complex
ccosl (long double _Complex
);
108 long double _Complex
csinl (long double _Complex
);
109 long double _Complex
ctanl (long double _Complex
);
110 long double _Complex
cacoshl (long double _Complex
);
111 long double _Complex
casinhl (long double _Complex
);
112 long double _Complex
catanhl (long double _Complex
);
113 long double _Complex
ccoshl (long double _Complex
);
114 long double _Complex
csinhl (long double _Complex
);
115 long double _Complex
ctanhl (long double _Complex
);
116 long double _Complex
cexpl (long double _Complex
);
117 long double _Complex
clogl (long double _Complex
);
118 long double _Complex
cpowl (long double _Complex
, long double _Complex
);
119 long double _Complex
csqrtl (long double _Complex
);
120 long double _Complex
cprojl (long double _Complex
);
125 __CRT_INLINE
double creal (double _Complex _Z
)
130 __CRT_INLINE
double cimag (double _Complex _Z
)
135 __CRT_INLINE
double _Complex
conj (double _Complex _Z
)
137 return __extension__
~_Z
;
140 __CRT_INLINE
double carg (double _Complex _Z
)
144 : "=t" (res
) : "0" (__real__ _Z
), "u" (__imag__ _Z
) : "st(1)");
150 __CRT_INLINE
float crealf (float _Complex _Z
)
155 __CRT_INLINE
float cimagf (float _Complex _Z
)
160 __CRT_INLINE
float _Complex
conjf (float _Complex _Z
)
162 return __extension__
~_Z
;
165 __CRT_INLINE
float cargf (float _Complex _Z
)
169 : "=t" (res
) : "0" (__real__ _Z
), "u" (__imag__ _Z
) : "st(1)");
174 __CRT_INLINE
long double creall (long double _Complex _Z
)
179 __CRT_INLINE
long double cimagl (long double _Complex _Z
)
184 __CRT_INLINE
long double _Complex
conjl (long double _Complex _Z
)
186 return __extension__
~_Z
;
189 __CRT_INLINE
long double cargl (long double _Complex _Z
)
193 : "=t" (res
) : "0" (__real__ _Z
), "u" (__imag__ _Z
) : "st(1)");
197 #endif /* __GNUC__ */
200 #endif /* RC_INVOKED */
206 #endif /* __STDC_VERSION__ >= 199901L */
209 #endif /* _COMPLEX_H */