X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fstd%2Fcbits%2FfreeFile.c;h=9e4c5300e3c14351345c3b5c18698d5e4fe4b31c;hb=cd6055bc01f2b38bcd77b1b6943dda8dff3cb818;hp=aecf498953d54bcb71928dac678a833caef01e07;hpb=cee674c3da09b1a8ff796762329d0a48f723caa3;p=ghc-hetmet.git

diff --git a/ghc/lib/std/cbits/freeFile.c b/ghc/lib/std/cbits/freeFile.c
index aecf498..9e4c530 100644
--- a/ghc/lib/std/cbits/freeFile.c
+++ b/ghc/lib/std/cbits/freeFile.c
@@ -1,7 +1,7 @@
 /* 
  * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
  *
- * $Id: freeFile.c,v 1.9 2000/03/28 08:49:56 simonmar Exp $
+ * $Id: freeFile.c,v 1.10 2000/04/11 20:44:18 panne Exp $
  *
  * Giving up files
  */
@@ -24,11 +24,11 @@
    before we *really* shut down (dumping stats etc.)
 */
 void
-freeStdFile(StgForeignPtr fp)
+freeStdFile(StgAddr fp)
 { return; }
 
 void
-freeStdFileObject(StgForeignPtr ptr)
+freeStdFileObject(StgAddr ptr)
 { 
   IOFileObject* fo = (IOFileObject*)ptr;
   int rc;
@@ -45,7 +45,7 @@ freeStdFileObject(StgForeignPtr ptr)
 }
 
 void
-freeFileObject(StgForeignPtr ptr)
+freeFileObject(StgAddr ptr)
 {
     /*
      * The finaliser for the file objects embedded in Handles. The RTS