From 9c6487ba87f448daa28158c6e916e3d932c50645 Mon Sep 17 00:00:00 2001
From: barras
Date: Wed, 20 Oct 2004 13:50:08 +0000
Subject: COMMITED BYTECODE COMPILER

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6245 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 dev/base_include    |  2 +-
 dev/top_printers.ml | 15 +++++++++++++++
 2 files changed, 16 insertions(+), 1 deletion(-)

(limited to 'dev')

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 ()
-- 
cgit v1.2.3