From dff74e03f74fd6fcc2bf31a063c1aa8b871a38ff Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 26 Mar 2018 06:57:02 -0700
Subject: vm: bugfix: faulty memcpy in closure.

* vm.c (vm_make_closure): Add missing scale factor to memcpy.
This is the memcpy which relocates display frame contents from
the stack to the frame.
---
 vm.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'vm.c')

diff --git a/vm.c b/vm.c
index f36652f0..2e42d211 100644
--- a/vm.c
+++ b/vm.c
@@ -244,7 +244,7 @@ static val vm_make_closure(struct vm *vm, int frsz)
         val heap_vec = vector(vec, nil);
         cdi->vec = heap_vec;
         cdi->mem = heap_vec->v.vec;
-        memcpy(heap_vec->v.vec, mem, c_num(vec));
+        memcpy(cdi->mem, mem, sizeof *cdi->mem * c_num(vec));
         mut(closure);
         *sdi = *cdi;
         break;
-- 
cgit v1.2.3