summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2018-03-22 20:56:03 -0700
committerKaz Kylheku <kaz@kylheku.com>2018-03-22 20:56:03 -0700
commite8f3a9d06b1b777d2857e9939ce0cd3c2da49e09 (patch)
tree3ac8416f3342da4425043ea66324b770eb49ab97
parent07bc53f2f5736ee0ecc5f152432446e7b4a200f8 (diff)
downloadtxr-e8f3a9d06b1b777d2857e9939ce0cd3c2da49e09.tar.gz
txr-e8f3a9d06b1b777d2857e9939ce0cd3c2da49e09.tar.bz2
txr-e8f3a9d06b1b777d2857e9939ce0cd3c2da49e09.zip
vm: initialize vd->funvec to nil.
* vm.c (vm_make_desc): Initialize vd->funvec to nil so that when the object is created, it doesn't have a garbage field. However, there is no risk here that the field will be traversed by the garbage collector, since immediately after allocating the objct, we initialize the fields.
-rw-r--r--vm.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/vm.c b/vm.c
index 913fb60c..9f0ff266 100644
--- a/vm.c
+++ b/vm.c
@@ -147,6 +147,7 @@ val vm_make_desc(val nlevels, val nregs, val bytecode,
vd->bytecode = nil;
vd->datavec = nil;
+ vd->funvec = nil;
vd->frsz = nlvl * 2 + nreg;