From f57b431c2e6466c6ced577920df2b9ae8c08db6e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 29 Dec 2010 10:39:37 -0700 Subject: [PATCH] JIT: although `values' is inlined, don't count it as "simple" --- src/racket/src/jit.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/racket/src/jit.c b/src/racket/src/jit.c index 25f43403c7..50069275dc 100644 --- a/src/racket/src/jit.c +++ b/src/racket/src/jit.c @@ -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);