version 1.110, 2008/10/15 15:27:33
|
version 1.112, 2010/10/10 14:09:34
|
Line 349 Label *gforth_engine(Xt *ip0, Cell *sp0,
|
Line 349 Label *gforth_engine(Xt *ip0, Cell *sp0,
|
register Cell MAYBE_UNUSED spc spcREG; |
register Cell MAYBE_UNUSED spc spcREG; |
register Cell MAYBE_UNUSED spd spdREG; |
register Cell MAYBE_UNUSED spd spdREG; |
register Cell MAYBE_UNUSED spe speREG; |
register Cell MAYBE_UNUSED spe speREG; |
register Cell MAYBE_UNUSED spf speREG; |
register Cell MAYBE_UNUSED spf spfREG; |
register Cell MAYBE_UNUSED spg speREG; |
register Cell MAYBE_UNUSED spg spgREG; |
register Cell MAYBE_UNUSED sph speREG; |
register Cell MAYBE_UNUSED sph sphREG; |
IF_fpTOS(register Float fpTOS FTOSREG;) |
IF_fpTOS(register Float fpTOS FTOSREG;) |
#endif /* !defined(GFORTH_DEBUGGING) */ |
#endif /* !defined(GFORTH_DEBUGGING) */ |
#if defined(DOUBLY_INDIRECT) |
#if defined(DOUBLY_INDIRECT) |
Line 406 Label *gforth_engine(Xt *ip0, Cell *sp0,
|
Line 406 Label *gforth_engine(Xt *ip0, Cell *sp0,
|
|
|
symbols = (Label *)(malloc(MAX_SYMBOLS*sizeof(Cell)+CODE_OFFSET)+code_offset); |
symbols = (Label *)(malloc(MAX_SYMBOLS*sizeof(Cell)+CODE_OFFSET)+code_offset); |
xts = (Label *)(malloc(MAX_SYMBOLS*sizeof(Cell)+XT_OFFSET)+xt_offset); |
xts = (Label *)(malloc(MAX_SYMBOLS*sizeof(Cell)+XT_OFFSET)+xt_offset); |
for (i=0; i<DOESJUMP+1; i++) |
for (i=0; i<DOER_MAX+1; i++) |
xts[i] = symbols[i] = (Label)routines[i]; |
xts[i] = symbols[i] = (Label)routines[i]; |
for (; routines[i]!=0; i++) { |
for (; routines[i]!=0; i++) { |
if (i>=MAX_SYMBOLS) { |
if (i>=MAX_SYMBOLS) { |