Fix FILE-POSITION REPOSITION-FILE and FILE-SIZE. Now use double precision offsets.

[pforth] / csrc / pf_io.h

diff --git a/csrc/pf_io.h b/csrc/pf_io.h
index c31cdc4..5ee78f4 100644 (file)
--- a/csrc/pf_io.h
+++ b/csrc/pf_io.h
@@ -84,8 +84,8 @@ void ioTerm( void );
        cell_t sdFlushFile( FileStream * Stream  );\r
        cell_t sdReadFile( void *ptr, cell_t Size, int32_t nItems, FileStream * Stream  );\r
        cell_t sdWriteFile( void *ptr, cell_t Size, int32_t nItems, FileStream * Stream  );\r
        cell_t sdFlushFile( FileStream * Stream  );\r
        cell_t sdReadFile( void *ptr, cell_t Size, int32_t nItems, FileStream * Stream  );\r
        cell_t sdWriteFile( void *ptr, cell_t Size, int32_t nItems, FileStream * Stream  );\r

-       cell_t sdSeekFile( FileStream * Stream, cell_t Position, int32_t Mode );\r
-       cell_t sdTellFile( FileStream * Stream );\r
+       cell_t sdSeekFile( FileStream * Stream, off_t Position, int32_t Mode );\r
+       off_t sdTellFile( FileStream * Stream );\r

        cell_t sdCloseFile( FileStream * Stream );\r
        cell_t sdInputChar( FileStream *stream );\r
        \r
        cell_t sdCloseFile( FileStream * Stream );\r
        cell_t sdInputChar( FileStream *stream );\r
        \r


@@ -118,8 +118,8 @@ void ioTerm( void );
                #define sdFlushFile     fflush\r
                #define sdReadFile      fread\r
                #define sdWriteFile     fwrite\r
                #define sdFlushFile     fflush\r
                #define sdReadFile      fread\r
                #define sdWriteFile     fwrite\r

-               #define sdSeekFile      fseek\r
-               #define sdTellFile      ftell\r
+               #define sdSeekFile      fseeko\r
+               #define sdTellFile      ftello\r

                #define sdCloseFile     fclose\r
                #define sdInputChar     fgetc\r
                \r
                #define sdCloseFile     fclose\r
                #define sdInputChar     fgetc\r
                \r