xref: /netbsd-src/lib/libm/compat/compat_cabsf.c (revision 6c9a28baebd9820bb9d0c8cd3c72ead5845cfe02)
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)257161d089Sdrochner cabsf(struct complex z)
267161d089Sdrochner {
277161d089Sdrochner 
287161d089Sdrochner 	return hypotf(z.x, z.y);
297161d089Sdrochner }
30