diff options
| author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-09-07 15:30:24 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-09-07 15:30:24 +0000 |
| commit | 593ce3f7c5647e284cd2fdc3dd3ed41be9563982 (patch) | |
| tree | 6ec1df325b89bb0c320023861118549deb9a9e71 /cil.patch/oneret.ml.patch | |
| parent | fa7415be2fe9b240374f0a51c1cd4a9de5376c5a (diff) | |
| download | compcert-593ce3f7c5647e284cd2fdc3dd3ed41be9563982.tar.gz compcert-593ce3f7c5647e284cd2fdc3dd3ed41be9563982.zip | |
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
Diffstat (limited to 'cil.patch/oneret.ml.patch')
| -rw-r--r-- | cil.patch/oneret.ml.patch | 38 |
1 files changed, 38 insertions, 0 deletions
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); |