gforth/engine/engine.c - diff

Return to engine.c CVS log

Up to [gforth] / gforth / engine

version 1.84, 2005/08/21 22:09:14	version 1.87, 2005/12/31 15:46:13
Line 1	Line 1
/* Gforth virtual machine (aka inner interpreter)	/* Gforth virtual machine (aka inner interpreter)

Copyright (C) 1995,1996,1997,1998,2000,2003,2004 Free Software Foundation, Inc.	Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005 Free Software Foundation, Inc.

This file is part of Gforth.	This file is part of Gforth.

Line 241 extern int gforth_memcmp(const char * s1	Line 241 extern int gforth_memcmp(const char * s1
}	}
#endif	#endif

#ifdef HAS_FFCALL	#if defined(HAS_FFCALL) \|\| defined(HAS_LIBFFI)
#define SAVE_REGS IF_fpTOS(fp[0]=fpTOS); SP=sp; FP=fp; RP=rp; LP=lp;	#define SAVE_REGS IF_fpTOS(fp[0]=fpTOS); SP=sp; FP=fp; RP=rp; LP=lp;
#define REST_REGS sp=SP; fp=FP; rp=RP; lp=LP; IF_fpTOS(fpTOS=fp[0]);	#define REST_REGS sp=SP; fp=FP; rp=RP; lp=LP; IF_fpTOS(fpTOS=fp[0]);
#endif	#endif
Line 259 extern int gforth_memcmp(const char * s1	Line 259 extern int gforth_memcmp(const char * s1
#define VARIANT(v) (v)	#define VARIANT(v) (v)
#define JUMP(target) goto I_noop	#define JUMP(target) goto I_noop
#define LABEL(name) H_##name: SKIP16; I_##name:	#define LABEL(name) H_##name: SKIP16; I_##name:
#define IN_ENGINE2

#elif ENGINE==3	#elif ENGINE==3
/* variant with different immediate arguments for finding out	/* variant with different immediate arguments for finding out