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

fix JIT-inlined set-cpointer-tag! for non-x86

Browse Source
This commit is contained in:
Matthew Flatt 2015-08-11 15:29:58 -06:00
parent 820ab7126c
commit 13bd013528
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3361,7 +3361,7 @@ static int common13(mz_jit_state *jitter, void *_data)
scheme_jit_register_sub_func(jitter, sjc.slow_cpointer_tag_code, scheme_false);
CHECK_LIMIT();
/* *** slow_cpointer_tag_code *** */
/* *** slow_set_cpointer_tag_code *** */
sjc.slow_set_cpointer_tag_code = jit_get_ip();
mz_prolog(JIT_R2);
JIT_UPDATE_THREAD_RSPTR();

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

@ -3727,7 +3727,7 @@ int scheme_generate_inlined_binary(mz_jit_state *jitter, Scheme_App3_Rec *app, i
__START_TINY_JUMPS__(1);
refdone = jit_jmpi(jit_forward());
mz_patch_branch(ref);
(void)mz_bnei_t(refslow, JIT_R0, scheme_cpointer_type, JIT_R1);
(void)mz_bnei_t(refslow, JIT_R0, scheme_cpointer_type, JIT_R2);
CHECK_LIMIT();
jit_stxi_p((intptr_t)&SCHEME_CPTR_TYPE((Scheme_Object *)0x0), JIT_R0, JIT_R1);