From 25f1d5c51840bee2deeeb6613451cf3cd80536ea Mon Sep 17 00:00:00 2001
From: Lemmih <lemmih@gmail.com>
Date: Wed, 26 Apr 2006 11:11:43 +0000
Subject: [PATCH] Don't init root pointers if they aren't gonna be used.

---
 rts/Linker.c |    3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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();
 
-- 
1.7.10.4