X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fstd%2Fcbits%2FfileGetc.c;h=810ee4c4012ffbba4f9506ce80feae090cfff6ea;hb=a76db2a07f99716c40e05d73210f80b4e4794b9a;hp=0be92e7a10e2c505c2876319a47698e4acc0acfd;hpb=f689ae053903e329575df22990e97c8d5cc54717;p=ghc-hetmet.git

diff --git a/ghc/lib/std/cbits/fileGetc.c b/ghc/lib/std/cbits/fileGetc.c
index 0be92e7..810ee4c 100644
--- a/ghc/lib/std/cbits/fileGetc.c
+++ b/ghc/lib/std/cbits/fileGetc.c
@@ -1,7 +1,7 @@
 /* 
  * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
  *
- * $Id: fileGetc.c,v 1.4 1999/11/26 16:25:55 simonmar Exp $
+ * $Id: fileGetc.c,v 1.6 2000/01/18 12:41:03 simonmar Exp $
  *
  * hGetChar Runtime Support
  */
@@ -13,11 +13,10 @@
 
 /* Pre-condition: only ever called on a readable fileObject */
 StgInt
-fileGetc(ptr)
-StgForeignPtr ptr;
+fileGetc(StgForeignPtr ptr)
 {
     IOFileObject* fo = (IOFileObject*)ptr;
-    int l,rc=0;
+    int rc=0;
     unsigned char c;
     
 #if 0