diff options
| author | Hugo Herbelin | 2020-09-18 19:32:56 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2020-09-18 19:32:56 +0200 |
| commit | 17aa50c3cdf3766cdba76ea9d82c9aaa506eaa34 (patch) | |
| tree | 5430b25cb1517423d528171e144ae9ae515a58f1 /dev/top_printers.ml | |
| parent | 3ff6af396ce73291a127707022aa2c96adc52b0b (diff) | |
Adding debugging printers for Intmap.
Diffstat (limited to 'dev/top_printers.ml')
| -rw-r--r-- | dev/top_printers.ml | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index 773170207e..e4dd7ef52c 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -94,11 +94,13 @@ let pridmap pr l = prset' pr (Id.Map.fold (fun a b l -> (a,b)::l) l []) let ppidmap pr l = pp (pridmap pr l) -let pridmapgen l = - let dom = Id.Set.elements (Id.Map.domain l) in +let prmapgen pr dom = if dom = [] then str "[]" else - str "[domain= " ++ hov 0 (prlist_with_sep spc Id.print dom) ++ str "]" + str "[domain= " ++ hov 0 (prlist_with_sep spc pr dom) ++ str "]" +let pridmapgen l = prmapgen Id.print (Id.Set.elements (Id.Map.domain l)) let ppidmapgen l = pp (pridmapgen l) +let printmapgen l = prmapgen int (Int.Set.elements (Int.Map.domain l)) +let ppintmapgen l = pp (printmapgen l) let ppevarsubst = ppidmap (fun id0 -> prset (fun (c,copt,id) -> hov 0 |