diff options
author | alainfrisch <alain@frisch.fr> | 2015-11-03 23:09:33 +0100 |
---|---|---|
committer | alainfrisch <alain@frisch.fr> | 2015-11-03 23:09:33 +0100 |
commit | 10b4f8d213bf93e46acd0f691a2499f724fd63e7 (patch) | |
tree | 0ea3a26531aedf2c16d97da95f6f6604364290e1 | |
parent | a1d67391633638cd9c592a783b81ef340fac6048 (diff) | |
download | ocaml-10b4f8d213bf93e46acd0f691a2499f724fd63e7.tar.gz |
Attempt to fix a probable bug introduced by GPR#156.
-rw-r--r-- | asmrun/roots.c | 7 |
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) { |