FreeBASIC  0.91.0
math_fix.c
Go to the documentation of this file.
1 /* fix function for singles and doubles FIX( x ) = SGN( x ) * INT( ABS( x ) ) */
2 
3 #include "fb.h"
4 
5 
6 /*:::::*/
7 FBCALL float fb_FIXSingle( float x )
8 {
9 
10  return __builtin_floorf( __builtin_fabsf( x ) ) * fb_SGNSingle( x );
11 
12 }
13 
14 
15 /*:::::*/
16 FBCALL double fb_FIXDouble( double x )
17 {
18 
19  return __builtin_floorl( __builtin_fabsl( x ) ) * fb_SGNDouble( x );
20 
21 }
22 
23