Home | History | Annotate | Line # | Download | only in compat 
      1 /*
      2  * cabsf() wrapper for hypotf().
      3  *
      4  * Written by J.T. Conklin, <jtc (at) wimsey.com>
      5  * Placed into the Public Domain, 1994.
      6  */
      7 
      8 #include <sys/cdefs.h>
      9 #if defined(LIBM_SCCS) && !defined(lint)
     10 __RCSID("$NetBSD: compat_cabsf.c,v 1.3 2017/05/13 02:58:03 maya Exp $");
     11 #endif
     12 
     13 #include "../src/namespace.h"
     14 #include <math.h>
     15 
     16 struct complex {
     17 	float x;
     18 	float y;
     19 };
     20 
     21 float cabsf __P((struct complex));
     22 __warn_references(cabsf, "warning: reference to compatibility cabsf()")
     23 
     24 float
     25 cabsf(struct complex z)
     26 {
     27 
     28 	return hypotf(z.x, z.y);
     29 }
     30