diff options
| author | simonmar <unknown> | 1999-12-08 15:47:08 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 1999-12-08 15:47:08 +0000 |
| commit | 4ee0f622625f8e7cc76488e99762a323c46df952 (patch) | |
| tree | 3aea37e6a21b358e8cbadffab6f3594b64e81f3a /ghc/lib/std/cbits/fileGetc.c | |
| parent | 9c370d695ac7b7b7108440b028b017459ae5ef02 (diff) | |
| download | haskell-4ee0f622625f8e7cc76488e99762a323c46df952.tar.gz | |
[project @ 1999-12-08 15:47:06 by simonmar]
misc ansification and -Wall cleanup
Diffstat (limited to 'ghc/lib/std/cbits/fileGetc.c')
| -rw-r--r-- | ghc/lib/std/cbits/fileGetc.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/lib/std/cbits/fileGetc.c b/ghc/lib/std/cbits/fileGetc.c index 0be92e7a10..3a74020f73 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.5 1999/12/08 15:47:07 simonmar Exp $ * * hGetChar Runtime Support */ @@ -17,7 +17,7 @@ fileGetc(ptr) StgForeignPtr ptr; { IOFileObject* fo = (IOFileObject*)ptr; - int l,rc=0; + int rc=0; unsigned char c; #if 0 |