suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

JIT: add missing check on inlined `procedure-arity-includes?'

Browse Source 
Closes PR 13951
This commit is contained in:
Matthew Flatt 2013-08-08 17:56:08 -07:00
parent 983188e07d
commit 9068341cb9
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/racket-pkgs/racket-test/tests/racket/optimize.rktl
View File

@ -846,7 +846,7 @@
(lambda () v) 0 "other"
(lambda () (test 77 unbox v))))
(bin-exact #t 'procedure-arity-includes? cons 2)
(bin-exact #t 'procedure-arity-includes? cons 2 #t)
(bin-exact #f 'procedure-arity-includes? cons 1)
(bin-exact #f 'procedure-arity-includes? cons 3)
(bin-exact #t 'procedure-arity-includes? car 1)

2
racket/src/racket/src/jitcommon.c
View File

@ -2950,6 +2950,8 @@ static int common10(mz_jit_state *jitter, void *_data)
mz_patch_branch(ref);
(void)jit_blti_l(refslow, JIT_R1, 0);
(void)jit_bmsi_l(refslow, JIT_R0, 0x1);
jit_ldxi_s(JIT_R2, JIT_R0, &((Scheme_Object *)0x0)->type);
ref_nc = jit_beqi_i(jit_forward(), JIT_R2, scheme_native_closure_type);
ref_prim = jit_beqi_i(jit_forward(), JIT_R2, scheme_prim_type);