vx32

Local 9vx git repository for patches.
git clone git://r-36.net/vx32
Log | Files | Refs

w_cabsf.c (412B)

      1 /*
      2  * cabsf() wrapper for hypotf().
      3  *
      4  * Written by J.T. Conklin, <jtc@wimsey.com>
      5  * Placed into the Public Domain, 1994.
      6  */
      7 
      8 #ifndef lint
      9 static const char rcsid[] =
     10   "$FreeBSD: src/lib/msun/src/w_cabsf.c,v 1.3 2001/06/13 15:16:30 ru Exp $";
     11 #endif /* not lint */
     12 
     13 #include <complex.h>
     14 #include <math.h>
     15 #include "math_private.h"
     16 
     17 float
     18 cabsf(z)
     19 	float complex z;
     20 {
     21 
     22 	return hypotf(crealf(z), cimagf(z));
     23 }