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

fix another bug in JIT handling of `with-continuation-mark'

Browse Source 
Merge to v5.0
This commit is contained in:
Matthew Flatt 2010-05-30 08:20:34 -06:00
parent 6ed0b26f73
commit 9954fe0290
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -11758,6 +11758,10 @@ static int do_generate_common(mz_jit_state *jitter, void *_data)
jit_ldxi_p(JIT_V1, JIT_R0, &((Scheme_Cont_Mark *)0x0)->key);
ref3 = jit_beqr_p(jit_forward(), JIT_V1, JIT_R1); /* => found right destination */
/* Assume that we'll find a record and mutate it. (See scheme_set_cont_mark().) */
(void)jit_movi_p(JIT_R1, NULL);
jit_stxi_p(&((Scheme_Cont_Mark *)0x0)->cache, JIT_R0, JIT_R1);
CHECK_LIMIT();
(void)jit_jmpi(refloop);