--- gforth/Attic/forth.h 1994/07/08 15:00:39 1.7 +++ gforth/Attic/forth.h 1994/12/12 17:10:37 1.12 @@ -1,5 +1,4 @@ /* - $Id: forth.h,v 1.7 1994/07/08 15:00:39 anton Exp $ Copyright 1992 by the ANSI figForth Development Group */ @@ -13,14 +12,9 @@ typedef void *Label; #define DOCON 1 #define DOVAR 2 #define DOUSER 3 -#define DODOES 4 -#define DOESJUMP 5 - -/* Some versions of some unices (Linux) have the symbol BIG_ENDIAN defined - in their standard headers. Make sure it's undefined -- Lennart */ -#ifdef BIG_ENDIAN -#undef BIG_ENDIAN -#endif +#define DODEFER 4 +#define DODOES 5 +#define DOESJUMP 6 #include "machine.h" @@ -44,7 +38,6 @@ typedef Label *Xt; #endif Label *engine(Xt *ip, Cell *sp, Cell *rp, Float *fp, Address lp); -extern Xt *throw_ip; #ifndef DIRECT_THREADED /* i.e. indirect threaded */ @@ -71,7 +64,7 @@ extern Xt *throw_ip; #endif #ifdef DEBUG -# define NAME(string) printf("%08x: "string"\n",(int)ip); +# define NAME(string) fprintf(stderr,"%08x: "string"\n",(int)ip); #else # define NAME(string) #endif