Updated interpreters

[projects/chimara/chimara.git] / interpreters / git / glkop.c

diff --git a/interpreters/git/glkop.c b/interpreters/git/glkop.c
index 71452efc51313161fb9ee2c4b87671144b969659..f8c7ff08f696b734075ce8aeb67d2ee6f0d450bb 100644 (file)
--- a/interpreters/git/glkop.c
+++ b/interpreters/git/glkop.c
@@ -1140,6 +1140,9 @@ void glulxe_retained_unregister(void *array, glui32 len,
   if (arref->elemsize != 4 || arref->len != len)
     fatalError("Mismatched array argument in Glk call.");
 
+  *aptr = arref->next;
+  arref->next = NULL;
+
   for (ix=0, addr2=arref->addr; ix<arref->len; ix++, addr2+=4) {
     val = ((glui32 *)array)[ix];
     memWrite32(addr2, val);