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

fix JIT bug related to ignored `let' bindings

Browse Source 
Closes PR 11380
This commit is contained in:
Matthew Flatt 2010-11-03 06:44:57 -06:00
parent bd0ebc7511
commit aaafe86dd0
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -251,6 +251,7 @@ typedef struct {
#define mz_RECORD_STATUS(s) (jitter->status_at_ptr = _jit.x.pc, jitter->reg_status = (s)) #define mz_RECORD_STATUS(s) (jitter->status_at_ptr = _jit.x.pc, jitter->reg_status = (s))
#define mz_CURRENT_STATUS() ((jitter->status_at_ptr == _jit.x.pc) ? jitter->reg_status : 0) #define mz_CURRENT_STATUS() ((jitter->status_at_ptr == _jit.x.pc) ? jitter->reg_status : 0)
#define mz_CLEAR_STATUS() (jitter->reg_status = 0)
#define mz_RS_R0_HAS_RUNSTACK0 0x1 #define mz_RS_R0_HAS_RUNSTACK0 0x1
@ -9702,6 +9703,7 @@ static int generate_non_tail_with_branch(Scheme_Object *obj, mz_jit_state *jitte
CHECK_LIMIT(); CHECK_LIMIT();
mz_flostack_restore(jitter, flostack, flostack_pos, !for_branch, 1); mz_flostack_restore(jitter, flostack, flostack_pos, !for_branch, 1);
FOR_LOG(--jitter->log_depth); FOR_LOG(--jitter->log_depth);
mz_CLEAR_STATUS();
return v; return v;
} }
@ -9790,6 +9792,7 @@ static int generate_non_tail_with_branch(Scheme_Object *obj, mz_jit_state *jitte
} }
jitter->pushed_marks = save_pushed_marks; jitter->pushed_marks = save_pushed_marks;
mz_CLEAR_STATUS();
END_JIT_DATA(21); END_JIT_DATA(21);
} }