mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

Fix positional-arguments<=? compilation

Browse source 
* libguile/jit.c (compile_check_positional_arguments): Fix.
This commit is contained in:
Andy Wingo 2018-09-10 16:28:31 +02:00
parent 18aa995cbb
commit 46fe5b069b
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/jit.c
View file

@ -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),