version 1.23, 1995/02/22 18:40:13
|
version 1.24, 1995/02/23 20:17:18
|
Line 214 Label *engine(Xt *ip0, Cell *sp0, Cell *
|
Line 214 Label *engine(Xt *ip0, Cell *sp0, Cell *
|
&&dovar, |
&&dovar, |
&&douser, |
&&douser, |
&&dodefer, |
&&dodefer, |
|
&&dostruc, |
&&dodoes, |
&&dodoes, |
&&dodoes, /* dummy for does handler address */ |
&&dodoes, /* dummy for does handler address */ |
#include "prim_labels.i" |
#include "prim_labels.i" |
Line 309 Label *engine(Xt *ip0, Cell *sp0, Cell *
|
Line 310 Label *engine(Xt *ip0, Cell *sp0, Cell *
|
cfa = *(Xt *)PFA1(cfa); |
cfa = *(Xt *)PFA1(cfa); |
NEXT1; |
NEXT1; |
|
|
|
dostruc: |
|
#ifdef DEBUG |
|
fprintf(stderr,"%08x: struc: %08x\n",(Cell)ip,(Cell)PFA1(cfa)); |
|
#endif |
|
TOS += *(Cell*)PFA1(cfa); |
|
NEXT_P0; |
|
NEXT; |
|
|
dodoes: |
dodoes: |
/* this assumes the following structure: |
/* this assumes the following structure: |
defining-word: |
defining-word: |