I think this fixes SEGV on weak-hashtable-set!

ktakashi · ktakashi · commit 1a5e1c350bf7 · 2025-12-19T10:43:48.000+01:00
diff --git a/src/weak.c b/src/weak.c
@@ -511,7 +511,7 @@ static void weak_hashtable_create_entry(SgHashCore *core, SgHashEntry *e)
 {
   SgObject table = SG_OBJ(core->data);
   if (SG_WEAK_HASHTABLE_WEAKNESS(table) & SG_WEAK_KEY) {
-    SgObject key = SG_OBJ(e->key);
+    volatile SgObject key = SG_OBJ(e->key);
     e->key = (intptr_t)Sg_MakeWeakBox(key);
     /* needed for managing entryCount... */
     Sg_RegisterFinalizer(key, key_finalizer, table);

Original file line number	Diff line number	Diff line change
`@@ -511,7 +511,7 @@ static void weak_hashtable_create_entry(SgHashCore core, SgHashEntry e)`
`511`	`511`	`{`
`512`	`512`	`SgObject table = SG_OBJ(core->data);`
`513`	`513`	`if (SG_WEAK_HASHTABLE_WEAKNESS(table) & SG_WEAK_KEY) {`
`514`		`- SgObject key = SG_OBJ(e->key);`
	`514`	`+ volatile SgObject key = SG_OBJ(e->key);`
`515`	`515`	`e->key = (intptr_t)Sg_MakeWeakBox(key);`
`516`	`516`	`/* needed for managing entryCount... */`
`517`	`517`	`Sg_RegisterFinalizer(key, key_finalizer, table);`