--- gforth/engine/engine.c	2001/04/08 13:48:12	1.31
+++ gforth/engine/engine.c	2001/12/09 19:12:46	1.33
@@ -196,6 +196,7 @@ DCell timeval2us(struct timeval *tvp)
 
 #ifdef HAS_FILE
 static char* fileattr[6]={"rb","rb","r+b","r+b","wb","wb"};
+static char* pfileattr[6]={"r","r","r+","r+","w","w"};
 
 #ifndef O_BINARY
 #define O_BINARY 0
@@ -543,5 +544,6 @@ Label *engine(Xt *ip0, Cell *sp0, Cell *
   }
   NEXT;
 
+#define LABEL(name) I_##name
 #include "prim.i"
 }