From 461cddc13013a0f77147d7e47d4e1b25668c34f2 Mon Sep 17 00:00:00 2001
From: rrt <unknown>
Date: Thu, 6 Apr 2000 10:33:07 +0000
Subject: [PATCH] [project @ 2000-04-06 10:33:06 by rrt] K&R is long dead So
why do its prototypes still live?
---
ghc/lib/std/cbits/removeFile.c | 5 ++---
ghc/lib/std/cbits/renameFile.c | 6 ++----
2 files changed, 4 insertions(+), 7 deletions(-)
diff --git a/ghc/lib/std/cbits/removeFile.c b/ghc/lib/std/cbits/removeFile.c
index ceabfc5f9bcf..22e9a7b9c88e 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 50bb47269c63..2126849a6362 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;
--
GitLab