Powered by ViewCVS 1.0-dev
| version 1.112, Wed Jan 1 17:28:29 2003 UTC | version 1.113, Thu Jan 2 16:48:12 2003 UTC | ||
|---|---|---|---|
|
|
||
| d>f ( d -- r ) float d_to_f | d>f ( d -- r ) float d_to_f | ||
| #ifdef BUGGY_LONG_LONG | #ifdef BUGGY_LONG_LONG | ||
| extern double ldexp(double x, int exp); | extern double ldexp(double x, int exp); | ||
| if (d.hi<0) { | |||
| DCell d2=dnegate(d); | |||
| r = -(ldexp((Float)d2.hi,CELL_BITS) + (Float)d2.lo); | |||
| } else | |||
| r = ldexp((Float)d.hi,CELL_BITS) + (Float)d.lo; | r = ldexp((Float)d.hi,CELL_BITS) + (Float)d.lo; | ||
| #else | #else | ||
| r = d; | r = d; |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |