gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

Diff for /gforth/engine/main.c between versions 1.63 and 1.64

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

version 1.63, 2002/08/28 17:50:30	version 1.64, 2002/09/01 15:15:07
Line 85 Address code_area=0;	Line 85 Address code_area=0;
Address code_here=0; /* does for code-area what HERE does for the dictionary */	Address code_here=0; /* does for code-area what HERE does for the dictionary */

static int no_super=0; /* true if compile_prim should not fuse prims */	static int no_super=0; /* true if compile_prim should not fuse prims */
static int no_dynamic=0; /* true if compile_prim should not generate code */	static int no_dynamic=1; /* true if compile_prim should not generate code */

#ifdef HAS_DEBUG	#ifdef HAS_DEBUG
static int debug=0;	static int debug=0;
Line 457 void check_prims(Label symbols1[])	Line 457 void check_prims(Label symbols1[])
;	;
npriminfos = i;	npriminfos = i;

#if defined(IS_NEXT_JUMP) && !defined(DOUBLY_INDIRECT)	#if 0 && defined(IS_NEXT_JUMP) && !defined(DOUBLY_INDIRECT)
symbols2=engine2(0,0,0,0,0);	symbols2=engine2(0,0,0,0,0);
priminfos = calloc(i,sizeof(PrimInfo));	priminfos = calloc(i,sizeof(PrimInfo));
for (i=DOESJUMP+1; symbols1[i+1]!=0; i++) {	for (i=DOESJUMP+1; symbols1[i+1]!=0; i++) {
Line 504 Label compile_prim(Label prim)	Line 504 Label compile_prim(Label prim)
return prim;	return prim;
} else	} else
return prim-((Label)xts)+((Label)vm_prims);	return prim-((Label)xts)+((Label)vm_prims);
#elif defined(IND_JUMP_LENGTH) && !defined(VM_PROFILING) && !defined(INDIRECT_THREADED)	#elif 0 && defined(IND_JUMP_LENGTH) && !defined(VM_PROFILING) && !defined(INDIRECT_THREADED)
unsigned i;	unsigned i;
Address old_code_here=code_here;	Address old_code_here=code_here;
static Address last_jump=0;	static Address last_jump=0;

Removed from v.1.63
changed lines
	Added in v.1.64