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

JIT: skip an unused load

Browse Source
This commit is contained in:
Matthew Flatt 2012-11-12 12:38:35 -07:00
parent d99888d700
commit f1807d2ecc
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/racket/src/jit.c
View File

@ -1421,8 +1421,8 @@ static int generate_non_tail_with_branch(Scheme_Object *obj, mz_jit_state *jitte
LOG_IT(("non-tail\n")); LOG_IT(("non-tail\n"));
if (mark_pos_ends) if (mark_pos_ends)
scheme_generate_non_tail_mark_pos_prefix(jitter); scheme_generate_non_tail_mark_pos_prefix(jitter);
mz_tl_ldi_p(JIT_R2, tl_scheme_current_cont_mark_stack);
if (!jitter->local1_busy) { if (!jitter->local1_busy) {
mz_tl_ldi_p(JIT_R2, tl_scheme_current_cont_mark_stack);
using_local1 = 1; using_local1 = 1;
jitter->local1_busy = save_pushed_marks + 1; jitter->local1_busy = save_pushed_marks + 1;
mz_set_local_p(JIT_R2, JIT_LOCAL1); mz_set_local_p(JIT_R2, JIT_LOCAL1);
@ -1431,6 +1431,7 @@ static int generate_non_tail_with_branch(Scheme_Object *obj, mz_jit_state *jitte
have been pushed */ have been pushed */
using_local1 = 2; using_local1 = 2;
} else { } else {
mz_tl_ldi_p(JIT_R2, tl_scheme_current_cont_mark_stack);
/* mark stack is an integer... turn it into a pointer */ /* mark stack is an integer... turn it into a pointer */
jit_fixnum_l(JIT_R2, JIT_R2); jit_fixnum_l(JIT_R2, JIT_R2);
mz_pushr_p(JIT_R2); /* no sync */ mz_pushr_p(JIT_R2); /* no sync */