X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=interpreters%2Fgit%2Fglkop.c;h=f8c7ff08f696b734075ce8aeb67d2ee6f0d450bb;hb=75009f8f40bbb580194e1722db76f4644bf18641;hp=71452efc51313161fb9ee2c4b87671144b969659;hpb=89081782541e85e079f64839ffb26b4e74273eb7;p=projects%2Fchimara%2Fchimara.git

diff --git a/interpreters/git/glkop.c b/interpreters/git/glkop.c
index 71452ef..f8c7ff0 100644
--- 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);