gc issues in clear_struct and replace_struct.

* struct.c (clear_struct, reset_struct): Inform the garbage
collector that the structure has been mutate, using the mut
macro. This is required for correctness because the structure
may be a mature object receiving young generation values.

1 files changed, 3 insertions, 0 deletions

diff --git a/struct.c b/struct.c
index f42c685b..f8ed361d 100644
--- a/struct.c
+++ b/struct.c
@@ -599,6 +599,8 @@ val clear_struct(val strct, val value)
   for (i = 0; i < st->nslots; i++)
     si->slot[i] = clear_val;
 
+  mut(strct);
+
   return strct;
 }
 
@@ -621,6 +623,7 @@ val replace_struct(val target, val source)
     free(tsi);
     target->co.handle = coerce(mem_t *, ssi_copy);
     target->co.cls = source->co.cls;
+    mut(target);
   }
 
   return target;