Re: [perl #53890] [BUG] [PATCH] Ordered hash gc bug

[NotFound]

The attached patch makes explicit the assumptions about non-nullness
in parrot_mark_hash and asserts them.

-- 
Salu2

Index: src/hash.c
===================================================================
--- src/hash.c	(revisión: 27411)
+++ src/hash.c	(copia de trabajo)
@@ -299,6 +299,7 @@
 =item C<void parrot_mark_hash>
 
 Marks the hash and its contents as live.
+Assumes that key and value are non null in all buckets.
 
 =cut
 
@@ -337,11 +338,15 @@
                         "Detected hash corruption at hash %p entries %d",
                         hash, (int)entries);
 
-            if (mark_key)
+            if (mark_key) {
+                PARROT_ASSERT(bucket->key);
                 pobject_lives(interp, (PObj *)bucket->key);
+            }
 
-            if (mark_value)
+            if (mark_value) {
+                PARROT_ASSERT(bucket->value);
                 pobject_lives(interp, (PObj *)bucket->value);
+            }
 
             bucket = bucket->next;
         }