From 34c8e07900277a88659d600e036ebfbad8e210e2 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 3 Apr 2009 10:35:43 -0500
Subject: [PATCH] make FSEEK macro for using _fseeki64 instead of fseeko on
 windows

---
 vm/io.c         | 2 +-
 vm/os-genunix.h | 1 +
 vm/os-windows.h | 1 +
 3 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/vm/io.c b/vm/io.c
index 950b1ed080..d88f1bab50 100755
--- a/vm/io.c
+++ b/vm/io.c
@@ -179,7 +179,7 @@ void primitive_fseek(void)
 		break;
 	}
 
-	if(fseeko(file,offset,whence) == -1)
+	if(FSEEK(file,offset,whence) == -1)
 	{
 		io_error();
 
diff --git a/vm/os-genunix.h b/vm/os-genunix.h
index 7afc68998d..9a00758c8a 100644
--- a/vm/os-genunix.h
+++ b/vm/os-genunix.h
@@ -1,5 +1,6 @@
 #define DLLEXPORT
 #define NULL_DLL NULL
+#define FSEEK fseeko
 
 void c_to_factor_toplevel(CELL quot);
 void init_signals(void);
diff --git a/vm/os-windows.h b/vm/os-windows.h
index 0704459dd0..f47ca951ee 100755
--- a/vm/os-windows.h
+++ b/vm/os-windows.h
@@ -20,6 +20,7 @@ typedef wchar_t F_CHAR;
 #define STRNCMP wcsncmp
 #define STRDUP _wcsdup
 #define MIN(a,b) ((a)>(b)?(b):(a))
+#define FSEEK _fseeki64
 
 #ifdef WIN64
 	#define CELL_FORMAT "%Iu"