--- gforth/Attic/forth.h 1994/05/31 07:25:12 1.6 +++ gforth/Attic/forth.h 1994/08/25 15:25:24 1.8 @@ -1,5 +1,5 @@ /* - $Id: forth.h,v 1.6 1994/05/31 07:25:12 benschop Exp $ + $Id: forth.h,v 1.8 1994/08/25 15:25:24 anton Exp $ Copyright 1992 by the ANSI figForth Development Group */ @@ -13,8 +13,9 @@ typedef void *Label; #define DOCON 1 #define DOVAR 2 #define DOUSER 3 -#define DODOES 4 -#define DOESJUMP 5 +#define DODEFER 4 +#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 */ @@ -44,6 +45,7 @@ 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 */