diff options
Diffstat (limited to 'cparser/Ceval.ml')
-rw-r--r-- | cparser/Ceval.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/cparser/Ceval.ml b/cparser/Ceval.ml index 6fb0d37..39cda58 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 |