zenilib  0.5.3.0
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Macros Groups Pages
s_fabs.c
Go to the documentation of this file.
1 /* @(#)s_fabs.c 5.1 93/09/24 */
2 /*
3  * ====================================================
4  * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
5  *
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  * ====================================================
11  */
12 
13 #if defined(LIBM_SCCS) && !defined(lint)
14 static const char rcsid[] =
15  "$NetBSD: s_fabs.c,v 1.7 1995/05/10 20:47:13 jtc Exp $";
16 #endif
17 
18 /*
19  * fabs(x) returns the absolute value of x.
20  */
21 
22 #include "math_libm.h"
23 #include "math_private.h"
24 
26 #ifdef __STDC__
27  double fabs(double x)
28 #else
29  double fabs(x)
30  double x;
31 #endif
32 {
33  u_int32_t high;
34  GET_HIGH_WORD(high, x);
35  SET_HIGH_WORD(x, high & 0x7fffffff);
36  return x;
37 }
38 
#define GET_HIGH_WORD(i, d)
Definition: math_private.h:102
EGLSurface EGLint x
Definition: eglext.h:293
#define SET_HIGH_WORD(d, v)
Definition: math_private.h:130
unsigned int u_int32_t
Definition: math_private.h:29
#define libm_hidden_def(x)
Definition: math_private.h:26
#define libm_hidden_proto(x)
Definition: math_private.h:25
double fabs(double x)
Definition: s_fabs.c:29