lib/libm/compat/compat_cabsf.c

   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 #include <sys/cdefs.h>
   9 #if defined(LIBM_SCCS) && !defined(lint)
  10 __RCSID("$NetBSD: compat_cabsf.c,v 1.1 2007/02/22 22:08:19 drochner 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 }