|
version 1.26, 1999/05/10 13:55:07
|
version 1.27, 1999/05/11 19:37:25
|
|
Line 313 int go_forth(Address image, int stack, C
|
Line 313 int go_forth(Address image, int stack, C
|
| if (rp <= rp0 && rp > (Cell *)(image_header->return_stack_base+5)) { |
if (rp <= rp0 && rp > (Cell *)(image_header->return_stack_base+5)) { |
| /* no rstack overflow or underflow */ |
/* no rstack overflow or underflow */ |
| rp0 = rp; |
rp0 = rp; |
| *--rp0 = (int) ip; |
*--rp0 = (Cell)ip; |
| } |
} |
| else /* I love non-syntactic ifdefs :-) */ |
else /* I love non-syntactic ifdefs :-) */ |
| #endif |
#endif |
![[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