diff options
| author | Lemmih <lemmih@gmail.com> | 2006-04-26 11:11:43 +0000 |
|---|---|---|
| committer | Lemmih <lemmih@gmail.com> | 2006-04-26 11:11:43 +0000 |
| commit | 25f1d5c51840bee2deeeb6613451cf3cd80536ea (patch) | |
| tree | f190e0bebe7bef07b80e6f69e6855a74893f78ba /rts/Linker.c | |
| parent | aaa34891cb9cd87b803aef8dfc5386545b7a0784 (diff) | |
| download | haskell-25f1d5c51840bee2deeeb6613451cf3cd80536ea.tar.gz | |
Don't init root pointers if they aren't gonna be used.
Diffstat (limited to 'rts/Linker.c')
| -rw-r--r-- | rts/Linker.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/rts/Linker.c b/rts/Linker.c index 0db2c5e38d..e1be5e6eb9 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(); |