From: Lemmih <lemmih@gmail.com>
Date: Wed, 26 Apr 2006 11:11:43 +0000 (+0000)
Subject: Don't init root pointers if they aren't gonna be used.
X-Git-Tag: Before_FC_branch_merge~521
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=25f1d5c51840bee2deeeb6613451cf3cd80536ea;p=ghc-hetmet.git

Don't init root pointers if they aren't gonna be used.
---

diff --git a/rts/Linker.c b/rts/Linker.c
index 0db2c5e..e1be5e6 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -856,7 +856,7 @@ static void
 addRootObject(void *addr)
 {
   StgWord rt;
-
+  initRootPtrTable();
   if (root_ptr_free == NULL) {
     enlargeRootPtrTable();
   }
@@ -954,7 +954,6 @@ initLinker( void )
       linker_init_done = 1;
     }
 
-    initRootPtrTable();
     stablehash = allocStrHashTable();
     symhash = allocStrHashTable();