Back to index

glibc  2.9
Functions | Variables
s_remquol.c File Reference
#include <math.h>
#include "math_private.h"

Go to the source code of this file.

Functions

long double __remquol (long double x, long double p, int *quo)

Variables

static const long double zero = 0.0

Function Documentation

long double __remquol ( long double  x,
long double  p,
int quo 
)

Definition at line 30 of file s_remquol.c.

{
  int32_t ex,ep,hx,hp;
  u_int32_t sx,lx,lp;
  int cquo,qs;

  GET_LDOUBLE_WORDS (ex, hx, lx, x);
  GET_LDOUBLE_WORDS (ep, hp, lp, p);
  sx = ex & 0x8000;
  qs = (sx ^ (ep & 0x8000)) >> 15;
  ep &= 0x7fff;
  ex &= 0x7fff;

  /* Purge off exception values.  */
  if ((ep | hp | lp) == 0)
    return (x * p) / (x * p);                    /* p = 0 */
  if ((ex == 0x7fff)                      /* x not finite */
      || ((ep == 0x7fff)                  /* p is NaN */
         && ((hp | lp) != 0)))
    return (x * p) / (x * p);

  if (ep <= 0x7ffb)
    x = __ieee754_fmodl (x, 8 * p);              /* now x < 8p */

  if (((ex - ep) | (hx - hp) | (lx - lp)) == 0)
    {
      *quo = qs ? -1 : 1;
      return zero * x;
    }

  x  = fabsl (x);
  p  = fabsl (p);
  cquo = 0;

  if (x >= 4 * p)
    {
      x -= 4 * p;
      cquo += 4;
    }
  if (x >= 2 * p)
    {
      x -= 2 * p;
      cquo += 2;
    }

  if (ep < 0x0002)
    {
      if (x + x > p)
       {
         x -= p;
         ++cquo;
         if (x + x >= p)
           {
             x -= p;
             ++cquo;
           }
       }
    }
  else
    {
      long double p_half = 0.5 * p;
      if (x > p_half)
       {
         x -= p;
         ++cquo;
         if (x >= p_half)
           {
             x -= p;
             ++cquo;
           }
       }
    }

  *quo = qs ? -cquo : cquo;

  if (sx)
    x = -x;
  return x;
}

Here is the call graph for this function:


Variable Documentation

const long double zero = 0.0 [static]

Definition at line 26 of file s_remquol.c.