--- gforth/Attic/engine.c	1996/02/09 17:34:08	1.35
+++ gforth/Attic/engine.c	1996/12/28 17:19:24	1.38
@@ -45,19 +45,6 @@
 
 #define IOR(flag)	((flag)? -512-errno : 0)
 
-typedef union {
-  struct {
-#ifdef WORDS_BIGENDIAN
-    Cell high;
-    UCell low;
-#else
-    UCell low;
-    Cell high;
-#endif;
-  } cells;
-  DCell dcell;
-} Double_Store;
-
 typedef struct F83Name {
   struct F83Name	*next;  /* the link field for old hands */
   char			countetc;
@@ -69,20 +56,6 @@ typedef struct F83Name {
 #define F83NAME_SMUDGE(np)	(((np)->countetc & 0x40) != 0)
 #define F83NAME_IMMEDIATE(np)	(((np)->countetc & 0x20) != 0)
 
-#ifdef USE_TOS
-#define IF_TOS(x) x
-#else
-#define IF_TOS(x)
-#define TOS (sp[0])
-#endif
-
-#ifdef USE_FTOS
-#define IF_FTOS(x) x
-#else
-#define IF_FTOS(x)
-#define FTOS (fp[0])
-#endif
-
 Cell *SP;
 Float *FP;
 #if 0
@@ -243,6 +216,7 @@ Label *engine(Xt *ip0, Cell *sp0, Cell *
     (Label)0,
 #endif
 #include "prim_labels.i"
+    (Label)0
   };
 #ifdef CPU_DEP2
   CPU_DEP2