From e882493e2c4b91024b42f0603ca6869e95695e85 Mon Sep 17 00:00:00 2001 From: xleroy Date: Sat, 27 Oct 2007 10:23:16 +0000 Subject: Linearize: utilisation d'une heuristique externe d'enumeration des noeuds du CFG git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@437 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- extraction/Linearize.ml.patch | 22 ---------------------- 1 file changed, 22 deletions(-) delete mode 100644 extraction/Linearize.ml.patch (limited to 'extraction/Linearize.ml.patch') diff --git a/extraction/Linearize.ml.patch b/extraction/Linearize.ml.patch deleted file mode 100644 index 47b6cc9b..00000000 --- a/extraction/Linearize.ml.patch +++ /dev/null @@ -1,22 +0,0 @@ -*** 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