From b3ea287bcf8be43714595b6921a0c47d25a67eee Mon Sep 17 00:00:00 2001
From: Alasdair Armstrong
Date: Fri, 16 Nov 2018 16:26:35 +0000
Subject: Various bugfixes and a simple profiling feature for rewrites

---
 src/process_file.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/process_file.ml')

diff --git a/src/process_file.ml b/src/process_file.ml
index bb789d0a..53293849 100644
--- a/src/process_file.ml
+++ b/src/process_file.ml
@@ -364,8 +364,10 @@ let output libpath out_arg files =
       output1 libpath out_arg f defs)
     files
 
-let rewrite_step defs (name,rewriter) =
+let rewrite_step defs (name, rewriter) =
+  let t = Profile.start () in
   let defs = rewriter defs in
+  Profile.finish ("rewrite " ^ name) t;
   let _ = match !(opt_ddump_rewrite_ast) with
     | Some (f, i) ->
       begin
-- 
cgit v1.2.3