From 52c3aea2d3a9e03c307166ec667bc7ad90ae4fed Mon Sep 17 00:00:00 2001
From: mdenes
Date: Mon, 25 Mar 2013 09:33:01 +0000
Subject: Native compiler: timing info for reification in debug mode.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16357 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/nativenorm.ml | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/pretyping/nativenorm.ml b/pretyping/nativenorm.ml
index 8877733119..9a2a8dce75 100644
--- a/pretyping/nativenorm.ml
+++ b/pretyping/nativenorm.ml
@@ -348,5 +348,9 @@ let native_norm env c ty =
         let t1 = Sys.time () in
         let time_info = Format.sprintf "Evaluation done in %.5f@." (t1 -. t0) in
         if !Flags.debug then Pp.msg_debug (Pp.str time_info);
-        nf_val env !Nativelib.rt1 ty
+        let res = nf_val env !Nativelib.rt1 ty in
+        let t2 = Sys.time () in
+        let time_info = Format.sprintf "Reification done in %.5f@." (t2 -. t1) in
+        if !Flags.debug then Pp.msg_debug (Pp.str time_info);
+        res
     | _ -> anomaly (Pp.str "Compilation failure") 
-- 
cgit v1.2.3