V25 with 64-bit support

[pforth] / csrc / pf_io.c

diff --git a/csrc/pf_io.c b/csrc/pf_io.c
index 2cd3d3d..5638874 100644 (file)
--- a/csrc/pf_io.c
+++ b/csrc/pf_io.c
@@ -39,7 +39,7 @@ void ioTerm( void )
 */\r
 void ioEmit( char c )\r
 {\r
 */\r
 void ioEmit( char c )\r
 {\r

-       int32 Result;\r
+       cell_t Result;\r

        \r
        Result = sdTerminalOut(c);\r
        if( Result < 0 ) EXIT(1);\r
        \r
        Result = sdTerminalOut(c);\r
        if( Result < 0 ) EXIT(1);\r


@@ -61,9 +61,9 @@ void ioEmit( char c )
 /***************************************************************\r
 ** Send an entire string..\r
 */\r
 /***************************************************************\r
 ** Send an entire string..\r
 */\r

-void ioType( const char *s, int32 n )\r
+void ioType( const char *s, cell_t n )\r

 {\r
 {\r

-       int32 i;\r
+       cell_t i;\r

 \r
        for( i=0; i<n; i++)\r
        {\r
 \r
        for( i=0; i<n; i++)\r
        {\r


@@ -74,9 +74,9 @@ void ioType( const char *s, int32 n )
 /***************************************************************\r
 ** Return single character from input device, always keyboard.\r
 */\r
 /***************************************************************\r
 ** Return single character from input device, always keyboard.\r
 */\r

-cell ioKey( void )\r
+cell_t ioKey( void )\r

 {\r
 {\r

-       cell c;\r
+       cell_t c;\r

        sdEnableInput();\r
        c = sdTerminalIn();\r
        sdDisableInput();\r
        sdEnableInput();\r
        c = sdTerminalIn();\r
        sdDisableInput();\r


@@ -90,7 +90,7 @@ cell ioKey( void )
 #define SPACE      (0x20)\r
 #define BACKSPACE  (0x08)\r
 #define DELETE     (0x7F)\r
 #define SPACE      (0x20)\r
 #define BACKSPACE  (0x08)\r
 #define DELETE     (0x7F)\r

-cell ioAccept( char *buffer, cell maxChars )\r
+cell_t ioAccept( char *buffer, cell_t maxChars )\r

 {\r
        int c;\r
        int len;\r
 {\r
        int c;\r
        int len;\r


@@ -157,7 +157,7 @@ gotline:
 FileStream *PF_STDIN;\r
 FileStream *PF_STDOUT;\r
 \r
 FileStream *PF_STDIN;\r
 FileStream *PF_STDOUT;\r
 \r

-int32  sdInputChar( FileStream *stream )\r
+cell_t  sdInputChar( FileStream *stream )\r

 {\r
        UNIMPLEMENTED("sdInputChar");\r
        TOUCH(stream);\r
 {\r
        UNIMPLEMENTED("sdInputChar");\r
        TOUCH(stream);\r


@@ -171,12 +171,12 @@ FileStream *sdOpenFile( const char *FileName, const char *Mode )
        TOUCH(Mode);\r
        return NULL;\r
 }\r
        TOUCH(Mode);\r
        return NULL;\r
 }\r

-int32 sdFlushFile( FileStream * Stream  )\r
+cell_t sdFlushFile( FileStream * Stream  )\r

 {\r
        TOUCH(Stream);\r
        return 0;\r
 }\r
 {\r
        TOUCH(Stream);\r
        return 0;\r
 }\r

-int32 sdReadFile( void *ptr, int32 Size, int32 nItems, FileStream * Stream  ) \r
+cell_t sdReadFile( void *ptr, cell_t Size, int32_t nItems, FileStream * Stream  ) \r

 { \r
        UNIMPLEMENTED("sdReadFile");\r
        TOUCH(ptr);\r
 { \r
        UNIMPLEMENTED("sdReadFile");\r
        TOUCH(ptr);\r


@@ -185,7 +185,7 @@ int32 sdReadFile( void *ptr, int32 Size, int32 nItems, FileStream * Stream  )
        TOUCH(Stream);\r
        return 0; \r
 }\r
        TOUCH(Stream);\r
        return 0; \r
 }\r

-int32 sdWriteFile( void *ptr, int32 Size, int32 nItems, FileStream * Stream  )\r
+cell_t sdWriteFile( void *ptr, cell_t Size, int32_t nItems, FileStream * Stream  )\r

 { \r
        UNIMPLEMENTED("sdWriteFile");\r
        TOUCH(ptr);\r
 { \r
        UNIMPLEMENTED("sdWriteFile");\r
        TOUCH(ptr);\r


@@ -194,7 +194,7 @@ int32 sdWriteFile( void *ptr, int32 Size, int32 nItems, FileStream * Stream  )
        TOUCH(Stream);\r
        return 0; \r
 }\r
        TOUCH(Stream);\r
        return 0; \r
 }\r

-int32 sdSeekFile( FileStream * Stream, int32 Position, int32 Mode ) \r
+cell_t sdSeekFile( FileStream * Stream, cell_t Position, int32_t Mode ) \r

 { \r
        UNIMPLEMENTED("sdSeekFile");\r
        TOUCH(Stream);\r
 { \r
        UNIMPLEMENTED("sdSeekFile");\r
        TOUCH(Stream);\r


@@ -202,13 +202,13 @@ int32 sdSeekFile( FileStream * Stream, int32 Position, int32 Mode )
        TOUCH(Mode);\r
        return 0; \r
 }\r
        TOUCH(Mode);\r
        return 0; \r
 }\r

-int32 sdTellFile( FileStream * Stream ) \r
+cell_t sdTellFile( FileStream * Stream ) \r

 { \r
        UNIMPLEMENTED("sdTellFile");\r
        TOUCH(Stream);\r
        return 0; \r
 }\r
 { \r
        UNIMPLEMENTED("sdTellFile");\r
        TOUCH(Stream);\r
        return 0; \r
 }\r

-int32 sdCloseFile( FileStream * Stream ) \r
+cell_t sdCloseFile( FileStream * Stream ) \r

 { \r
        UNIMPLEMENTED("sdCloseFile");\r
        TOUCH(Stream);\r
 { \r
        UNIMPLEMENTED("sdCloseFile");\r
        TOUCH(Stream);\r