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.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 cabsf(struct complex z)25cabsf(struct complex z) 26 { 27 28 return hypotf(z.x, z.y); 29 } 30