X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/54b27a8713239cf47e1ed2ee7cdb3b14de22e663..336369a5b94ae6588fb891606d37053f9fb8c2d6:/csrc/pf_guts.h

diff --git a/csrc/pf_guts.h b/csrc/pf_guts.h
index 806ff84..0666108 100644
--- a/csrc/pf_guts.h
+++ b/csrc/pf_guts.h
@@ -279,6 +279,8 @@ enum cforth_primitive_ids
 	/* Added to support 64 bit operation. */
 	ID_CELL,
 	ID_CELLS,
+	/* DELETE-FILE */
+	ID_FILE_DELETE,
 /* If you add a word here, take away one reserved word below. */
 #ifdef PF_SUPPORT_FP
 /* Only reserve space if we are adding FP so that we can detect
@@ -297,7 +299,6 @@ enum cforth_primitive_ids
 	ID_RESERVED11,
 	ID_RESERVED12,
 	ID_RESERVED13,
-	ID_RESERVED14,
 	ID_FP_D_TO_F,
 	ID_FP_FSTORE,
 	ID_FP_FTIMES,
@@ -422,26 +423,22 @@ typedef struct pfDictionary_s
 	ucell_t  dic_Flags;
 /* Headers contain pointers to names and dictionary. */
 
-	uint8_t	*dic_HeaderBaseUnaligned;
+	ucell_t	dic_HeaderBaseUnaligned;
 
-	uint8_t	*dic_HeaderBase;
-	union
-	{
-		cell_t	*Cell;
-		uint8_t	*Byte;
-	} dic_HeaderPtr;
-	uint8_t	*dic_HeaderLimit;
+	ucell_t	dic_HeaderBase;
+	ucell_t	dic_HeaderPtr;
+	ucell_t	dic_HeaderLimit;
 /* Code segment contains tokenized code and data. */
 
-	uint8_t	*dic_CodeBaseUnaligned;
+	ucell_t	dic_CodeBaseUnaligned;
 
-	uint8_t	*dic_CodeBase;
+	ucell_t	dic_CodeBase;
 	union
 	{
 		cell_t	*Cell;
 		uint8_t	*Byte;
 	} dic_CodePtr;
-	uint8_t	*dic_CodeLimit;
+	ucell_t	dic_CodeLimit;
 } pfDictionary_t;
 
 /* Save state of include when nesting files. */
@@ -487,7 +484,7 @@ extern ExecToken     gAcceptP_XT;         /* XT of ACCEPT */
 extern cell_t         gDepthAtColon;
 
 /* Global variables. */
-extern char         *gVarContext;    /* Points to last name field. */
+extern cell_t        gVarContext;    /* Points to last name field. */
 extern cell_t        gVarState;      /* 1 if compiling. */
 extern cell_t        gVarBase;       /* Numeric Base. */
 extern cell_t        gVarEcho;       /* Echo input from file. */