gforth/arch/generic/machine.h - diff

Return to machine.h CVS log

Up to [gforth] / gforth / arch / generic

version 1.15, 2001/04/30 12:53:25	version 1.18, 2002/08/28 17:50:28
Line 25	Line 25
#define THREADING_SCHEME 6	#define THREADING_SCHEME 6
#endif	#endif

#ifdef GFORTH_DEBUGGING
/* schedule the ip update after the rest of the primitive;
never mind speed */
#undef THREADING_SCHEME
#ifdef DIRECT_THREADED
#define THREADING_SCHEME 10
#else
#define THREADING_SCHEME 8
#endif /* DIRECT_THREADED */
#endif /* GFORTH_DEBUGGING */


/* define SYSCALL */	/* define SYSCALL */

#ifndef SYSCALL	#ifndef SYSCALL
Line 60	Line 48
loses on processors with few registers. USE_TOS might be defined in	loses on processors with few registers. USE_TOS might be defined in
the processor-specific files */	the processor-specific files */

#ifdef DIRECT_THREADED	#ifndef INDIRECT_THREADED
/* If you want direct threading, write a .h file for your processor! */	#ifndef DIRECT_THREADED
/* We could put some stuff here that causes a compile error, but then	#define DIRECT_THREADED
we could not use this file in the other machine.h files */	#endif
#endif	#endif

/* Types: these types are used as Forth's internal types */	/* Types: these types are used as Forth's internal types */
Line 101 typedef void *Label;	Line 89 typedef void *Label;
#define HAS_XCONDS	#define HAS_XCONDS
#define HAS_STANDARDTHREADING	#define HAS_STANDARDTHREADING
#define HAS_DEBUG	#define HAS_DEBUG
	#ifndef HAS_PEEPHOLE
#define HAS_PEEPHOLE	#define HAS_PEEPHOLE
	#endif

#define RELINFOBITS 8	#define RELINFOBITS 8