From: Ulrich Drepper Date: Wed, 19 Nov 1997 23:44:23 +0000 (+0000) Subject: Define __cabs_complex locally and switch to ISO C form. X-Git-Tag: cvs/glibc-2_0_6-pre2~16 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=816ce03a338d7a3127d707bc7da2887158b5794d;p=thirdparty%2Fglibc.git Define __cabs_complex locally and switch to ISO C form. --- diff --git a/sysdeps/libm-ieee754/w_cabs.c b/sysdeps/libm-ieee754/w_cabs.c index bf62f22be35..5313cba4666 100644 --- a/sysdeps/libm-ieee754/w_cabs.c +++ b/sysdeps/libm-ieee754/w_cabs.c @@ -7,9 +7,13 @@ #include +struct __cabs_complex +{ + double x, y; +}; + double -__cabs(z) - struct __cabs_complex z; +__cabs (struct __cabs_complex z) { return __hypot(z.x, z.y); } @@ -17,8 +21,7 @@ weak_alias (__cabs, cabs) #ifdef NO_LONG_DOUBLE double -__cabsl(z) - struct __cabs_complexl z; +__cabsl (struct __cabs_complexl z) { return __hypotl(z.x, z.y); } diff --git a/sysdeps/libm-ieee754/w_cabsf.c b/sysdeps/libm-ieee754/w_cabsf.c index 20ff5b77441..6b6dd8d1315 100644 --- a/sysdeps/libm-ieee754/w_cabsf.c +++ b/sysdeps/libm-ieee754/w_cabsf.c @@ -1,6 +1,6 @@ /* * cabsf() wrapper for hypotf(). - * + * * Written by J.T. Conklin, * Placed into the Public Domain, 1994. */ @@ -8,9 +8,13 @@ #include "math.h" #include "math_private.h" +struct __cabs_complexf +{ + float x, y; +}; + float -__cabsf(z) - struct __cabs_complexf z; +__cabsf (struct __cabs_complexf z) { return __hypotf(z.x, z.y); } diff --git a/sysdeps/libm-ieee754/w_cabsl.c b/sysdeps/libm-ieee754/w_cabsl.c index 21ef860a95e..f4ae170e53f 100644 --- a/sysdeps/libm-ieee754/w_cabsl.c +++ b/sysdeps/libm-ieee754/w_cabsl.c @@ -9,9 +9,13 @@ #include +struct __cabs_complexl +{ + long double x, y; +}; + long double -__cabsl(z) - struct __cabs_complexl z; +__cabsl (struct __cabs_complexl z) { return __hypotl(z.x, z.y); }