* mingwex/complex/cargs.c: New file.

* mingwex/Makefile.in: Really add carg.o to libmingwex.a.
2004-07-15 11:35:13 +00:00
parent a062ed9840
commit e651690002
3 changed files with 16 additions and 2 deletions
--- a/winsup/mingw/mingwex/complex/carg.c
+++ b/winsup/mingw/mingwex/complex/carg.c
@@ -0,0 +1,9 @@
+#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;
+}
+