[MinGW-cvs] runtime/mingwex/complex carg.c,NONE,1.1

[Earnie B. <ea...@us...>]

Update of /cvsroot/mingw/runtime/mingwex/complex
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24538/mingwex/complex

Added Files:
	carg.c 
Log Message:
Merge winsup changes

--- NEW FILE: carg.c ---
#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;
}