diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-08-21 13:23:30 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-08-21 13:23:30 +0000 |
| commit | c46b574d5b21fb2728c76c5cab1c46890c0fb1cd (patch) | |
| tree | 0ae850f934ef634eaa6cda9c294f0bdd055cb1c1 /cparser/Cutil.ml | |
| parent | e499b023510259cc96be2093784b08cf090941d2 (diff) | |
Support C99 compound literals (by expansion in Unblock pass).
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2615 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cparser/Cutil.ml')
| -rw-r--r-- | cparser/Cutil.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/cparser/Cutil.ml b/cparser/Cutil.ml index 1169346..9ad0b13 100644 --- a/cparser/Cutil.ml +++ b/cparser/Cutil.ml @@ -714,6 +714,7 @@ let rec is_lvalue e = | EUnop((Oderef | Oarrow _), _) -> true | EUnop(Odot _, e') -> is_lvalue e' | EBinop(Oindex, _, _, _) -> true + | ECompound _ -> true | _ -> false (* Check that a C expression is a modifiable l-value: an l-value |