gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

version 1.158, 2005/12/02 10:32:35	version 1.159, 2005/12/27 09:35:45
Line 1021 Address append_prim(Cell p)	Line 1021 Address append_prim(Cell p)
PrimInfo *pi = &priminfos[p];	PrimInfo *pi = &priminfos[p];
Address old_code_here = code_here;	Address old_code_here = code_here;

if (code_area+code_area_size < code_here+pi->length+pi->restlength) {	if (code_area+code_area_size < code_here+pi->length+pi->restlength+goto_len) {
struct code_block_list *p;	struct code_block_list *p;
append_jump();	append_jump();
flush_to_here();	flush_to_here();