![[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|
Return to main.c CVS log | Up to [gforth] / gforth / engine |
| version 1.40, 2000/09/23 15:47:08 | version 1.41, 2000/11/10 10:04:21 |
|---|---|
| Line 359 int go_forth(Address image, int stack, C | Line 359 int go_forth(Address image, int stack, C |
| #endif | #endif |
| /* ensure that the cached elements (if any) are accessible */ | /* ensure that the cached elements (if any) are accessible */ |
| IF_TOS(sp0--); | IF_spTOS(sp0--); |
| IF_FTOS(fp0--); | IF_fpTOS(fp0--); |
| for(;stack>0;stack--) | for(;stack>0;stack--) |
| *--sp0=entries[stack-1]; | *--sp0=entries[stack-1]; |