Return to engine.c CVS log | Up to [gforth] / gforth |
version 1.16, 1994/09/26 20:31:10 | version 1.18, 1994/10/03 18:24:01 |
---|---|
Line 1 | Line 1 |
/* | /* |
$Id$ | |
Copyright 1992 by the ANSI figForth Development Group | Copyright 1992 by the ANSI figForth Development Group |
*/ | */ |
Line 282 Label *engine(Xt *ip0, Cell *sp0, Cell * | Line 281 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; |