gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

version 1.62, 2002/04/01 15:34:35	version 1.63, 2002/08/28 17:50:30
Line 406 int go_forth(Address image, int stack, C	Line 406 int go_forth(Address image, int stack, C
if (rp <= orig_rp0 && rp > (Cell *)(image_header->return_stack_base+5)) {	if (rp <= orig_rp0 && rp > (Cell *)(image_header->return_stack_base+5)) {
/* no rstack overflow or underflow */	/* no rstack overflow or underflow */
rp0 = rp;	rp0 = rp;
*--rp0 = (Cell)ip;	*--rp0 = (Cell)saved_ip;
}	}
else /* I love non-syntactic ifdefs :-) */	else /* I love non-syntactic ifdefs :-) */
#endif	#endif
Line 465 void check_prims(Label symbols1[])	Line 465 void check_prims(Label symbols1[])
PrimInfo *pi=&priminfos[i];	PrimInfo *pi=&priminfos[i];
int j;	int j;
pi->super_end = superend[i-DOESJUMP-1]\|no_super;	pi->super_end = superend[i-DOESJUMP-1]\|no_super;
/* !! enable superinstructions for GFORTH_DEBUGGING) */
#ifdef GFORTH_DEBUGGING
pi->super_end = 1;
#endif
for (j=prim_len-IND_JUMP_LENGTH; ; j--) {	for (j=prim_len-IND_JUMP_LENGTH; ; j--) {
if (IS_NEXT_JUMP(symbols1[i]+j)) {	if (IS_NEXT_JUMP(symbols1[i]+j)) {
prim_len = j;	prim_len = j;