* mingwex/Makefile.in: Really add carg.o to libmingwex.a.
+2004-07-15 Danny Smith <dannysmith@users.sourceforge.net>
+
+ * mingwex/complex/cargs.c: New file.
+ * mingwex/Makefile.in: Really add carg.o to libmingwex.a.
+
2004-07-15 Corinna Vinschen <corinna@vinschen.de>
* Makefile.in (INCLUDES): Temporarily revert previous change.
vfscanf.c vfwscanf.c vscanf.c vsscanf.c vswscanf.c vwscanf.c
COMPLEX_DISTFILES = \
- cabs.c cacos.c cacosh.c casin.c casinh.c carg.c catan.c catanh.c \
+ cabs.c cacos.c cacosh.c carg.c casin.c casinh.c catan.c catanh.c \
ccos.c ccosh.c cexp.c cimag.c clog.c cpow.c cproj.c creal.c \
csin.c csinh.c csqrt.c ctan.c ctanh.c
REPLACE_OBJS = \
mingw-fseek.o
COMPLEX_OBJS = \
- cabs.o cacos.o cacosh.o casin.o casinh.o catan.o catanh.o \
+ cabs.o cacos.o cacosh.o carg.o casin.o casinh.o catan.o catanh.o \
ccos.o ccosh.o cexp.o cimag.o clog.o cpow.o cproj.o creal.o \
csin.o csinh.o csqrt.o ctan.o ctanh.o
--- /dev/null
+#include <complex.h>
+double __attribute__ ((const)) carg (double _Complex _Z)
+{
+ double res;
+ __asm__ ("fpatan;"
+ : "=t" (res) : "0" (__real__ _Z), "u" (__imag__ _Z) : "st(1)");
+ return res;
+}
+