X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=csrc%2Fpf_io.h;h=c31cdc4d111dfd9f77f42d61a533be6799aa47c0;hb=81dfa5e08883473e73d981e38722533b386c7810;hp=d4346cb1777e39fffc6a26f50848f2b7e645ce49;hpb=bb6b2dcdd9acffabfd373c4c3f6b64a9cc43f335;p=debian%2Fpforth

diff --git a/csrc/pf_io.h b/csrc/pf_io.h
index d4346cb..c31cdc4 100644
--- a/csrc/pf_io.h
+++ b/csrc/pf_io.h
@@ -81,13 +81,13 @@ void ioTerm( void );
 	
 	/* Prototypes for stubs. */
 	FileStream *sdOpenFile( const char *FileName, const char *Mode );
-	int32 sdFlushFile( FileStream * Stream  );
-	int32 sdReadFile( void *ptr, int32 Size, int32 nItems, FileStream * Stream  );
-	int32 sdWriteFile( void *ptr, int32 Size, int32 nItems, FileStream * Stream  );
-	int32 sdSeekFile( FileStream * Stream, int32 Position, int32 Mode );
-	int32 sdTellFile( FileStream * Stream );
-	int32 sdCloseFile( FileStream * Stream );
-	int32 sdInputChar( FileStream *stream );
+	cell_t sdFlushFile( FileStream * Stream  );
+	cell_t sdReadFile( void *ptr, cell_t Size, int32_t nItems, FileStream * Stream  );
+	cell_t sdWriteFile( void *ptr, cell_t Size, int32_t nItems, FileStream * Stream  );
+	cell_t sdSeekFile( FileStream * Stream, cell_t Position, int32_t Mode );
+	cell_t sdTellFile( FileStream * Stream );
+	cell_t sdCloseFile( FileStream * Stream );
+	cell_t sdInputChar( FileStream *stream );
 	
 	#ifdef __cplusplus
 	}   
@@ -114,6 +114,7 @@ void ioTerm( void );
 		typedef FILE FileStream;
 
 		#define sdOpenFile      fopen
+		#define sdDeleteFile      remove
 		#define sdFlushFile     fflush
 		#define sdReadFile      fread
 		#define sdWriteFile     fwrite
@@ -143,10 +144,10 @@ void ioTerm( void );
 extern "C" {
 #endif
 
-cell ioAccept( char *Target, cell n1 );
-cell ioKey( void);
+cell_t ioAccept( char *Target, cell_t n1 );
+cell_t ioKey( void);
 void ioEmit( char c );
-void ioType( const char *s, int32 n);
+void ioType( const char *s, cell_t n);
 
 #ifdef __cplusplus
 }