version 1.28, 1995/09/06 21:00:13
|
version 1.29, 1995/10/07 17:38:12
|
Line 261 Label *engine(Xt *ip0, Cell *sp0, Cell *
|
Line 261 Label *engine(Xt *ip0, Cell *sp0, Cell *
|
&&dovar, |
&&dovar, |
&&douser, |
&&douser, |
&&dodefer, |
&&dodefer, |
&&dostruc, |
&&dofield, |
&&dodoes, |
&&dodoes, |
&&dodoes, /* dummy for does handler address */ |
&&dodoes, /* dummy for does handler address */ |
#include "prim_labels.i" |
#include "prim_labels.i" |
Line 357 Label *engine(Xt *ip0, Cell *sp0, Cell *
|
Line 357 Label *engine(Xt *ip0, Cell *sp0, Cell *
|
cfa = *(Xt *)PFA1(cfa); |
cfa = *(Xt *)PFA1(cfa); |
NEXT1; |
NEXT1; |
|
|
dostruc: |
dofield: |
#ifdef DEBUG |
#ifdef DEBUG |
fprintf(stderr,"%08x: struc: %08x\n",(Cell)ip,(Cell)PFA1(cfa)); |
fprintf(stderr,"%08x: field: %08x\n",(Cell)ip,(Cell)PFA1(cfa)); |
#endif |
#endif |
TOS += *(Cell*)PFA1(cfa); |
TOS += *(Cell*)PFA1(cfa); |
NEXT_P0; |
NEXT_P0; |