Back to index

glibc  2.9
Functions | Variables
s_floorl.c File Reference
#include "math.h"
#include "math_private.h"
This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Functions

long double __floorl (long double x)

Variables

static long double huge = 1.0e4930

Function Documentation

long double __floorl ( long double  x)

Definition at line 41 of file s_floorl.c.

{
       int64_t i0,i1,j0;
       u_int64_t i,j;
       GET_LDOUBLE_WORDS64(i0,i1,x);
       j0 = ((i0>>48)&0x7fff)-0x3fff;
       if(j0<48) {
           if(j0<0) {       /* raise inexact if x != 0 */
              if(huge+x>0.0) {/* return 0*sign(x) if |x|<1 */
                  if(i0>=0) {i0=i1=0;}
                  else if(((i0&0x7fffffffffffffffLL)|i1)!=0)
                     { i0=0xbfff000000000000ULL;i1=0;}
              }
           } else {
              i = (0x0000ffffffffffffULL)>>j0;
              if(((i0&i)|i1)==0) return x; /* x is integral */
              if(huge+x>0.0) {     /* raise inexact flag */
                  if(i0<0) i0 += (0x0001000000000000LL)>>j0;
                  i0 &= (~i); i1=0;
              }
           }
       } else if (j0>111) {
           if(j0==0x4000) return x+x;     /* inf or NaN */
           else return x;          /* x is integral */
       } else {
           i = -1ULL>>(j0-48);
           if((i1&i)==0) return x; /* x is integral */
           if(huge+x>0.0) {               /* raise inexact flag */
              if(i0<0) {
                  if(j0==48) i0+=1;
                  else {
                     j = i1+(1LL<<(112-j0));
                     if(j<i1) i0 +=1 ;    /* got a carry */
                     i1=j;
                  }
              }
              i1 &= (~i);
           }
       }
       SET_LDOUBLE_WORDS64(x,i0,i1);
       return x;
}

Here is the call graph for this function:


Variable Documentation

long double huge = 1.0e4930 [static]

Definition at line 35 of file s_floorl.c.