--- gforth/engine/engine.c 2002/01/04 20:31:54 1.37 +++ gforth/engine/engine.c 2002/11/10 11:24:08 1.45 @@ -215,39 +215,39 @@ static int ufileattr[6]= { /* conversion on fetch */ -#define vm_Cell2f(x) ((Bool)(x)) -#define vm_Cell2c(x) ((Char)(x)) -#define vm_Cell2n(x) ((Cell)x) -#define vm_Cell2w(x) ((Cell)x) -#define vm_Cell2u(x) ((UCell)(x)) -#define vm_Cell2a_(x) ((Cell *)(x)) -#define vm_Cell2c_(x) ((Char *)(x)) -#define vm_Cell2f_(x) ((Float *)(x)) -#define vm_Cell2df_(x) ((DFloat *)(x)) -#define vm_Cell2sf_(x) ((SFloat *)(x)) -#define vm_Cell2xt(x) ((Xt)(x)) -#define vm_Cell2f83name(x) ((struct F83Name *)(x)) -#define vm_Cell2longname(x) ((struct Longname *)(x)) -#define vm_Float2r(x) (x) +#define vm_Cell2f(_cell,_x) ((_x)=(Bool)(_cell)) +#define vm_Cell2c(_cell,_x) ((_x)=(Char)(_cell)) +#define vm_Cell2n(_cell,_x) ((_x)=(Cell)(_cell)) +#define vm_Cell2w(_cell,_x) ((_x)=(Cell)(_cell)) +#define vm_Cell2u(_cell,_x) ((_x)=(UCell)(_cell)) +#define vm_Cell2a_(_cell,_x) ((_x)=(Cell *)(_cell)) +#define vm_Cell2c_(_cell,_x) ((_x)=(Char *)(_cell)) +#define vm_Cell2f_(_cell,_x) ((_x)=(Float *)(_cell)) +#define vm_Cell2df_(_cell,_x) ((_x)=(DFloat *)(_cell)) +#define vm_Cell2sf_(_cell,_x) ((_x)=(SFloat *)(_cell)) +#define vm_Cell2xt(_cell,_x) ((_x)=(Xt)(_cell)) +#define vm_Cell2f83name(_cell,_x) ((_x)=(struct F83Name *)(_cell)) +#define vm_Cell2longname(_cell,_x) ((_x)=(struct Longname *)(_cell)) +#define vm_Float2r(_float,_x) (_x=_float) /* conversion on store */ -#define vm_f2Cell(x) ((Cell)(x)) -#define vm_c2Cell(x) ((Cell)(x)) -#define vm_n2Cell(x) ((Cell)(x)) -#define vm_w2Cell(x) ((Cell)(x)) -#define vm_u2Cell(x) ((Cell)(x)) -#define vm_a_2Cell(x) ((Cell)(x)) -#define vm_c_2Cell(x) ((Cell)(x)) -#define vm_f_2Cell(x) ((Cell)(x)) -#define vm_df_2Cell(x) ((Cell)(x)) -#define vm_sf_2Cell(x) ((Cell)(x)) -#define vm_xt2Cell(x) ((Cell)(x)) -#define vm_f83name2Cell(x) ((Cell)(x)) -#define vm_longname2Cell(x) ((Cell)(x)) -#define vm_r2Float(x) (x) +#define vm_f2Cell(_x,_cell) ((_cell)=(Cell)(_x)) +#define vm_c2Cell(_x,_cell) ((_cell)=(Cell)(_x)) +#define vm_n2Cell(_x,_cell) ((_cell)=(Cell)(_x)) +#define vm_w2Cell(_x,_cell) ((_cell)=(Cell)(_x)) +#define vm_u2Cell(_x,_cell) ((_cell)=(Cell)(_x)) +#define vm_a_2Cell(_x,_cell) ((_cell)=(Cell)(_x)) +#define vm_c_2Cell(_x,_cell) ((_cell)=(Cell)(_x)) +#define vm_f_2Cell(_x,_cell) ((_cell)=(Cell)(_x)) +#define vm_df_2Cell(_x,_cell) ((_cell)=(Cell)(_x)) +#define vm_sf_2Cell(_x,_cell) ((_cell)=(Cell)(_x)) +#define vm_xt2Cell(_x,_cell) ((_cell)=(Cell)(_x)) +#define vm_f83name2Cell(_x,_cell) ((_cell)=(Cell)(_x)) +#define vm_longname2Cell(_x,_cell) ((_cell)=(Cell)(_x)) +#define vm_r2Float(_x,_float) (_float=_x) -#define vm_Cell2Cell(x) (x) +#define vm_Cell2Cell(_x,_y) (_y=_x) /* if machine.h has not defined explicit registers, define them as implicit */ #ifndef IPREG @@ -282,14 +282,6 @@ static int ufileattr[6]= { # define CPU_DEP1 0 #endif -/* declare and compute cfa for certain threading variants */ -/* warning: this is nonsyntactical; it will not work in place of a statement */ -#ifndef GETCFA -#define DOCFA -#else -#define DOCFA Xt cfa; GETCFA(cfa) -#endif - /* instructions containing these must be the last instruction of a super-instruction (e.g., branches, EXECUTE, and other instructions ending the basic block). Instructions containing SET_IP get this @@ -308,7 +300,7 @@ static int ufileattr[6]= { /* define some VM registers as global variables, so they survive exceptions; global register variables are not up to the task (according to the GNU C manual) */ -Xt *ip; +Xt *saved_ip; Cell *rp; #endif @@ -327,17 +319,14 @@ Cell *rp; #endif Xt *primtable(Label symbols[], Cell size) + /* used in primitive primtable for peephole optimization */ { -#ifdef DIRECT_THREADED - return symbols; -#else /* !defined(DIRECT_THREADED) */ Xt *xts = (Xt *)malloc(size*sizeof(Xt)); Cell i; for (i=0; i=MAX_SYMBOLS) { fprintf(stderr,"gforth-ditc: more than %d primitives\n",MAX_SYMBOLS); exit(1); } - symbols[i] = &routines[i]; + xts[i] = symbols[i] = &routines[i]; } #endif /* defined(DOUBLY_INDIRECT) */ return symbols; @@ -438,7 +428,6 @@ define(enginerest, docol: { - DOCFA; #ifdef DEBUG { CFA_TO_NAME(cfa); @@ -468,7 +457,6 @@ define(enginerest, docon: { - DOCFA; #ifdef DEBUG fprintf(stderr,"%08lx: con: %08lx\n",(Cell)ip,*(Cell*)PFA1(cfa)); #endif @@ -484,7 +472,6 @@ define(enginerest, dovar: { - DOCFA; #ifdef DEBUG fprintf(stderr,"%08lx: var: %08lx\n",(Cell)ip,(Cell)PFA1(cfa)); #endif @@ -500,7 +487,6 @@ define(enginerest, douser: { - DOCFA; #ifdef DEBUG fprintf(stderr,"%08lx: user: %08lx\n",(Cell)ip,(Cell)PFA1(cfa)); #endif @@ -516,7 +502,6 @@ define(enginerest, dodefer: { - DOCFA; #ifdef DEBUG fprintf(stderr,"%08lx: defer: %08lx\n",(Cell)ip,*(Cell*)PFA1(cfa)); #endif @@ -526,7 +511,6 @@ define(enginerest, dofield: { - DOCFA; #ifdef DEBUG fprintf(stderr,"%08lx: field: %08lx\n",(Cell)ip,(Cell)PFA1(cfa)); #endif @@ -554,8 +538,6 @@ define(enginerest, */ { - DOCFA; - /* fprintf(stderr, "Got CFA %08lx at doescode %08lx/%08lx: does: %08lx\n",cfa,(Cell)ip,(Cell)PFA(cfa),(Cell)DOES_CODE1(cfa));*/ #ifdef DEBUG fprintf(stderr,"%08lx/%08lx: does: %08lx\n",(Cell)ip,(Cell)PFA(cfa),(Cell)DOES_CODE1(cfa)); @@ -576,10 +558,11 @@ define(enginerest, NEXT; #ifndef IN_ENGINE2 -#define LABEL(name) I_##name +#define LABEL(name) I_##name: #else -#define LABEL(name) J_##name: asm(".skip 16"); I_##name +#define LABEL(name) J_##name: asm(".skip 16"); I_##name: #endif +#define LABEL2(name) #include "prim.i" #undef LABEL after_last: return (Label *)0; @@ -589,6 +572,7 @@ define(enginerest, Label *engine enginerest +#ifndef NO_DYNAMIC #define IN_ENGINE2 Label *engine2 enginerest - +#endif