diff options
author | Andy Wingo <wingo@pobox.com> | 2018-08-24 16:19:51 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2018-08-24 16:19:51 +0200 |
commit | 9574245676c920e4c57fd02e6f6f7444dffde180 (patch) | |
tree | 44dbd7f75e69309246e9516318731b692103310e | |
parent | d0c9d20626d8b8f82646bf1811398de3c49d1551 (diff) | |
download | guile-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.c | 3 |
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); |