diff options
author | Andy Wingo <wingo@pobox.com> | 2018-09-10 16:28:31 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2018-09-10 16:28:31 +0200 |
commit | 46fe5b069b574e17e4cb47a76a4d9e8f0b6e8bc4 (patch) | |
tree | 20e27a43470fd5ea10524e464b3baeec095aaa6a | |
parent | 18aa995cbb80b6a311809d73c18c8d90a8d9a393 (diff) | |
download | guile-46fe5b069b574e17e4cb47a76a4d9e8f0b6e8bc4.tar.gz |
Fix positional-arguments<=? compilation
* libguile/jit.c (compile_check_positional_arguments): Fix.
-rw-r--r-- | libguile/jit.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/jit.c b/libguile/jit.c index 76a47402c..951b4154e 100644 --- a/libguile/jit.c +++ b/libguile/jit.c @@ -3418,10 +3418,10 @@ compile_check_positional_arguments (scm_jit_state *j, uint32_t nreq, uint32_t ex emit_subtract_stack_slots (j, walk, FP, nreq); head = jit_label (); - emit_subtract_stack_slots (j, walk, walk, 1); - lt = jit_bltr (walk, SP); /* npos > expected if walk < min. */ gt = jit_bltr (walk, min); + emit_subtract_stack_slots (j, walk, walk, 1); + lt = jit_bltr (walk, SP); emit_ldr (j, obj, walk); jit_patch_at (emit_branch_if_immediate (j, obj), head); jit_patch_at (emit_branch_if_heap_object_not_tc7 (j, obj, obj, scm_tc7_keyword), |