[project @ 2004-02-17 11:59:16 by simonmar]

[ghc-base.git] / include / HsBase.h

diff --git a/include/HsBase.h b/include/HsBase.h
index a63c087..b131841 100644 (file)
--- a/include/HsBase.h
+++ b/include/HsBase.h
@@ -675,5 +675,21 @@ INLINE int __hsposix_SIG_UNBLOCK() { return SIG_UNBLOCK; }
 INLINE int __hsposix_SIG_SETMASK() { return SIG_SETMASK; }
 #endif /* mingw32_TARGET_OS */
 
+// These three are wrapped because on some OSs (eg. Linux) they are
+// macros which redirect to the 64-bit-off_t versions when large file
+// support is enabled.
+//
+INLINE int __hscore_open(char *file, int how, mode_t mode) {
+       return (open(file,how,mode));
+}
+
+INLINE off_t __hscore_lseek(int fd, off_t off, int whence) {
+       return (lseek(fd,off,whence));
+}
+
+INLINE int __hscore_fstat(int fd, struct stat *buf) {
+       return (fstat(fd,buf));
+}
+
 #endif /* __HSBASE_H__ */