summaryrefslogtreecommitdiff
path: root/libguile/jit.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2018-08-24 12:14:29 +0200
committerAndy Wingo <wingo@pobox.com>2018-08-24 12:14:29 +0200
commit02a9e76b57dda9620ba87c13a3e993673809c48c (patch)
treefbbebff5af9a285e45b1a72f1be854eec915f780 /libguile/jit.c
parent56030799952f32cf0a6feedeca5030edb99ef7dc (diff)
downloadguile-02a9e76b57dda9620ba87c13a3e993673809c48c.tar.gz
Fix bug in compile-alloc-frame
* libguile/jit.c (compile_alloc_frame): Fix alloc-frame filling in of undefined values for when previous frame size was unknown.
Diffstat (limited to 'libguile/jit.c')
-rw-r--r--libguile/jit.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/jit.c b/libguile/jit.c
index d5d2a20c9..bee04db01 100644
--- a/libguile/jit.c
+++ b/libguile/jit.c
@@ -1308,6 +1308,7 @@ compile_alloc_frame (scm_jit_state *j, uint32_t nlocals)
jit_node_t *head, *k, *back;
jit_movi (T0, SCM_UNPACK (SCM_UNDEFINED));
k = jit_bler (T3_PRESERVED, SP);
+ jit_subi (T3_PRESERVED, T3_PRESERVED, sizeof (union scm_vm_stack_element));
head = jit_label ();
jit_str (T3_PRESERVED, T0);
jit_subi (T3_PRESERVED, T3_PRESERVED, sizeof (union scm_vm_stack_element));