summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2018-04-25 09:23:56 -0700
committerKaz Kylheku <kaz@kylheku.com>2018-04-25 09:23:56 -0700
commit2d613eee0e40938ae3b136ff093deab2814bafaf (patch)
treeb9a4baa873bbeff8211b221c0845bf83ca88df24
parent8b7d03c3e8d1c936ecc8329f5993e46a4a65b945 (diff)
downloadtxr-2d613eee0e40938ae3b136ff093deab2814bafaf.tar.gz
txr-2d613eee0e40938ae3b136ff093deab2814bafaf.tar.bz2
txr-2d613eee0e40938ae3b136ff093deab2814bafaf.zip
vm: null out variable arg list.
* vm.c (vm_execute_closure): Null out the vargs local to prevent spurious retention.
-rw-r--r--vm.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/vm.c b/vm.c
index b615e31d..29f60b8f 100644
--- a/vm.c
+++ b/vm.c
@@ -1063,7 +1063,7 @@ val vm_execute_closure(val fun, struct args *args)
vreg = vm_arg_operand_hi(argw);
}
- vm_set(dspl, vreg, vargs);
+ vm_set(dspl, vreg, z(vargs));
}
return vm_execute(&vm);