home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 Mobile / Chip_Mobile_2001.iso / palm / hobby / palmoon / palmoon.EXE / s_fabs.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-10-05  |  972 b   |  41 lines
  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. #ifdef __STDC__
  25.     double __fabs(double x)
  26. #else
  27.     double __fabs(x)
  28.     double x;
  29. #endif
  30. {
  31.     u_int32_t high;
  32.     GET_HIGH_WORD(high,x);
  33.     SET_HIGH_WORD(x,high&0x7fffffff);
  34.         return x;
  35. }
  36. weak_alias (__fabs, fabs)
  37. #ifdef NO_LONG_DOUBLE
  38. strong_alias (__fabs, __fabsl)
  39. weak_alias (__fabs, fabsl)
  40. #endif
  41.