From: simonmar <unknown>
Date: Tue, 21 Mar 2000 17:41:02 +0000 (+0000)
Subject: [project @ 2000-03-21 17:41:02 by simonmar]
X-Git-Tag: Approximately_9120_patches~4933
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b0caf11c7f8761fd604e2cf9d0c363b9ccb7736f;p=ghc-hetmet.git

[project @ 2000-03-21 17:41:02 by simonmar]
What happened to gcc's "uninitialised variable" warnings when I needed
them?
---

diff --git a/ghc/lib/std/cbits/readFile.c b/ghc/lib/std/cbits/readFile.c
index 69e608b..ee968ff 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.12 2000/03/21 11:22:35 simonmar Exp $
+ * $Id: readFile.c,v 1.13 2000/03/21 17:41:02 simonmar Exp $
  *
  * hGetContents Runtime Support
  */
@@ -120,7 +120,7 @@ StgInt
 readChunk(StgForeignPtr ptr, StgAddr buf, StgInt off, StgInt len)
 {
     IOFileObject* fo = (IOFileObject*)ptr;
-    int count=0,rc=0, total_count;
+    int count, rc=0, total_count=0;
     int fd;
     char* p;