17161d089Sdrochner /* 27161d089Sdrochner * cabsf() wrapper for hypotf(). 37161d089Sdrochner * 47161d089Sdrochner * Written by J.T. Conklin, <jtc@wimsey.com> 57161d089Sdrochner * Placed into the Public Domain, 1994. 67161d089Sdrochner */ 77161d089Sdrochner 87161d089Sdrochner #include <sys/cdefs.h> 97161d089Sdrochner #if defined(LIBM_SCCS) && !defined(lint) 10*6c9a28baSmaya __RCSID("$NetBSD: compat_cabsf.c,v 1.3 2017/05/13 02:58:03 maya Exp $"); 117161d089Sdrochner #endif 127161d089Sdrochner 13b36bcf93Sdrochner #include "../src/namespace.h" 147161d089Sdrochner #include <math.h> 157161d089Sdrochner 167161d089Sdrochner struct complex { 177161d089Sdrochner float x; 187161d089Sdrochner float y; 197161d089Sdrochner }; 207161d089Sdrochner 217161d089Sdrochner float cabsf __P((struct complex)); 22*6c9a28baSmaya __warn_references(cabsf, "warning: reference to compatibility cabsf()") 237161d089Sdrochner 247161d089Sdrochner float cabsf(struct complex z)257161d089Sdrochnercabsf(struct complex z) 267161d089Sdrochner { 277161d089Sdrochner 287161d089Sdrochner return hypotf(z.x, z.y); 297161d089Sdrochner } 30