![]() ![]() | ![]() |
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; |