OpenCores
URL https://opencores.org/ocsvn/or1k_old/or1k_old/trunk

Subversion Repositories or1k_old

[/] [or1k_old/] [trunk/] [newlib/] [newlib/] [libc/] [stdlib/] [dtoa.c] - Diff between revs 39 and 56

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 39 Rev 56
Line 36... Line 36... 
_DEFUN (quorem,
 
_DEFUN (quorem,
 
        (b, S),
 
        (b, S),
 
        _Bigint * b _AND _Bigint * S)
 
        _Bigint * b _AND _Bigint * S)
 
{
 
{
 
  int n;
 
  int n;
 
  long borrow, y;
 
  __Long borrow, y;
 
  unsigned long carry, q, ys;
 
  __ULong carry, q, ys;
 
  unsigned long *bx, *bxe, *sx, *sxe;
 
  __ULong *bx, *bxe, *sx, *sxe;
 
#ifdef Pack_32
 
#ifdef Pack_32
 
  long z;
 
  __Long z;
 
  unsigned long si, zs;
 
  __ULong si, zs;
 
#endif
 
#endif
 
 
 
 
 
  n = S->_wds;
 
  n = S->_wds;
 
#ifdef DEBUG
 
#ifdef DEBUG
 
  /*debug*/ if (b->_wds > n)
 
  /*debug*/ if (b->_wds > n)
Line 222... Line 222... 
        */
 
        */
 
 
 
 
 
  int bbits, b2, b5, be, dig, i, ieps, ilim, ilim0, ilim1, j, j1, k, k0,
 
  int bbits, b2, b5, be, dig, i, ieps, ilim, ilim0, ilim1, j, j1, k, k0,
 
    k_check, leftright, m2, m5, s2, s5, spec_case, try_quick;
 
    k_check, leftright, m2, m5, s2, s5, spec_case, try_quick;
 
  union double_union d, d2, eps;
 
  union double_union d, d2, eps;
 
  long L;
 
  __Long L;
 
#ifndef Sudden_Underflow
 
#ifndef Sudden_Underflow
 
  int denorm;
 
  int denorm;
 
  unsigned long x;
 
  __ULong x;
 
#endif
 
#endif
 
  _Bigint *b, *b1, *delta, *mlo, *mhi, *S;
 
  _Bigint *b, *b1, *delta, *mlo, *mhi, *S;
 
  double ds;
 
  double ds;
 
  char *s, *s0;
 
  char *s, *s0;
 
 
 
 
Line 412... Line 412... 
      ilim = i;
 
      ilim = i;
 
      ilim1 = i - 1;
 
      ilim1 = i - 1;
 
      if (i <= 0)
 
      if (i <= 0)
 
        i = 1;
 
        i = 1;
 
    }
 
    }
 
  j = sizeof (unsigned long);
 
  j = sizeof (__ULong);
 
  for (ptr->_result_k = 0; sizeof (_Bigint) - sizeof (unsigned long) + j <= i;
 
  for (ptr->_result_k = 0; sizeof (_Bigint) - sizeof (__ULong) + j <= i;
 
       j <<= 1)
 
       j <<= 1)
 
    ptr->_result_k++;
 
    ptr->_result_k++;
 
  ptr->_result = Balloc (ptr, ptr->_result_k);
 
  ptr->_result = Balloc (ptr, ptr->_result_k);
 
  s = s0 = (char *) ptr->_result;
 
  s = s0 = (char *) ptr->_result;
 
 
 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.