Merge pull request #279 from alainfrisch/fix_frametables

Attempt to fix a probable bug introduced by GPR#156.

1 files changed, 5 insertions, 2 deletions

diff --git a/asmrun/roots.c b/asmrun/roots.c
index 63fae76539..d6de223738 100644
--- a/asmrun/roots.c
+++ b/asmrun/roots.c
@@ -137,12 +137,15 @@ static void init_frame_descriptors(link *new_frametables)
     caml_frame_descriptors =
       (frame_descr **) caml_stat_alloc(tblsize * sizeof(frame_descr *));
     for (i = 0; i < tblsize; i++) caml_frame_descriptors[i] = NULL;
+
+    fill_hashtable(new_frametables);
   } else {
     num_descr += increase;
+    fill_hashtable(new_frametables);
+    tail->next = frametables;
   }
 
-  fill_hashtable(new_frametables);
-  tail->next = frametables;
+  frametables = new_frametables;
 }
 
 void caml_init_frame_descriptors(void) {