From: simonmar <unknown>
Date: Mon, 11 Dec 2000 17:51:57 +0000 (+0000)
Subject: [project @ 2000-12-11 17:51:57 by simonmar]
X-Git-Tag: Approximately_9120_patches~3129
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=81dae8abaa588543b135c31b0887684c250042c4;p=ghc-hetmet.git

[project @ 2000-12-11 17:51:57 by simonmar]
ANSIfy
---

diff --git a/ghc/lib/std/cbits/fileSize.c b/ghc/lib/std/cbits/fileSize.c
index 93e2698..d40c9a5 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.3 1998/12/02 13:27:30 simonm Exp $
+ * $Id: fileSize.c,v 1.4 2000/12/11 17:51:57 simonmar Exp $
  *
  * hClose Runtime Support
  */
@@ -18,9 +18,7 @@
 #endif
   
 StgInt
-fileSize(ptr, result)
-StgForeignPtr ptr;
-StgByteArray result;
+fileSize(StgForeignPtr ptr, StgByteArray result)
 {
     IOFileObject* fo = (IOFileObject*)ptr;
     struct stat sb;
@@ -50,9 +48,7 @@ StgByteArray result;
 }
 
 StgInt
-fileSize_int64(ptr, result)
-StgForeignPtr ptr;
-StgByteArray result;
+fileSize_int64(StgForeignPtr ptr, StgByteArray result)
 {
     IOFileObject* fo = (IOFileObject*)ptr;
     struct stat sb;