sdl

FORK: Simple Directmedia Layer
git clone https://git.neptards.moe/neptards/sdl.git
Log | Files | Refs

s_fabs.c (733B)

      1 /*
      2  * ====================================================
      3  * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
      4  *
      5  * Developed at SunPro, a Sun Microsystems, Inc. business.
      6  * Permission to use, copy, modify, and distribute this
      7  * software is freely granted, provided that this notice
      8  * is preserved.
      9  * ====================================================
     10  */
     11 
     12 /*
     13  * fabs(x) returns the absolute value of x.
     14  */
     15 
     16 /*#include <features.h>*/
     17 /* Prevent math.h from defining a colliding inline */
     18 #undef __USE_EXTERN_INLINES
     19 #include "math_libm.h"
     20 #include "math_private.h"
     21 
     22 double fabs(double x)
     23 {
     24 	u_int32_t high;
     25 	GET_HIGH_WORD(high,x);
     26 	SET_HIGH_WORD(x,high&0x7fffffff);
     27         return x;
     28 }
     29 libm_hidden_def(fabs)