From c46b574d5b21fb2728c76c5cab1c46890c0fb1cd Mon Sep 17 00:00:00 2001
From: xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Thu, 21 Aug 2014 13:23:30 +0000
Subject: 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
---
 cparser/Ceval.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'cparser/Ceval.ml')

diff --git a/cparser/Ceval.ml b/cparser/Ceval.ml
index 6fb0d37f..39cda58c 100644
--- a/cparser/Ceval.ml
+++ b/cparser/Ceval.ml
@@ -258,6 +258,8 @@ let rec expr env e =
   (* | ECast(TInt (_, _), EConst (CFloat (_, _))) -> TODO *)
   | ECast(ty, e1) ->
       cast env ty e1.etyp (expr env e1)
+  | ECompound _ ->
+      raise Notconst
   | ECall _ ->
       raise Notconst
 
-- 
cgit