diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2007-10-27 10:23:16 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2007-10-27 10:23:16 +0000 |
commit | e882493e2c4b91024b42f0603ca6869e95695e85 (patch) | |
tree | 1d90dda6b56b541310d8b8703152fdcd49e8a7fa /extraction/Linearize.ml.patch | |
parent | 7f6ac3209e7fb7d822780c7e990fb604b11a6409 (diff) | |
download | compcert-kvx-e882493e2c4b91024b42f0603ca6869e95695e85.tar.gz compcert-kvx-e882493e2c4b91024b42f0603ca6869e95695e85.zip |
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
Diffstat (limited to 'extraction/Linearize.ml.patch')
-rw-r--r-- | extraction/Linearize.ml.patch | 22 |
1 files changed, 0 insertions, 22 deletions
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) - |