summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlain Frisch <alain@frisch.fr>2015-11-05 09:20:47 +0100
committerAlain Frisch <alain@frisch.fr>2015-11-05 09:20:47 +0100
commit3cc393258482a304f70c7fc0fb16f0a279f10db7 (patch)
tree607fea51001987e8e373a32a42a5a9be084a3c37
parentf32db119ceca50e4d9a64f736a38e0391f979098 (diff)
parent10b4f8d213bf93e46acd0f691a2499f724fd63e7 (diff)
downloadocaml-3cc393258482a304f70c7fc0fb16f0a279f10db7.tar.gz
Merge pull request #279 from alainfrisch/fix_frametables
Attempt to fix a probable bug introduced by GPR#156.
-rw-r--r--asmrun/roots.c7
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) {