![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to engine.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to engine.c CVS log | Up to [gforth] / gforth |
| version 1.16, 1994/09/26 20:31:10 | version 1.17, 1994/09/28 17:02:46 |
|---|---|
| Line 282 Label *engine(Xt *ip0, Cell *sp0, Cell * | Line 282 Label *engine(Xt *ip0, Cell *sp0, Cell * |
| */ | */ |
| #ifdef DEBUG | #ifdef DEBUG |
| fprintf(stderr,"%08x/%08x: does: %08x\n",(Cell)ip,(Cell)cfa,DOES_CODE1(cfa)); | fprintf(stderr,"%08x/%08x: does: %08x\n",(Cell)ip,(Cell)PFA(cfa),(Cell)DOES_CODE1(cfa)); |
| fflush(stderr); | fflush(stderr); |
| #endif | #endif |
| *--rp = (Cell)ip; | *--rp = (Cell)ip; |