bug: heap backpointer assignment in static-slot-ensure.

* struct.c (static_slot_ens_rec): Neglected use of
set macro to store newval in freshly allocated slot,
which means we corrupt garbage collection if this
causes an old generation objet to point to a new
generation object.

1 files changed, 1 insertions, 1 deletions

diff --git a/struct.c b/struct.c
index 29ee89d6..066b6f44 100644
--- a/struct.c
+++ b/struct.c
@@ -987,10 +987,10 @@ static val static_slot_ens_rec(val stype, val sym, val newval,
     stsl = &st->stslot[st->nstslots];
 
     if (inh_stsl == 0) {
-      stsl->store = newval;
       stsl->home_type = stype;
       stsl->home_offs = st->nstslots;
       stsl->home = &stsl->store;
+      set(stslot_loc(stsl), newval);
       if (!opt_compat || opt_compat > 151)
         inh_stsl = stsl;
     } else {