/*
* (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
*/
/* 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