summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2018-08-24 16:19:51 +0200
committerAndy Wingo <wingo@pobox.com>2018-08-24 16:19:51 +0200
commit9574245676c920e4c57fd02e6f6f7444dffde180 (patch)
tree44dbd7f75e69309246e9516318731b692103310e
parentd0c9d20626d8b8f82646bf1811398de3c49d1551 (diff)
downloadguile-9574245676c920e4c57fd02e6f6f7444dffde180.tar.gz
Fix again the unknown-filling of alloc-frame
* libguile/jit.c (compile_alloc_frame): Yet another fix, because I am an idiot.
-rw-r--r--libguile/jit.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/jit.c b/libguile/jit.c
index c71c52c19..f2fcdb9b4 100644
--- a/libguile/jit.c
+++ b/libguile/jit.c
@@ -1308,10 +1308,9 @@ 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));
+ jit_str (T3_PRESERVED, T0);
back = jit_bner (T3_PRESERVED, SP);
jit_patch_at (back, head);
jit_patch (k);