Mercurial > sdl-ios-xcode
comparison src/libm/s_fabs.c @ 2756:a98604b691c8
Expanded the libm support and put it into a separate directory.
| author | Sam Lantinga <slouken@libsdl.org> |
|---|---|
| date | Mon, 15 Sep 2008 06:33:23 +0000 |
| parents | |
| children | dc1eb82ffdaa |
comparison
equal
deleted
inserted
replaced
| 2755:2a3ec308d995 | 2756:a98604b691c8 |
|---|---|
| 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 char rcsid[] = "$NetBSD: s_fabs.c,v 1.7 1995/05/10 20:47:13 jtc Exp $"; | |
| 15 #endif | |
| 16 | |
| 17 /* | |
| 18 * fabs(x) returns the absolute value of x. | |
| 19 */ | |
| 20 | |
| 21 #include "math.h" | |
| 22 #include "math_private.h" | |
| 23 | |
| 24 libm_hidden_proto(fabs) | |
| 25 #ifdef __STDC__ | |
| 26 double fabs(double x) | |
| 27 #else | |
| 28 double fabs(x) | |
| 29 double x; | |
| 30 #endif | |
| 31 { | |
| 32 u_int32_t high; | |
| 33 GET_HIGH_WORD(high, x); | |
| 34 SET_HIGH_WORD(x, high & 0x7fffffff); | |
| 35 return x; | |
| 36 } | |
| 37 | |
| 38 libm_hidden_def(fabs) |