From: simonmar <unknown>
Date: Mon, 22 Mar 2004 11:06:18 +0000 (+0000)
Subject: [project @ 2004-03-22 11:06:18 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1947
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=776c0fefa3b3ae9074d5f51ef37c381150726076;p=ghc-hetmet.git

[project @ 2004-03-22 11:06:18 by simonmar]
Fix uninitialised ref.

Submitted by: Julian Seward (who else!)
---

diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index af7291e..d4b8176 100644
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Linker.c,v 1.145 2004/02/15 13:29:44 krasimir Exp $
+ * $Id: Linker.c,v 1.146 2004/03/22 11:06:18 simonmar Exp $
  *
  * (c) The GHC Team, 2000-2003
  *
@@ -948,7 +948,7 @@ loadObj( char *path )
    int r, n;
 #ifdef USE_MMAP
    int fd, pagesize;
-   void *map_addr;
+   void *map_addr = NULL;
 #else
    FILE *f;
 #endif