From: simonmar <unknown>
Date: Tue, 18 Jan 2000 12:41:03 +0000 (+0000)
Subject: [project @ 2000-01-18 12:41:03 by simonmar]
X-Git-Tag: Approximately_9120_patches~5264
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5bc7737b755db9ab74535b5ea332e9a49a9768fd;p=ghc-hetmet.git

[project @ 2000-01-18 12:41:03 by simonmar]
ANSIfy
---

diff --git a/ghc/lib/std/cbits/fileGetc.c b/ghc/lib/std/cbits/fileGetc.c
index 3a74020..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.5 1999/12/08 15:47:07 simonmar Exp $
+ * $Id: fileGetc.c,v 1.6 2000/01/18 12:41:03 simonmar Exp $
  *
  * hGetChar Runtime Support
  */
@@ -13,8 +13,7 @@
 
 /* Pre-condition: only ever called on a readable fileObject */
 StgInt
-fileGetc(ptr)
-StgForeignPtr ptr;
+fileGetc(StgForeignPtr ptr)
 {
     IOFileObject* fo = (IOFileObject*)ptr;
     int rc=0;