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

extract types for branch when the tests is (not <expr>)

Browse Source 
In some cases, complex variants of (if (not <expr>) tb fb) are not reduced.
Extract the type information of the tests in <expr> to use it in tb and fb.
This commit is contained in:
Gustavo Massaccesi 2016-03-22 16:04:48 -03:00
parent df157cdfd0
commit cff10bc5a8
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4652,6 +4652,9 @@ static void add_types_for_t_branch(Scheme_Object *t, Optimize_Info *info, int fu
operations to unsafe operations. */ operations to unsafe operations. */
add_type(info, app->rand, app->rator); add_type(info, app->rand, app->rator);
} }
if (SAME_OBJ(app->rator, scheme_not_proc)) {
add_types_for_f_branch(app->rand, info, fuel-1);
}
} else if (SAME_TYPE(SCHEME_TYPE(t), scheme_application3_type)) { } else if (SAME_TYPE(SCHEME_TYPE(t), scheme_application3_type)) {
Scheme_App3_Rec *app = (Scheme_App3_Rec *)t; Scheme_App3_Rec *app = (Scheme_App3_Rec *)t;
@ -4697,6 +4700,9 @@ static void add_types_for_f_branch(Scheme_Object *t, Optimize_Info *info, int fu
if (SAME_TYPE(SCHEME_TYPE(t), scheme_ir_local_type)) { if (SAME_TYPE(SCHEME_TYPE(t), scheme_ir_local_type)) {
add_type(info, t, scheme_not_proc); add_type(info, t, scheme_not_proc);
if (SAME_OBJ(app->rator, scheme_not_proc)) {
add_types_for_t_branch(app->rand, info, fuel-1);
}
} else if (SAME_TYPE(SCHEME_TYPE(t), scheme_branch_type)) { } else if (SAME_TYPE(SCHEME_TYPE(t), scheme_branch_type)) {
Scheme_Branch_Rec *b = (Scheme_Branch_Rec *)t; Scheme_Branch_Rec *b = (Scheme_Branch_Rec *)t;