|
version 1.66, 2002/09/19 19:04:42
|
version 1.67, 2002/10/04 19:17:06
|
|
Line 878 extern Cell image[];
|
Line 878 extern Cell image[];
|
| extern const char reloc_bits[]; |
extern const char reloc_bits[]; |
| #endif |
#endif |
| |
|
| |
DCell double2ll(Float r) |
| |
{ |
| |
#ifndef BUGGY_LONG_LONG |
| |
return (DCell)(r); |
| |
#else |
| |
DCell d; |
| |
d.hi = ldexp(r,-(int)(CELL_BITS)) - (r<0); |
| |
d.lo = r-ldexp((Float)d.hi,CELL_BITS); |
| |
return d; |
| |
#endif |
| |
} |
| |
|
| int main(int argc, char **argv, char **env) |
int main(int argc, char **argv, char **env) |
| { |
{ |
| #ifdef HAS_OS |
#ifdef HAS_OS |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to main.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / engine