diff options
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/base_include | 2 | ||||
| -rw-r--r-- | dev/top_printers.ml | 15 |
2 files changed, 16 insertions, 1 deletions
diff --git a/dev/base_include b/dev/base_include index 172937766b..969637c42b 100644 --- a/dev/base_include +++ b/dev/base_include @@ -25,7 +25,7 @@ #install_printer (* qualid *) prqualid;; #install_printer (* kernel_name *) prkn;; #install_printer (* constr *) print_pure_constr;; - +#install_printer (* patch *) ppripos;; (* parsing of names *) let qid = Libnames.qualid_of_string;; diff --git a/dev/top_printers.ml b/dev/top_printers.ml index df31c6d9a5..70aaccf0cd 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -295,3 +295,18 @@ let _ = | _ -> bad_vernac_args "PrintPureConstr") *) +let ppfconstr c = ppterm (Closure.term_of_fconstr c) + +open Cbytecodes +open Cemitcodes +let ppripos (ri,pos) = + (match ri with + | Reloc_annot a -> + let sp,i = a.ci.ci_ind in + print_string + ("annot : MutInd("^(string_of_kn sp)^","^(string_of_int i)^")\n") + | Reloc_const _ -> + print_string "structured constant\n" + | Reloc_getglobal kn -> + print_string ("getglob "^(string_of_kn kn)^"\n")); + print_flush () |