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

repair to recent JIT repair

Browse Source 
Fix a jump-mode bug introduced with 3408209f66. The bug is most
visible on PPC.
This commit is contained in:
Matthew Flatt 2015-01-10 19:15:11 -07:00
parent ece9126656
commit 486debd704
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3802,8 +3802,10 @@ static int more_common1(mz_jit_state *jitter, void *_data)
jit_rshi_ul(JIT_R1, JIT_R1, JIT_LOG_WORD_SIZE); jit_rshi_ul(JIT_R1, JIT_R1, JIT_LOG_WORD_SIZE);
jit_movr_i(JIT_R0, JIT_R1); jit_movr_i(JIT_R0, JIT_R1);
reftop = jit_get_ip(); reftop = jit_get_ip();
__END_SHORT_JUMPS__(1);
scheme_generate_non_tail_call(jitter, -1, 0, 1, multi_ok, 0, 0, 1, 0, 0, NULL); scheme_generate_non_tail_call(jitter, -1, 0, 1, multi_ok, 0, 0, 1, 0, 0, NULL);
CHECK_LIMIT(); CHECK_LIMIT();
__START_SHORT_JUMPS__(1);
/***********************************/ /***********************************/
/* slow path: */ /* slow path: */