From caf0846cb72fafab3f0f92b2f689d79e8629f749 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 21 Oct 1997 20:39:46 +0000
Subject: [PATCH] [project @ 1997-10-21 20:39:45 by sof] Renamed freeStdChannel
to freeStdFile
---
ghc/lib/cbits/freeFile.lc | 10 +++++-----
ghc/lib/cbits/stgio.h | 2 +-
2 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/ghc/lib/cbits/freeFile.lc b/ghc/lib/cbits/freeFile.lc
index 5c780769460d..1ac3d526614f 100644
--- a/ghc/lib/cbits/freeFile.lc
+++ b/ghc/lib/cbits/freeFile.lc
@@ -8,12 +8,12 @@
#include "rtsdefs.h"
#include "stgio.h"
-/* sigh, the standard channels are handled differently,
- we don't want them freed via the ForeignObj finaliser,
- as we probably want to use these channels before we
- *really* shutdown (dumping stats etc.)
+/* sigh, the FILEs attached to the standard descriptors are
+ handled differently. We don't want them freed via the
+ ForeignObj finaliser, as we probably want to use these
+ before we *really* shut down (dumping stats etc.)
*/
-void freeStdChannel(fp)
+void freeStdFile(fp)
StgForeignObj fp;
{ return; }
diff --git a/ghc/lib/cbits/stgio.h b/ghc/lib/cbits/stgio.h
index 7e436759bb6a..2c5eab247d48 100644
--- a/ghc/lib/cbits/stgio.h
+++ b/ghc/lib/cbits/stgio.h
@@ -51,7 +51,7 @@ StgInt fileSize PROTO((StgForeignObj, StgByteArray));
StgInt flushFile PROTO((StgForeignObj));
/* freeFile.lc */
-void freeStdChannel PROTO((StgForeignObj));
+void freeStdFile PROTO((StgForeignObj));
void freeFile PROTO((StgForeignObj));
/* getBufferMode.lc */
--
GitLab