diff options
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 |