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

added missing JIT-buffer-overflow checks in new code to inline char=

Browse Source 
svn: r3950
This commit is contained in:
Matthew Flatt 2006-08-03 23:32:48 +00:00
parent ccb210acf4
commit f910f430fa
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/mzscheme/src/jit.c
View File

@ -2638,6 +2638,7 @@ static int generate_binary_char(mz_jit_state *jitter, Scheme_App3_Rec *app,
r1 = app->rand1;
r2 = app->rand2;
generate_two_args(r1, r2, jitter, 1);
CHECK_LIMIT();
__START_SHORT_JUMPS__(branch_short);
@ -2650,6 +2651,7 @@ static int generate_binary_char(mz_jit_state *jitter, Scheme_App3_Rec *app,
mz_patch_branch(pref);
jit_ldxi_s(JIT_R2, JIT_R0, (int)&((Scheme_Object *)0x0)->type);
(void)jit_bnei_i(reffail, JIT_R2, scheme_char_type);
CHECK_LIMIT();
} else {
if (!direct)
direct = (SCHEME_CHAR_VAL(r1) < 256);
@ -2667,6 +2669,7 @@ static int generate_binary_char(mz_jit_state *jitter, Scheme_App3_Rec *app,
}
jit_ldxi_s(JIT_R2, JIT_R1, (int)&((Scheme_Object *)0x0)->type);
(void)jit_bnei_i(reffail, JIT_R2, scheme_char_type);
CHECK_LIMIT();
} else {
if (!direct)
direct = (SCHEME_CHAR_VAL(r2) < 256);
@ -2680,6 +2683,7 @@ static int generate_binary_char(mz_jit_state *jitter, Scheme_App3_Rec *app,
} else {
ref = jit_bner_p(jit_forward(), JIT_R0, JIT_R1);
}
CHECK_LIMIT();
if (for_branch) {
for_branch[0] = ref;
} else {