diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-11-13 11:35:42 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-11-13 11:35:42 +0100 |
| commit | 8da82d435bed902f8c6f827fef7e1347ab51a71e (patch) | |
| tree | 10c4e8a0f18570540e52a2d5e9451e993e098f18 /dev | |
| parent | e71b3445f1555a25daab81b8d5dd2ccf7e586e39 (diff) | |
| parent | d7da4e1dfc58942ceb91fb24afe4751d6fb50cc9 (diff) | |
Merge PR #6124: Adding a debugging printer for ident maps whose codomain type is unknown
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/db | 1 | ||||
| -rw-r--r-- | dev/top_printers.ml | 7 |
2 files changed, 7 insertions, 1 deletions
@@ -68,5 +68,6 @@ install_printer Top_printers.ppist install_printer Top_printers.ppconstrunderbindersidmap install_printer Top_printers.ppunbound_ltac_var_map install_printer Top_printers.ppididmap +install_printer Top_printers.ppidmapgen install_printer Top_printers.ppclosure install_printer Top_printers.ppclosedglobconstr diff --git a/dev/top_printers.ml b/dev/top_printers.ml index 0d833d33b..85f33ca22 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -85,9 +85,14 @@ let prset' pr l = str "[" ++ hov 0 (prlist_with_sep pr_comma pr l) ++ str "]" let pridmap pr l = let pr (id,b) = Id.print id ++ str "=>" ++ pr id b in 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 + if dom = [] then str "[]" else + str "[domain= " ++ hov 0 (prlist_with_sep spc Id.print dom) ++ str "]" +let ppidmapgen l = pp (pridmapgen l) + let ppevarsubst = ppidmap (fun id0 -> prset (fun (c,copt,id) -> hov 0 (Termops.print_constr (EConstr.of_constr c) ++ |