projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1999-07-01 13:12:09 by simonmar]
[ghc-hetmet.git]
/
ghc
/
lib
/
std
/
cbits
/
readFile.c
diff --git
a/ghc/lib/std/cbits/readFile.c
b/ghc/lib/std/cbits/readFile.c
index
8949ba2
..
8956e98
100644
(file)
--- 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
*
/*
* (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
*/
*
* hGetContents Runtime Support
*/
@@
-278,7
+278,7
@@
StgForeignPtr ptr;
{
IOFileObject* fo= (IOFileObject*)ptr;
int count,rc=0;
{
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)
/* Check if someone hasn't zapped us */
if ( fo == NULL || fo->fd == -1)