From 4168c1dcdaf4cdde860633ea95e0d92d8e116128 Mon Sep 17 00:00:00 2001
From: Graydon Hoare <graydon@mozilla.com>
Date: Tue, 5 Oct 2010 18:10:33 -0700
Subject: Add -lpasses for logging just the progress of passes.

---
 src/boot/me/semant.ml | 25 ++++++++++++++++++++++++-
 1 file changed, 24 insertions(+), 1 deletion(-)

(limited to 'src/boot/me')

diff --git a/src/boot/me/semant.ml b/src/boot/me/semant.ml
index 27524573..d692f334 100644
--- a/src/boot/me/semant.ml
+++ b/src/boot/me/semant.ml
@@ -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
-- 
cgit v1.2.3