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

Add flags to application in finish_optimize_application3

Browse Source 
(finish_optimize_application and finish_optimize_application2 already do this.)
This commit is contained in:
Gustavo Massaccesi 2015-01-01 22:35:06 -03:00 committed by Matthew Flatt
parent feb8f10165
commit 1b3949c233
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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) static Scheme_Object *finish_optimize_application3(Scheme_App3_Rec *app, Optimize_Info *info, int context, int rator_flags)
{ {
int flags;
Scheme_Object *le; Scheme_Object *le;
int all_vals = 1; int all_vals = 1;
int id_offset = 0; 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); 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, return finish_optimize_any_application((Scheme_Object *)app, app->rator, 2,
info, context); info, context);
} }