Update.
[glibc.git] / sysdeps / libm-ieee754 / s_fabs.c
blob1abe9432a3a8a88b5c7c31d68e0565ecd4df8910
1 /* @(#)s_fabs.c 5.1 93/09/24 */
2 /*
3 * ====================================================
4 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
6 * Developed at SunPro, a Sun Microsystems, Inc. business.
7 * Permission to use, copy, modify, and distribute this
8 * software is freely granted, provided that this notice
9 * is preserved.
10 * ====================================================
13 #if defined(LIBM_SCCS) && !defined(lint)
14 static char rcsid[] = "$NetBSD: s_fabs.c,v 1.7 1995/05/10 20:47:13 jtc Exp $";
15 #endif
18 * fabs(x) returns the absolute value of x.
21 #include "math.h"
22 #include "math_private.h"
24 #ifdef __STDC__
25 double __fabs(double x)
26 #else
27 double __fabs(x)
28 double x;
29 #endif
31 u_int32_t high;
32 GET_HIGH_WORD(high,x);
33 SET_HIGH_WORD(x,high&0x7fffffff);
34 return x;
36 weak_alias (__fabs, fabs)
37 #ifdef NO_LONG_DOUBLE
38 strong_alias (__fabs, __fabsl)
39 weak_alias (__fabs, fabsl)
40 #endif