From 593ce3f7c5647e284cd2fdc3dd3ed41be9563982 Mon Sep 17 00:00:00 2001 From: xleroy Date: Thu, 7 Sep 2006 15:30:24 +0000 Subject: Integration du front-end CIL developpe par Thomas Moniot git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@84 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- cil.patch/dataflow.ml.patch | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 cil.patch/dataflow.ml.patch (limited to 'cil.patch/dataflow.ml.patch') diff --git a/cil.patch/dataflow.ml.patch b/cil.patch/dataflow.ml.patch new file mode 100644 index 00000000..87b00de6 --- /dev/null +++ b/cil.patch/dataflow.ml.patch @@ -0,0 +1,27 @@ +*** ../cil/src/ext/dataflow.ml 2006-05-21 06:14:15.000000000 +0200 +--- ../cil_patch/src/ext/dataflow.ml 2006-06-20 17:28:35.000000000 +0200 +*************** +*** 1,3 **** +--- 1,4 ---- ++ (* MODIF: Loop constructor replaced by 3 constructors: While, DoWhile, For. *) + + module IH = Inthash + module E = Errormsg +*************** +*** 219,225 **** + + | Goto _ | Break _ | Continue _ | If _ + | TryExcept _ | TryFinally _ +! | Switch _ | Loop _ | Return _ | Block _ -> curr + in + currentLoc := get_stmtLoc s.skind; + +--- 220,227 ---- + + | Goto _ | Break _ | Continue _ | If _ + | TryExcept _ | TryFinally _ +! | Switch _ | (*Loop _*) While _ | DoWhile _ | For _ +! | Return _ | Block _ -> curr + in + currentLoc := get_stmtLoc s.skind; + -- cgit