gforth/engine/engine.c - diff

Return to engine.c CVS log

Up to [gforth] / gforth / engine

version 1.82, 2005/08/04 08:16:50	version 1.84, 2005/08/21 22:09:14
Line 71	Line 71
#include <callback.h>	#include <callback.h>
#endif	#endif

	#ifdef HAS_LIBFFI
	#include <ffi.h>
	#endif

#ifndef SEEK_SET	#ifndef SEEK_SET
/* should be defined in stdio.h, but some systems don't have it */	/* should be defined in stdio.h, but some systems don't have it */
#define SEEK_SET 0	#define SEEK_SET 0
Line 263 extern int gforth_memcmp(const char * s1	Line 267 extern int gforth_memcmp(const char * s1
#define engine engine3	#define engine engine3
#define VARIANT(v) ((v)^0xffffffff)	#define VARIANT(v) ((v)^0xffffffff)
#define JUMP(target) goto K_lit	#define JUMP(target) goto K_lit
#define LABEL(name) H_##name: I_##name:	#define LABEL(name) H_##name: asm(""); I_##name:
#else	#else
#error illegal ENGINE value	#error illegal ENGINE value
#endif /* ENGINE */	#endif /* ENGINE */
Line 300 Label engine(Xt ip0, Cell sp0, Cell	Line 304 Label engine(Xt ip0, Cell sp0, Cell
long long llrv;	long long llrv;
void * prv;	void * prv;
#endif	#endif
	#ifdef HAS_LIBFFI
	extern void * ritem;
	extern void ** clist;
	extern void ffi_callback(ffi_cif * cif, void * resp, void ** args, Xt * ip);
	#endif
register Address up UPREG = UP;	register Address up UPREG = UP;
register Cell MAYBE_UNUSED spTOS TOSREG;	register Cell MAYBE_UNUSED spTOS TOSREG;
register Cell MAYBE_UNUSED spb spbREG;	register Cell MAYBE_UNUSED spb spbREG;