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

Add anchor to inliner messages.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-10-11 14:33:55 -04:00
parent 84feb3882d
commit 4538072df6
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/typed-racket/optimizer/tool/mzc.rkt
View File

@ -37,7 +37,7 @@
(define inlining-event-regexp
;; Last bit is `generated?'. We don't care about that.
;; The middle elements of the vector are numbers of #f.
"#\\(([^ ]+) #<path:(.+)> ([^ ]+) ([^ ]+) ([^ ]+) ([^ ]+) [^ ]+\\)")
"involving: #\\(([^ ]+) #<path:(.+)> ([^ ]+) ([^ ]+) ([^ ]+) ([^ ]+) [^ ]+\\)")
(define (inlining-event->forged-stx l)
(match (regexp-match inlining-event-regexp l)

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

@ -1092,7 +1092,7 @@ Scheme_Object *optimize_for_inline(Optimize_Info *info, Scheme_Object *le, int a
scheme_log(NULL,
SCHEME_LOG_WARNING,
0,
"mzc optimizer: inlining: %s%s",
"mzc optimizer: inlining: involving: %s%s",
scheme_write_to_string(data->name ? data->name : scheme_false, NULL),
scheme_optimize_context_to_string(info->context));
le = apply_inlined(le, data, sub_info, argc, app, app2, app3, context,
@ -1105,7 +1105,7 @@ Scheme_Object *optimize_for_inline(Optimize_Info *info, Scheme_Object *le, int a
scheme_log(NULL,
SCHEME_LOG_WARNING,
0,
"mzc optimizer: no inlining: %s%s",
"mzc optimizer: no inlining: involving: %s%s",
scheme_write_to_string(data->name ? data->name : scheme_false, NULL),
scheme_optimize_context_to_string(info->context));
}
@ -1116,7 +1116,7 @@ Scheme_Object *optimize_for_inline(Optimize_Info *info, Scheme_Object *le, int a
scheme_log(NULL,
SCHEME_LOG_WARNING,
0,
"mzc optimizer: no inlining, out of fuel: %s%s",
"mzc optimizer: no inlining, out of fuel: involving: %s%s",
scheme_write_to_string(data->name ? data->name : scheme_false, NULL),
scheme_optimize_context_to_string(info->context));
}