diff options
Diffstat (limited to 'dev/top_printers.ml')
-rw-r--r-- | dev/top_printers.ml | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index df31c6d9a..70aaccf0c 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 () |