mikros/rust
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add -lpasses for logging just the progress of passes.

Browse Source
This commit is contained in:
Graydon Hoare 2010-10-05 18:10:33 -07:00
parent cdf67b1f2e
commit 4168c1dcda
3 changed files with 28 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/boot/driver/main.ml
View File

@ -32,6 +32,7 @@ let (sess:Session.sess) =
Session.sess_log_lex = false;
Session.sess_log_parse = false;
Session.sess_log_ast = false;
Session.sess_log_passes = false;
Session.sess_log_resolve = false;
Session.sess_log_type = false;
Session.sess_log_simplify = false;
@ -162,6 +163,8 @@ let argspecs =
"-lparse" "log parsing");
(flag (fun _ -> sess.Session.sess_log_ast <- true)
"-last" "log AST");
(flag (fun _ -> sess.Session.sess_log_passes <- true)
"-lpasses" "log passes at high-level");
(flag (fun _ -> sess.Session.sess_log_resolve <- true)
"-lresolve" "log resolution");
(flag (fun _ -> sess.Session.sess_log_type <- true)

1
src/boot/driver/session.ml
View File

@ -18,6 +18,7 @@ type sess =
mutable sess_log_lex: bool;
mutable sess_log_parse: bool;
mutable sess_log_ast: bool;
mutable sess_log_passes: bool;
mutable sess_log_resolve: bool;
mutable sess_log_type: bool;
mutable sess_log_simplify: bool;

25
src/boot/me/semant.ml
View File

@ -1719,24 +1719,44 @@ let mod_item_logging_visitor
: Walk.
visitor =
let entering _ =
if cx.ctxt_sess.Session.sess_log_passes
then
Session.log "pass" true cx.ctxt_sess.Session.sess_log_out
"pass %d: entering %a"
pass Ast.sprintf_name (path_to_name path);
if log_flag
then
log cx "pass %d: entering %a"
pass Ast.sprintf_name (path_to_name path)
in
let entered _ =
if cx.ctxt_sess.Session.sess_log_passes
then
Session.log "pass" true cx.ctxt_sess.Session.sess_log_out
"pass %d: entered %a"
pass Ast.sprintf_name (path_to_name path);
if log_flag
then
log cx "pass %d: entered %a"
pass Ast.sprintf_name (path_to_name path)
in
let leaving _ =
if cx.ctxt_sess.Session.sess_log_passes
then
Session.log "pass" true cx.ctxt_sess.Session.sess_log_out
"pass %d: leaving %a"
pass Ast.sprintf_name (path_to_name path);
if log_flag
then
log cx "pass %d: leaving %a"
pass Ast.sprintf_name (path_to_name path)
in
let left _ =
if cx.ctxt_sess.Session.sess_log_passes
then
Session.log "pass" true cx.ctxt_sess.Session.sess_log_out
"pass %d: left %a"
pass Ast.sprintf_name (path_to_name path);
if log_flag
then
log cx "pass %d: left %a"
@ -2031,7 +2051,10 @@ let run_passes
(crate:Ast.crate)
: unit =
let do_pass i pass =
Walk.walk_crate
if cx.ctxt_sess.Session.sess_log_passes
then Session.log "pass" true cx.ctxt_sess.Session.sess_log_out
"starting pass %s # %d" name i;
Walk.walk_crate
(Walk.path_managing_visitor path
(mod_item_logging_visitor cx log_flag log i path pass))
crate