projects
/
projects
/
chimara
/
chimara.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' of ssh://git.stderr.nl/projects/chimara/chimara
[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.");
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);
for (ix=0, addr2=arref->addr; ix<arref->len; ix++, addr2+=4) {
val = ((glui32 *)array)[ix];
memWrite32(addr2, val);