From: rrt <unknown>
Date: Thu, 6 Apr 2000 10:33:07 +0000 (+0000)
Subject: [project @ 2000-04-06 10:33:06 by rrt]
X-Git-Tag: Approximately_9120_patches~4798
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=461cddc13013a0f77147d7e47d4e1b25668c34f2;p=ghc-hetmet.git

[project @ 2000-04-06 10:33:06 by rrt]
K&R is long dead
So why do its prototypes still live?
---

diff --git a/ghc/lib/std/cbits/removeFile.c b/ghc/lib/std/cbits/removeFile.c
index ceabfc5..22e9a7b 100644
--- a/ghc/lib/std/cbits/removeFile.c
+++ b/ghc/lib/std/cbits/removeFile.c
@@ -1,7 +1,7 @@
 /* 
  * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
  *
- * $Id: removeFile.c,v 1.3 1998/12/02 13:27:49 simonm Exp $
+ * $Id: removeFile.c,v 1.4 2000/04/06 10:33:07 rrt Exp $
  *
  * removeFile Runtime Support
  */
@@ -18,8 +18,7 @@
 #endif
 
 StgInt
-removeFile(path)
-StgByteArray path;
+removeFile(StgByteArray path)
 {
     struct stat sb;
 
diff --git a/ghc/lib/std/cbits/renameFile.c b/ghc/lib/std/cbits/renameFile.c
index 50bb472..2126849 100644
--- a/ghc/lib/std/cbits/renameFile.c
+++ b/ghc/lib/std/cbits/renameFile.c
@@ -1,7 +1,7 @@
 /* 
  * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
  *
- * $Id: renameFile.c,v 1.7 2000/04/06 10:26:09 rrt Exp $
+ * $Id: renameFile.c,v 1.8 2000/04/06 10:33:06 rrt Exp $
  *
  * renameFile Runtime Support
  */
@@ -23,9 +23,7 @@
 
 
 StgInt
-renameFile(opath, npath)
-StgByteArray opath;
-StgByteArray npath;
+renameFile(StgByteArray opath, StgByteArray npath)
 {
     struct stat sb;