diff options
| author | Enrico Tassi | 2019-01-10 14:25:02 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2019-01-24 17:09:12 +0100 |
| commit | 9f347ed90495bcde875a5c3646f2291834118a84 (patch) | |
| tree | fe497f9cfad16c2fb728001aae544f2c0881d4b4 /lib | |
| parent | 1006fd52c03e7d8ea1d0b612df168f21c9b56455 (diff) | |
[STM] API to print a Stateid.t
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/stateid.ml | 2 | ||||
| -rw-r--r-- | lib/stateid.mli | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/lib/stateid.ml b/lib/stateid.ml index 5485c4bf19..8f45f3605d 100644 --- a/lib/stateid.ml +++ b/lib/stateid.ml @@ -27,6 +27,8 @@ let get exn = Exninfo.get exn state_id_info let equal = Int.equal let compare = Int.compare +let print id = Pp.int id + module Self = struct type t = int let compare = compare diff --git a/lib/stateid.mli b/lib/stateid.mli index 5d4b71a354..f6ce7ddc40 100644 --- a/lib/stateid.mli +++ b/lib/stateid.mli @@ -20,6 +20,7 @@ val initial : t val dummy : t val fresh : unit -> t val to_string : t -> string +val print : t -> Pp.t val of_int : int -> t val to_int : t -> int |