From 5f2459145cb90d7d52cfde1d4ed7719dde1dfdc0 Mon Sep 17 00:00:00 2001
From: Graydon Hoare <graydon@mozilla.com>
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/dead.ml | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/boot/me/dead.ml')

diff --git a/src/boot/me/dead.ml b/src/boot/me/dead.ml
index a0b666b3..29a8d86b 100644
--- a/src/boot/me/dead.ml
+++ b/src/boot/me/dead.ml
@@ -7,7 +7,7 @@ open Semant;;
 open Common;;
 
 let log cx = Session.log "dead"
-  cx.ctxt_sess.Session.sess_log_dead
+  (should_log cx cx.ctxt_sess.Session.sess_log_dead)
   cx.ctxt_sess.Session.sess_log_out
 ;;
 
@@ -99,7 +99,6 @@ let process_crate
     (cx:ctxt)
     (crate:Ast.crate)
     : unit =
-  let path = Stack.create () in
   let passes =
     [|
       (dead_code_visitor cx
@@ -107,7 +106,7 @@ let process_crate
     |]
   in
 
-    run_passes cx "dead" path passes
+    run_passes cx "dead" passes
       cx.ctxt_sess.Session.sess_log_dead log crate;
     ()
 ;;
-- 
cgit v1.2.3