diff options
| author | rrt <unknown> | 2000-04-06 10:33:07 +0000 |
|---|---|---|
| committer | rrt <unknown> | 2000-04-06 10:33:07 +0000 |
| commit | 461cddc13013a0f77147d7e47d4e1b25668c34f2 (patch) | |
| tree | 6b55e2065ede30325bbede968c69c68f21b78377 | |
| parent | 95f03856b44cb22cf47f658ab0d619c362d0a589 (diff) | |
| download | haskell-461cddc13013a0f77147d7e47d4e1b25668c34f2.tar.gz | |
[project @ 2000-04-06 10:33:06 by rrt]
K&R is long dead
So why do its prototypes still live?
| -rw-r--r-- | ghc/lib/std/cbits/removeFile.c | 5 | ||||
| -rw-r--r-- | 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 ceabfc5f9b..22e9a7b9c8 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 50bb47269c..2126849a63 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; |