From 1b3949c233e0cbb72651a6ac938c6067531d332c Mon Sep 17 00:00:00 2001 From: Gustavo Massaccesi Date: Thu, 1 Jan 2015 22:35:06 -0300 Subject: [PATCH] Add flags to application in finish_optimize_application3 (finish_optimize_application and finish_optimize_application2 already do this.) --- racket/src/racket/src/optimize.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/racket/src/racket/src/optimize.c b/racket/src/racket/src/optimize.c index 575dd99bc9..5a6ccbc90b 100644 --- a/racket/src/racket/src/optimize.c +++ b/racket/src/racket/src/optimize.c @@ -3347,6 +3347,7 @@ static Scheme_Object *optimize_application3(Scheme_Object *o, Optimize_Info *inf static Scheme_Object *finish_optimize_application3(Scheme_App3_Rec *app, Optimize_Info *info, int context, int rator_flags) { + int flags; Scheme_Object *le; int all_vals = 1; int id_offset = 0; @@ -3586,6 +3587,9 @@ static Scheme_Object *finish_optimize_application3(Scheme_App3_Rec *app, Optimiz register_local_argument_types(NULL, NULL, app, info); + flags = appn_flags(app->rator, info); + SCHEME_APPN_FLAGS(app) |= flags; + return finish_optimize_any_application((Scheme_Object *)app, app->rator, 2, info, context); }