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

Have inlining logs be produced at the debug level, like the TR opt logs.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-10-21 13:12:41 -04:00
parent 78355b6398
commit 0ae21d8036
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1090,7 +1090,7 @@ Scheme_Object *optimize_for_inline(Optimize_Info *info, Scheme_Object *le, int a
LOG_INLINE(fprintf(stderr, "Inline %d[%d]<=%d@%d %d %s\n", sz, is_leaf, threshold, info->inline_fuel, LOG_INLINE(fprintf(stderr, "Inline %d[%d]<=%d@%d %d %s\n", sz, is_leaf, threshold, info->inline_fuel,
single_use, scheme_write_to_string(data->name ? data->name : scheme_false, NULL))); single_use, scheme_write_to_string(data->name ? data->name : scheme_false, NULL)));
scheme_log(NULL, scheme_log(NULL,
SCHEME_LOG_WARNING, SCHEME_LOG_DEBUG,
0, 0,
"mzc optimizer: inlining: involving: %s%s size: %d threshold: %d", "mzc optimizer: inlining: involving: %s%s size: %d threshold: %d",
scheme_write_to_string(data->name ? data->name : scheme_false, NULL), scheme_write_to_string(data->name ? data->name : scheme_false, NULL),
@ -1105,7 +1105,7 @@ Scheme_Object *optimize_for_inline(Optimize_Info *info, Scheme_Object *le, int a
} else { } else {
LOG_INLINE(fprintf(stderr, "No inline %s\n", scheme_write_to_string(data->name ? data->name : scheme_false, NULL))); LOG_INLINE(fprintf(stderr, "No inline %s\n", scheme_write_to_string(data->name ? data->name : scheme_false, NULL)));
scheme_log(NULL, scheme_log(NULL,
SCHEME_LOG_WARNING, SCHEME_LOG_DEBUG,
0, 0,
"mzc optimizer: no inlining: involving: %s%s size: %d threshold: %d", "mzc optimizer: no inlining: involving: %s%s size: %d threshold: %d",
scheme_write_to_string(data->name ? data->name : scheme_false, NULL), scheme_write_to_string(data->name ? data->name : scheme_false, NULL),
@ -1118,7 +1118,7 @@ Scheme_Object *optimize_for_inline(Optimize_Info *info, Scheme_Object *le, int a
sz, is_leaf, threshold, sz, is_leaf, threshold,
info->inline_fuel, info->use_psize)); info->inline_fuel, info->use_psize));
scheme_log(NULL, scheme_log(NULL,
SCHEME_LOG_WARNING, SCHEME_LOG_DEBUG,
0, 0,
"mzc optimizer: no inlining, out of fuel: involving: %s%s size: %d threshold: %d", "mzc optimizer: no inlining, out of fuel: involving: %s%s size: %d threshold: %d",
scheme_write_to_string(data->name ? data->name : scheme_false, NULL), scheme_write_to_string(data->name ? data->name : scheme_false, NULL),