nsz Git - libm/blob - src/cmath/cproj.c

   1 #include "libm.h"
   2
   3 double complex cproj(double complex z)
   4 {
   5         union dcomplex u = {z};
   6
   7         if (isinf(u.a[0]) || isinf(u.a[1]))
   8                 return cpack(INFINITY, copysign(0.0, u.a[1]));
   9         return z;
  10 }