gforth/engine/engine.c - diff

Return to engine.c CVS log

Up to [gforth] / gforth / engine

version 1.52, 2002/12/23 22:14:06	version 1.56, 2003/01/19 23:35:33
Line 1	Line 1
/* Gforth virtual machine (aka inner interpreter)	/* Gforth virtual machine (aka inner interpreter)

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

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

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 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
};	};