gforth/engine/engine.c - diff

Return to engine.c CVS log

Up to [gforth] / gforth / engine

version 1.117, 2012/01/16 22:17:32	version 1.119, 2012/07/15 12:03:07
Line 208 extern Char gforth_memcpy(Char dest,	Line 208 extern Char gforth_memcpy(Char dest,
#ifndef FTOSREG	#ifndef FTOSREG
#define FTOSREG	#define FTOSREG
#endif	#endif
	#ifndef OPREG
	#define OPREG
	#endif

#ifndef CPU_DEP1	#ifndef CPU_DEP1
# define CPU_DEP1 0	# define CPU_DEP1 0
Line 269 extern Char gforth_memcpy(Char dest,	Line 272 extern Char gforth_memcpy(Char dest,
#endif	#endif

#ifdef STANDALONE	#ifdef STANDALONE
jmp_buf throw_jmp_buf;	jmp_buf * throw_jmp_handler;

void throw(int code)	void throw(int code)
{	{
longjmp(throw_jmp_buf,code); /* !! or use siglongjmp ? */	longjmp(throw_jmp_handler,code); / !! or use siglongjmp ? */
}	}
#endif	#endif

Line 337 Label gforth_engine(Xt ip0, Cell *sp0,	Line 340 Label gforth_engine(Xt ip0, Cell *sp0,
register Address lp LPREG = lp0;	register Address lp LPREG = lp0;
register Xt cfa CFAREG;	register Xt cfa CFAREG;
register Label real_ca CAREG;	register Label real_ca CAREG;
	#ifdef HAS_OBJECTS
	register Char * op OPREG = NULL;
	#endif
#ifdef MORE_VARS	#ifdef MORE_VARS
MORE_VARS	MORE_VARS
#endif	#endif