diff options
| author |  filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-02-08 08:29:12 +0000 |
|---|---|---|
| committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-02-08 08:29:12 +0000 |
| commit | 6b2d99445d35ea71cd24becb7f936e0cc9779d46 (patch) | |
| tree | d16266e4a50ca83c2629e9e011c4d85fd5390690 /kernel | |
| parent | cb2fff45e8a936b30ba1351f37b785f8f8ec8b98 (diff) | |
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
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/environ.ml | 9 | ||||
| -rw-r--r-- | kernel/environ.mli | 4 |
2 files changed, 13 insertions, 0 deletions
diff --git a/kernel/environ.ml b/kernel/environ.ml index 0c51f085e..cb4b1e003 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 bde8823f3..65a2bb671 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 |