--- gforth/Attic/forth.h 1994/08/25 15:25:24 1.8 +++ gforth/Attic/forth.h 1994/12/12 17:10:37 1.12 @@ -1,5 +1,4 @@ /* - $Id: forth.h,v 1.8 1994/08/25 15:25:24 anton Exp $ Copyright 1992 by the ANSI figForth Development Group */ @@ -17,12 +16,6 @@ typedef void *Label; #define DODOES 5 #define DOESJUMP 6 -/* 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 - #include "machine.h" /* Forth data types */ @@ -45,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 */ @@ -72,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