--- gforth/Attic/engine.c	1995/02/23 20:17:18	1.24
+++ gforth/Attic/engine.c	1995/04/06 16:56:09	1.25
@@ -14,6 +14,7 @@
 #include <time.h>
 #include <sys/time.h>
 #include <unistd.h>
+#include <errno.h>
 #include "forth.h"
 #include "io.h"
 
@@ -22,6 +23,8 @@
 #define SEEK_SET 0
 #endif
 
+#define IOR(flag)	((flag)? -512-errno : 0)
+
 typedef union {
   struct {
 #ifdef WORDS_BIGENDIAN
@@ -123,6 +126,8 @@ typedef struct F83Name {
 #define FTOS (fp[0])
 #endif
 
+Cell *SP;
+Float *FP;
 int emitcounter;
 #define NULLC '\0'