Fix #1591 - Not building on MinGW-W64

Add a static function LONG_TELL for the forth #if branch

diff --git a/programs/fileio.c b/programs/fileio.c
index 7ada5921b123117d321f9e21321a6efdda4ef6ac..6a8ec3a1c10160a2eaca613951db82fbfd0ee9d4 100644 (file)
--- a/programs/fileio.c
+++ b/programs/fileio.c
@@ -269,6 +269,13 @@ void FIO_addAbortHandler()
         else
             return -1;
     }
+    static __int64 LONG_TELL(FILE* file) {
+        LARGE_INTEGER off, newOff;
+        off.QuadPart = 0;
+        newOff.QuadPart = 0;
+        SetFilePointerEx((HANDLE) _get_osfhandle(_fileno(file)), off, &newOff, FILE_CURRENT);
+        return newOff.QuadPart;
+    }
 #else
 #   define LONG_SEEK fseek
 #   define LONG_TELL ftell