From 0ae21d80362c502f0830e0d8cfd25e4ee9a6c028 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Fri, 21 Oct 2011 13:12:41 -0400 Subject: [PATCH] Have inlining logs be produced at the debug level, like the TR opt logs. --- src/racket/src/optimize.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/racket/src/optimize.c b/src/racket/src/optimize.c index 5b9e69b6c2..4bab5e73e3 100644 --- a/src/racket/src/optimize.c +++ b/src/racket/src/optimize.c @@ -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, single_use, scheme_write_to_string(data->name ? data->name : scheme_false, NULL))); scheme_log(NULL, - SCHEME_LOG_WARNING, + SCHEME_LOG_DEBUG, 0, "mzc optimizer: inlining: involving: %s%s size: %d threshold: %d", 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 { LOG_INLINE(fprintf(stderr, "No inline %s\n", scheme_write_to_string(data->name ? data->name : scheme_false, NULL))); scheme_log(NULL, - SCHEME_LOG_WARNING, + SCHEME_LOG_DEBUG, 0, "mzc optimizer: no inlining: involving: %s%s size: %d threshold: %d", 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, info->inline_fuel, info->use_psize)); scheme_log(NULL, - SCHEME_LOG_WARNING, + SCHEME_LOG_DEBUG, 0, "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),