diff options
| author | Graydon Hoare <[email protected]> | 2010-10-08 14:54:51 -0700 |
|---|---|---|
| committer | Graydon Hoare <[email protected]> | 2010-10-08 14:54:51 -0700 |
| commit | 5f2459145cb90d7d52cfde1d4ed7719dde1dfdc0 (patch) | |
| tree | 7f2305524744f4b7fb02469f3c9ab0e64b4c9577 /src/boot/me/effect.ml | |
| parent | rustc: Make functions output a type, not a slot (diff) | |
| download | rust-5f2459145cb90d7d52cfde1d4ed7719dde1dfdc0.tar.xz rust-5f2459145cb90d7d52cfde1d4ed7719dde1dfdc0.zip | |
Add -lpath mechanism for logging only a subset of a pass (by module-path prefix)
Diffstat (limited to 'src/boot/me/effect.ml')
| -rw-r--r-- | src/boot/me/effect.ml | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/boot/me/effect.ml b/src/boot/me/effect.ml index d6cfefb8..8a8292d9 100644 --- a/src/boot/me/effect.ml +++ b/src/boot/me/effect.ml @@ -2,12 +2,12 @@ open Semant;; open Common;; let log cx = Session.log "effect" - cx.ctxt_sess.Session.sess_log_effect + (should_log cx cx.ctxt_sess.Session.sess_log_effect) cx.ctxt_sess.Session.sess_log_out ;; let iflog cx thunk = - if cx.ctxt_sess.Session.sess_log_effect + if (should_log cx cx.ctxt_sess.Session.sess_log_effect) then thunk () else () ;; @@ -315,7 +315,6 @@ let process_crate (cx:ctxt) (crate:Ast.crate) : unit = - let path = Stack.create () in let item_auth = Hashtbl.create 0 in let item_effect = Hashtbl.create 0 in let passes = @@ -340,7 +339,7 @@ let process_crate else err (Some id) "auth clause in crate refers to non-item" in Hashtbl.iter auth_effect crate.node.Ast.crate_auth; - run_passes cx "effect" path passes + run_passes cx "effect" passes cx.ctxt_sess.Session.sess_log_effect log crate ;; |