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/oneret.ml.patch | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 cil.patch/oneret.ml.patch (limited to 'cil.patch/oneret.ml.patch') diff --git a/cil.patch/oneret.ml.patch b/cil.patch/oneret.ml.patch new file mode 100644 index 00000000..d4c13d52 --- /dev/null +++ b/cil.patch/oneret.ml.patch @@ -0,0 +1,38 @@ +*** ../cil/src/ext/oneret.ml 2006-05-21 06:14:15.000000000 +0200 +--- ../cil_patch/src/ext/oneret.ml 2006-06-21 11:15:54.000000000 +0200 +*************** +*** 1,3 **** +--- 1,5 ---- ++ (* MODIF: Loop constructor replaced by 3 constructors: While, DoWhile, For. *) ++ + (* + * + * Copyright (c) 2001-2002, +*************** +*** 133,142 **** +--- 135,159 ---- + currentLoc := l; + s.skind <- If(eb, scanBlock false t, scanBlock false e, l); + s :: scanStmts mainbody rests ++ (* + | ({skind=Loop(b,l,lb1,lb2)} as s) :: rests -> + currentLoc := l; + s.skind <- Loop(scanBlock false b, l,lb1,lb2); + s :: scanStmts mainbody rests ++ *) ++ | ({skind=While(e,b,l)} as s) :: rests -> ++ currentLoc := l; ++ s.skind <- While(e, scanBlock false b, l); ++ s :: scanStmts mainbody rests ++ | ({skind=DoWhile(e,b,l)} as s) :: rests -> ++ currentLoc := l; ++ s.skind <- DoWhile(e, scanBlock false b, l); ++ s :: scanStmts mainbody rests ++ | ({skind=For(bInit,e,bIter,b,l)} as s) :: rests -> ++ currentLoc := l; ++ s.skind <- For(scanBlock false bInit, e, scanBlock false bIter, ++ scanBlock false b, l); ++ s :: scanStmts mainbody rests + | ({skind=Switch(e, b, cases, l)} as s) :: rests -> + currentLoc := l; + s.skind <- Switch(e, scanBlock false b, cases, l); -- cgit