gforth/forth.h - diff

Return to forth.h CVS log

Up to [gforth] / gforth

version 1.13, 1995/01/19 17:48:02	version 1.18, 1995/10/26 22:48:39
Line 13 typedef void *Label;	Line 13 typedef void *Label;
#define DOVAR 2	#define DOVAR 2
#define DOUSER 3	#define DOUSER 3
#define DODEFER 4	#define DODEFER 4
#define DODOES 5	#define DOFIELD 5
#define DOESJUMP 6	#define DODOES 6
	#define DOESJUMP 7

#include "machine.h"	#include "machine.h"

Line 64 Label engine(Xt ip, Cell sp, Cell rp	Line 65 Label engine(Xt ip, Cell sp, Cell rp
#endif	#endif

#ifdef DEBUG	#ifdef DEBUG
# define NAME(string) fprintf(stderr,"%08x: "string"\n",(Cell)ip);	# define NAME(string) fprintf(stderr,"%08lx: "string"\n",(Cell)ip);
#else	#else
# define NAME(string)	# define NAME(string)
#endif	#endif
Line 73 Label engine(Xt ip, Cell sp, Cell rp	Line 74 Label engine(Xt ip, Cell sp, Cell rp

#define CF_NIL -1	#define CF_NIL -1

#ifndef CACHE_FLUSH	#ifndef FLUSH_ICACHE
# define CACHE_FLUSH(addr,size)	#warning flush-icache probably will not work (see manual)
	# define FLUSH_ICACHE(addr,size)
	#endif

	#ifdef DIRECT_THREADED
	#define CACHE_FLUSH(addr,size) FLUSH_ICACHE(addr,size)
	#else
	#define CACHE_FLUSH(addr,size)
#endif	#endif