From 6b2d99445d35ea71cd24becb7f936e0cc9779d46 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Thu, 8 Feb 2001 08:29:12 +0000
Subject: simplification du make depend; fonctions de stat. util. memoire dans
 certains modules

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1355 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/environ.ml  | 9 +++++++++
 kernel/environ.mli | 4 ++++
 2 files changed, 13 insertions(+)

(limited to 'kernel')

diff --git a/kernel/environ.ml b/kernel/environ.ml
index 0c51f085ef..cb4b1e0034 100644
--- a/kernel/environ.ml
+++ b/kernel/environ.ml
@@ -410,3 +410,12 @@ type unsafe_type_judgment = {
   utj_val : constr;
   utj_type : sorts }
 
+(*s Memory use of an environment. *)
+
+open Printf
+
+let mem env =
+  let glb = env.env_globals in 
+  h 0 [< 'sTR (sprintf "%dk (cst = %dk / ind = %dk / unv = %dk)"
+		 (size_kb env) (size_kb glb.env_constants) 
+		 (size_kb glb.env_inductives) (size_kb env.env_universes)) >]
diff --git a/kernel/environ.mli b/kernel/environ.mli
index bde8823f3e..65a2bb671d 100644
--- a/kernel/environ.mli
+++ b/kernel/environ.mli
@@ -177,3 +177,7 @@ type unsafe_judgment = {
 type unsafe_type_judgment = { 
   utj_val : constr;
   utj_type : sorts }
+
+(*s Displays the memory use of an environment. *)
+
+val mem : env -> Pp.std_ppcmds
-- 
cgit v1.2.3