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

Log inlinings that were close to happening.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-10-12 13:55:04 -04:00
parent c2018e3710
commit 9424c843ef
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1141,6 +1141,16 @@ Scheme_Object *optimize_for_inline(Optimize_Info *info, Scheme_Object *le, int a
if (psize) { if (psize) {
LOG_INLINE(fprintf(stderr, "Potential inline %d %d\n", psize, info->inline_fuel * (argc + 2))); LOG_INLINE(fprintf(stderr, "Potential inline %d %d\n", psize, info->inline_fuel * (argc + 2)));
/* We're "close" to inlining. Report to the user. */
if (psize > info->inline_fuel /* We did not inline */
&& psize <= (2 * info->inline_fuel))
scheme_log(NULL,
SCHEME_LOG_WARNING,
0,
"mzc optimizer: close call%s, fuel: %d, potential size: %d",
scheme_optimize_context_to_string(info->context),
info->inline_fuel,
psize);
/* If we inline, the enclosing function will get larger, so we increase /* If we inline, the enclosing function will get larger, so we increase
its potential size. */ its potential size. */
if (psize <= (info->inline_fuel * (argc + 2))) if (psize <= (info->inline_fuel * (argc + 2)))