diff options
| author | simonmar <unknown> | 1999-07-01 13:12:09 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 1999-07-01 13:12:09 +0000 |
| commit | eea46a8ce8c8d0f80608e627ae05d7de76baf967 (patch) | |
| tree | abcb237e621f967d60eb7803fc16cd1c0c166d2b | |
| parent | 90779f4452a591f673ad2cca0587f48764381f9e (diff) | |
| download | haskell-eea46a8ce8c8d0f80608e627ae05d7de76baf967.tar.gz | |
[project @ 1999-07-01 13:12:09 by simonmar]
8-bit clarity
| -rw-r--r-- | ghc/lib/std/cbits/readFile.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/lib/std/cbits/readFile.c b/ghc/lib/std/cbits/readFile.c index 8949ba28fb..8956e98f26 100644 --- a/ghc/lib/std/cbits/readFile.c +++ b/ghc/lib/std/cbits/readFile.c @@ -1,7 +1,7 @@ /* * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998 * - * $Id: readFile.c,v 1.4 1999/05/05 10:33:16 sof Exp $ + * $Id: readFile.c,v 1.5 1999/07/01 13:12:09 simonmar Exp $ * * hGetContents Runtime Support */ @@ -278,7 +278,7 @@ StgForeignPtr ptr; { IOFileObject* fo= (IOFileObject*)ptr; int count,rc=0; - char c; + unsigned char c; /* Check if someone hasn't zapped us */ if ( fo == NULL || fo->fd == -1) |