From 615fb53c13f2407a0b6b470bbdf8e468fc4a1d78 Mon Sep 17 00:00:00 2001
From: xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Fri, 5 Jun 2009 13:39:59 +0000
Subject: Adapted to work with Coq 8.2-1

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1076 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
---
 extraction/Kildall.ml.patch | 31 +++++++++++++++----------------
 extraction/convert          |  5 +----
 2 files changed, 16 insertions(+), 20 deletions(-)

(limited to 'extraction')

diff --git a/extraction/Kildall.ml.patch b/extraction/Kildall.ml.patch
index 453d40c..b7e5b0b 100644
--- a/extraction/Kildall.ml.patch
+++ b/extraction/Kildall.ml.patch
@@ -1,38 +1,37 @@
-*** kildall.ml.orig	2006-09-11 13:50:56.266682206 +0200
---- kildall.ml	2006-09-11 14:29:50.392200227 +0200
+*** kildall.ml.orig	2009-06-03 11:32:52.297641897 +0200
+--- kildall.ml	2009-06-03 11:34:48.481516509 +0200
 ***************
-*** 163,171 ****
-                       Maps.PMap.t option **)
+*** 151,158 ****
+        -> (positive, LAT.t) prod list -> LAT.t PMap.t option **)
     
     let fixpoint successors topnode transf entrypoints =
-!     DS.fixpoint (fun s ->
-!       Maps.PMap.get s (make_predecessors successors topnode)) topnode transf
-!       entrypoints
+!     DS.fixpoint (fun s -> PMap.get s (make_predecessors successors topnode))
+!       topnode transf entrypoints
    end
   
   module type ORDERED_TYPE_WITH_TOP = 
---- 163,170 ----
-                       Maps.PMap.t option **)
+--- 151,158 ----
+        -> (positive, LAT.t) prod list -> LAT.t PMap.t option **)
     
     let fixpoint successors topnode transf entrypoints =
 !     let pred = make_predecessors successors topnode in
-!     DS.fixpoint (fun s -> Maps.PMap.get s pred) topnode transf entrypoints
+!     DS.fixpoint (fun s -> PMap.get s pred) topnode transf entrypoints
    end
   
   module type ORDERED_TYPE_WITH_TOP = 
 ***************
-*** 264,271 ****
-    (** val basic_block_map : (positive -> positive list) -> positive ->
-                              positive -> bbmap **)
+*** 248,255 ****
+    (** val basic_block_map :
+        (positive -> positive list) -> positive -> positive -> bbmap **)
     
 !   let basic_block_map successors topnode entrypoint x =
 !     is_basic_block_head entrypoint (make_predecessors successors topnode) x
     
     (** val basic_block_list : positive -> bbmap -> positive list **)
     
---- 263,270 ----
-    (** val basic_block_map : (positive -> positive list) -> positive ->
-                              positive -> bbmap **)
+--- 248,255 ----
+    (** val basic_block_map :
+        (positive -> positive list) -> positive -> positive -> bbmap **)
     
 !   let basic_block_map successors topnode entrypoint =
 !     is_basic_block_head entrypoint (make_predecessors successors topnode)
diff --git a/extraction/convert b/extraction/convert
index 879cfe5..94ec38e 100755
--- a/extraction/convert
+++ b/extraction/convert
@@ -2,8 +2,5 @@
 
 s/\bList\b/CoqList/g;
 s/\bString\b/CoqString/g;
-s/\bInt\.Z_as_Int\b/CoqInt.Z_as_Int/g;
-s/\bInt\.Int\b/CoqInt.Int/g;
-s/\bInt\.MoreInt\b/CoqInt.MoreInt/g;
-s/^open Int$//;
+s/^open Int$/open CoqInt/;
 
-- 
cgit v1.2.3