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

optimizer: Remove unused flag added in d14b4a8

Browse Source
This commit is contained in:
Gustavo Massaccesi 2014-08-23 17:06:32 -03:00 committed by Matthew Flatt
parent a6ca926aad
commit fdf1a1f7ae
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1662,7 +1662,7 @@ Scheme_Object *optimize_for_inline(Optimize_Info *info, Scheme_Object *le, int a
{
int offset = 0, single_use = 0, psize = 0;
Scheme_Object *bad_app = NULL, *prev = NULL, *orig_le = le;
int nested = 0, nested_count = 0, outside_nested = 0, already_opt = optimized_rator, nonleaf;
int nested_count = 0, outside_nested = 0, already_opt = optimized_rator, nonleaf;
if ((info->inline_fuel < 0) && info->has_nonleaf)
return NULL;
@ -1683,15 +1683,11 @@ Scheme_Object *optimize_for_inline(Optimize_Info *info, Scheme_Object *le, int a
le = ((Scheme_Compiled_Let_Value *)le)->body;
}
nested_count += lh->count;
if (lh->count)
nested = 1;
} else if (SAME_TYPE(SCHEME_TYPE(le), scheme_sequence_type)) {
Scheme_Sequence *seq = (Scheme_Sequence *)le;
if (seq->count) {
prev = le;
le = seq->array[seq->count-1];
if (seq->count > 1)
nested = 1;
} else
break;
} else