Powered by ViewCVS 1.0-dev
| version 1.99, Tue Sep 24 16:50:28 2002 UTC | version 1.100, Fri Oct 4 19:17:05 2002 UTC | ||
|---|---|---|---|
|
|
||
| #endif | #endif | ||
| f>d ( r -- d ) float f_to_d | f>d ( r -- d ) float f_to_d | ||
| #ifdef BUGGY_LONG_LONG | extern DCell double2ll(Float r); | ||
| d.hi = ldexp(r,-(int)(CELL_BITS)) - (r<0); | d = double2ll(r); | ||
| d.lo = r-ldexp((Float)d.hi,CELL_BITS); | |||
| #else | |||
| d = r; | |||
| #endif | |||
| f! ( r f_addr -- ) float f_store | f! ( r f_addr -- ) float f_store | ||
| ""Store @i{r} into the float at address @i{f-addr}."" | ""Store @i{r} into the float at address @i{f-addr}."" |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |