gforth/engine/engine.c - diff

Return to engine.c CVS log

Up to [gforth] / gforth / engine

Diff for /gforth/engine/engine.c between versions 1.51 and 1.57

version 1.51, 2002/12/21 11:59:21	version 1.57, 2003/01/20 17:07:40
Line 64	Line 64
#define SEEK_SET 0	#define SEEK_SET 0
#endif	#endif

	#ifndef HAVE_FSEEKO
	#define fseeko fseek
	#endif

	#ifndef HAVE_FTELLO
	#define ftello ftell
	#endif

#define IOR(flag) ((flag)? -512-errno : 0)	#define IOR(flag) ((flag)? -512-errno : 0)

struct F83Name {	struct F83Name {
Line 206 extern int gforth_memcmp(const char * s1	Line 214 extern int gforth_memcmp(const char * s1
#define engine engine2	#define engine engine2
#define VARIANT(v) (v)	#define VARIANT(v) (v)
#define JUMP(target) goto I_noop	#define JUMP(target) goto I_noop
#define LABEL(name) J_##name: asm(".skip 16"); I_##name:	#define LABEL(name) J_##name: SKIP16; I_##name:
#define IN_ENGINE2	#define IN_ENGINE2

#elif ENGINE==3	#elif ENGINE==3
Line 262 Label engine(Xt ip0, Cell sp0, Cell	Line 270 Label engine(Xt ip0, Cell sp0, Cell
/* the following entry is normally unused;	/* the following entry is normally unused;
it is there because its index indicates a does-handler */	it is there because its index indicates a does-handler */
CPU_DEP1,	CPU_DEP1,
#define INST_ADDR(name) (Label)&&I_##name	#define INST_ADDR(name) ((Label)&&I_##name)
#include "prim_lab.i"	#include "prim_lab.i"
#undef INST_ADDR	#undef INST_ADDR
(Label)&&after_last,	(Label)&&after_last,
(Label)0,	(Label)0,
#define INST_ADDR(name) (Label)&&K_##name	#define INST_ADDR(name) ((Label)&&K_##name)
#include "prim_lab.i"	#include "prim_lab.i"
#undef INST_ADDR	#undef INST_ADDR
#define INST_ADDR(name) (Label)&&J_##name	#define INST_ADDR(name) ((Label)&&J_##name)
#include "prim_lab.i"	#include "prim_lab.i"
#undef INST_ADDR	#undef INST_ADDR
};	};

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

Removed from v.1.51
changed lines
	Added in v.1.57