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

JIT: fix fast path for with-continuation-mark

Browse Source 
Incorrect bitwise shift caused a fast-path test to be too
conservative.
This commit is contained in:
Matthew Flatt 2014-02-04 16:14:48 -07:00
parent 755998ba82
commit 0eb9975f66
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2606,7 +2606,7 @@ static int common6(mz_jit_state *jitter, void *_data)
mz_patch_branch(ref2);
mz_patch_branch(ref7);
(void)mz_tl_ldi_p(JIT_R2, tl_scheme_current_cont_mark_stack);
jit_rshi_l(JIT_V1, JIT_R2, SCHEME_LOG_MARK_SEGMENT_SIZE - JIT_LOG_WORD_SIZE);
jit_rshi_l(JIT_V1, JIT_R2, SCHEME_LOG_MARK_SEGMENT_SIZE);
(void)mz_tl_ldi_p(JIT_R1, tl_scheme_current_thread);
jit_ldxi_l(JIT_R0, JIT_R1, &((Scheme_Thread *)0x0)->cont_mark_seg_count);
ref4 = jit_bger_i(jit_forward(), JIT_V1, JIT_R0); /* => take slow path */