From 5f2459145cb90d7d52cfde1d4ed7719dde1dfdc0 Mon Sep 17 00:00:00 2001 From: Graydon Hoare Date: Fri, 8 Oct 2010 14:54:51 -0700 Subject: Add -lpath mechanism for logging only a subset of a pass (by module-path prefix) --- src/boot/me/alias.ml | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/boot/me/alias.ml') diff --git a/src/boot/me/alias.ml b/src/boot/me/alias.ml index 27575324..e109f82b 100644 --- a/src/boot/me/alias.ml +++ b/src/boot/me/alias.ml @@ -2,7 +2,7 @@ open Semant;; open Common;; let log cx = Session.log "alias" - cx.ctxt_sess.Session.sess_log_alias + (should_log cx cx.ctxt_sess.Session.sess_log_alias) cx.ctxt_sess.Session.sess_log_out ;; @@ -110,14 +110,13 @@ let process_crate (cx:ctxt) (crate:Ast.crate) : unit = - let path = Stack.create () in let passes = [| (alias_analysis_visitor cx Walk.empty_visitor); |] in - run_passes cx "alias" path passes + run_passes cx "alias" passes cx.ctxt_sess.Session.sess_log_alias log crate ;; -- cgit v1.2.3