From 47db517c0a3a551b28754110bdac30fb972d700a Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Mon, 16 Mar 2015 08:42:09 +0100
Subject: Adding a primitive to dump the current association table of dynamic
 types.

---
 lib/dyn.ml  | 2 ++
 lib/dyn.mli | 1 +
 2 files changed, 3 insertions(+)

(limited to 'lib')

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
-- 
cgit v1.2.3