version 1.86, 2002/12/31 15:05:58
|
version 1.87, 2003/01/02 16:48:12
|
Line 894 void compile_prim1(Cell *start)
|
Line 894 void compile_prim1(Cell *start)
|
} |
} |
assert(priminfos[i].start = prim); |
assert(priminfos[i].start = prim); |
#ifdef ALIGN_CODE |
#ifdef ALIGN_CODE |
ALIGN_CODE; |
/* ALIGN_CODE;*/ |
#endif |
#endif |
assert(prim==priminfos[i].start); |
assert(prim==priminfos[i].start); |
old_code_here = append_prim(i); |
old_code_here = append_prim(i); |
Line 1229 extern Cell image[];
|
Line 1229 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 |