From 2ae43be7b9d4118335c9d2cef6e098f9b9f807fe Mon Sep 17 00:00:00 2001
From: xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Thu, 9 Feb 2006 14:55:48 +0000
Subject: Initial import of compcert

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
---
 extraction/Linearize.ml.patch | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 extraction/Linearize.ml.patch

(limited to 'extraction/Linearize.ml.patch')

diff --git a/extraction/Linearize.ml.patch b/extraction/Linearize.ml.patch
new file mode 100644
index 00000000..47b6cc9b
--- /dev/null
+++ b/extraction/Linearize.ml.patch
@@ -0,0 +1,22 @@
+*** Linearize.ml.orig	2006-02-09 11:47:55.000000000 +0100
+--- Linearize.ml	2006-02-09 11:58:42.000000000 +0100
+***************
+*** 28,35 ****
+  (** val enumerate : LTL.coq_function -> node list **)
+  
+  let enumerate f =
+    positive_rec Coq_nil (fun pc nodes ->
+!     match Maps.PMap.get pc (reachable f) with
+        | true -> Coq_cons (pc, nodes)
+        | false -> nodes) (coq_Psucc f.fn_entrypoint)
+  
+--- 28,36 ----
+  (** val enumerate : LTL.coq_function -> node list **)
+  
+  let enumerate f =
++   let reach = reachable f in
+    positive_rec Coq_nil (fun pc nodes ->
+!     match Maps.PMap.get pc reach with
+        | true -> Coq_cons (pc, nodes)
+        | false -> nodes) (coq_Psucc f.fn_entrypoint)
+  
-- 
cgit