From: simonmar <unknown>
Date: Tue, 16 Jan 2001 11:27:45 +0000 (+0000)
Subject: [project @ 2001-01-16 11:27:45 by simonmar]
X-Git-Tag: Approximately_9120_patches~2898
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=699ae98d2599d2bf7db19a96c06e8eed3304e3bc;p=ghc-hetmet.git

[project @ 2001-01-16 11:27:45 by simonmar]
temp. bug fix for MacOS X which has a large off_t.  This code is
broken anyway.
---

diff --git a/ghc/lib/std/cbits/fileSize.c b/ghc/lib/std/cbits/fileSize.c
index d40c9a5..cbba594 100644
--- a/ghc/lib/std/cbits/fileSize.c
+++ b/ghc/lib/std/cbits/fileSize.c
@@ -1,7 +1,7 @@
 /* 
  * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
  *
- * $Id: fileSize.c,v 1.4 2000/12/11 17:51:57 simonmar Exp $
+ * $Id: fileSize.c,v 1.5 2001/01/16 11:27:45 simonmar Exp $
  *
  * hClose Runtime Support
  */
@@ -38,7 +38,11 @@ fileSize(StgForeignPtr ptr, StgByteArray result)
     }
     if (S_ISREG(sb.st_mode)) {
 	/* result will be word aligned */
+#if defined( macosx_TARGET_OS )
+	*(W_ *) result = (W_)sb.st_size;
+#else
 	*(off_t *) result = sb.st_size;
+#endif
 	return 0;
     } else {
 	ghc_errtype = ERR_INAPPROPRIATETYPE;