gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

version 1.25, 1999/03/20 09:20:32	version 1.26, 1999/05/10 13:55:07
Line 147 void relocate(Cell image, const char b	Line 147 void relocate(Cell image, const char b
image[i]+=(Cell)image;	image[i]+=(Cell)image;
}	}
}	}
((ImageHeader*)(image))->base = image;	((ImageHeader*)(image))->base = (Address) image;
}	}

UCell checksum(Label symbols[])	UCell checksum(Label symbols[])
Line 313 int go_forth(Address image, int stack, C	Line 313 int go_forth(Address image, int stack, C
if (rp <= rp0 && rp > (Cell *)(image_header->return_stack_base+5)) {	if (rp <= rp0 && rp > (Cell *)(image_header->return_stack_base+5)) {
/* no rstack overflow or underflow */	/* no rstack overflow or underflow */
rp0 = rp;	rp0 = rp;
*--rp0 = ip;	*--rp0 = (int) ip;
}	}
else /* I love non-syntactic ifdefs :-) */	else /* I love non-syntactic ifdefs :-) */
#endif	#endif