--- gforth/Attic/forth.h 1994/05/07 14:55:51 1.4 +++ gforth/Attic/forth.h 1995/10/11 19:39:33 1.16 @@ -1,5 +1,4 @@ /* - $Id: forth.h,v 1.4 1994/05/07 14:55:51 anton Exp $ Copyright 1992 by the ANSI figForth Development Group */ @@ -13,14 +12,18 @@ typedef void *Label; #define DOCON 1 #define DOVAR 2 #define DOUSER 3 -#define DODOES 4 -#define DOESJUMP 5 +#define DODEFER 4 +#define DOFIELD 5 +#define DODOES 6 +#define DOESJUMP 7 #include "machine.h" /* Forth data types */ typedef int Bool; #define FLAG(b) (-(b)) +#define FILEIO(error) (FLAG(error) & -37) +#define FILEEXIST(error) (FLAG(error) & -38) #define F_TRUE (FLAG(0==0)) #define F_FALSE (FLAG(0!=0)) @@ -57,12 +60,12 @@ Label *engine(Xt *ip, Cell *sp, Cell *rp #define MAKE_DOES_CF(cfa,does_code) ({MAKE_CF(cfa,symbols[DODOES]); \ ((Cell *)cfa)[1] = (Cell)does_code;}) /* the does handler resides between DOES> and the following Forth code */ -#define DOES_HANDLER_SIZE 8 +#define DOES_HANDLER_SIZE (2*sizeof(Cell)) #define MAKE_DOES_HANDLER(addr) 0 /* do nothing */ #endif #ifdef DEBUG -# define NAME(string) printf("%08x: %s\n",(int)ip,string); +# define NAME(string) fprintf(stderr,"%08x: "string"\n",(Cell)ip); #else # define NAME(string) #endif @@ -71,6 +74,13 @@ Label *engine(Xt *ip, Cell *sp, Cell *rp #define CF_NIL -1 -#ifndef CACHE_FLUSH -# define CACHE_FLUSH(addr,size) +#ifndef FLUSH_ICACHE +#warning flush-icache probably will not work (see manual) +# define FLUSH_ICACHE(addr,size) 0 +#endif + +#ifdef DIRECT_THREADED +#define CACHE_FLUSH(addr,size) FLUSH_ICACHE(addr,size) +#else +#define CACHE_FLUSH(addr,size) 0 #endif