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

JIT: although `values' is inlined, don't count it as "simple"

Browse Source
This commit is contained in:
Matthew Flatt 2010-12-29 10:39:37 -07:00
parent fb42102c62
commit f57b431c2e
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

@ -2480,7 +2480,8 @@ static int is_simple(Scheme_Object *obj, int depth, int just_markless, mz_jit_st
}
break;
case scheme_application3_type:
if (inlined_binary_prim(((Scheme_App2_Rec *)obj)->rator, obj, jitter))
if (inlined_binary_prim(((Scheme_App2_Rec *)obj)->rator, obj, jitter)
&& !SAME_OBJ(((Scheme_App2_Rec *)obj)->rator, scheme_values_func))
return 1;
else if (just_markless) {
return is_noncm(((Scheme_App3_Rec *)obj)->rator, jitter, depth, stack_start + 2);