diff options
| author | Pierre-Marie Pédrot | 2015-03-16 08:42:09 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2015-03-16 08:42:09 +0100 |
| commit | 47db517c0a3a551b28754110bdac30fb972d700a (patch) | |
| tree | 971657d32b486ec16a5446f4677dcaf35bb51758 /lib | |
| parent | 1b3759e78f227eb85a128c58b8ce8c11509dd8c3 (diff) | |
Adding a primitive to dump the current association table of dynamic types.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/dyn.ml | 2 | ||||
| -rw-r--r-- | lib/dyn.mli | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/lib/dyn.ml b/lib/dyn.ml index 63def9a1dc..a5e8fb9c2b 100644 --- a/lib/dyn.ml +++ b/lib/dyn.ml @@ -47,3 +47,5 @@ let tag (s,_) = anomaly msg let pointer_equal (t1,o1) (t2,o2) = t1 = t2 && o1 == o2 + +let dump () = Int.Map.bindings !dyntab diff --git a/lib/dyn.mli b/lib/dyn.mli index 4a7134721c..cac912aca1 100644 --- a/lib/dyn.mli +++ b/lib/dyn.mli @@ -14,3 +14,4 @@ val create : string -> ('a -> t) * (t -> 'a) val tag : t -> string val has_tag : t -> string -> bool val pointer_equal : t -> t -> bool +val dump : unit -> (int * string) list |