From 5bc7737b755db9ab74535b5ea332e9a49a9768fd Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 18 Jan 2000 12:41:03 +0000
Subject: [PATCH] [project @ 2000-01-18 12:41:03 by simonmar] ANSIfy
---
ghc/lib/std/cbits/fileGetc.c | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/ghc/lib/std/cbits/fileGetc.c b/ghc/lib/std/cbits/fileGetc.c
index 3a74020f7364..810ee4c4012f 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;
--
GitLab