/[gcl]/gcl/o/num_co.c
ViewVC logotype

Diff of /gcl/o/num_co.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by camm, Wed Aug 25 03:10:14 2004 UTC revision 1.18 by camm, Sat Nov 27 22:19:35 2004 UTC
# Line 55  gcl_isnormal_double(double d) { Line 55  gcl_isnormal_double(double d) {
55    
56  #ifdef IEEEFLOAT  #ifdef IEEEFLOAT
57    u.d = d;    u.d = d;
58      /*FIXME 64, and 0x7f below*/
59    return (u.i[HIND] & 0x7ff00000) != 0;    return (u.i[HIND] & 0x7ff00000) != 0;
60  #else  #else
61  #error gcl_isnormal_double only implemented for IEEE  #error gcl_isnormal_double only implemented for IEEE
# Line 175  integer_decode_double(double d, int *hp, Line 176  integer_decode_double(double d, int *hp,
176          *ep = ((h & 0x7f000000) >> 24) - 64 - 14;          *ep = ((h & 0x7f000000) >> 24) - 64 - 14;
177          h = (h & 0x00ffffff);          h = (h & 0x00ffffff);
178  #endif  #endif
179            /*FIXME 64, note int args*/
180          if (32-BIG_RADIX)          if (32-BIG_RADIX)
181            /* shift for making bignum */            /* shift for making bignum */
182            { h = h << (32-BIG_RADIX) ;            { h = h << (32-BIG_RADIX) ;
# Line 337  double_to_integer(double d) Line 339  double_to_integer(double d)
339  {  {
340          int h, l, e, s;          int h, l, e, s;
341          object x;          object x;
342          object shift_integer(object x, int w);          object shift_integer(object x, fixnum w);
343          vs_mark;          vs_mark;
344    
345          if (d == 0.0)          if (d == 0.0)

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26