diff options
| author | barras | 2004-10-20 13:50:08 +0000 |
|---|---|---|
| committer | barras | 2004-10-20 13:50:08 +0000 |
| commit | 9c6487ba87f448daa28158c6e916e3d932c50645 (patch) | |
| tree | 31bc965d5d14b34d4ab501cbd2350d1de44750c5 /dev | |
| parent | 1457d6a431755627e3b52eaf74ddd09c641a9fe3 (diff) | |
COMMITED BYTECODE COMPILER
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6245 85f007b7-540e-0410-9357-904b9bb8a0f7
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 () |