diff options
author | Michael Schmidt <github@mschmidt.me> | 2016-04-05 16:42:38 +0200 |
---|---|---|
committer | Michael Schmidt <github@mschmidt.me> | 2016-04-05 16:42:38 +0200 |
commit | ce248e4da35758540e5daa678d80623daeab6453 (patch) | |
tree | cf06ea9ff4cf4f7880db4f9381384658d7a39680 /cparser/Elab.ml | |
parent | 567ed78280922ae5285583358b3303fde69401d0 (diff) | |
download | compcert-ce248e4da35758540e5daa678d80623daeab6453.tar.gz compcert-ce248e4da35758540e5daa678d80623daeab6453.zip |
Revert initialization check, bug 18000
Diffstat (limited to 'cparser/Elab.ml')
-rw-r--r-- | cparser/Elab.ml | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/cparser/Elab.ml b/cparser/Elab.ml index 08e6844a..426ffb24 100644 --- a/cparser/Elab.ml +++ b/cparser/Elab.ml @@ -1150,14 +1150,6 @@ and elab_item zi item il = let ini' = elab_list (I.top env (I.name zi) ty) il' true in (* Initialize current subobject with this state, and continue *) elab_list (I.set zi ini') il false - (* Single expression to initialize an array *) - | SINGLE_INIT a, TArray(ty_elt, sz, _) -> - let m = match unroll env ty_elt with - | TInt((IChar | ISChar | IUChar), _) -> " or string literal" - | TInt(ik, _) when sizeof_ikind ik = !config.sizeof_wchar -> " or wide string literal" - | _ -> "" in - error loc "array initializer must be an initializer list%s" m; - elab_list zi il false (* Single expression *) | SINGLE_INIT a, _ -> let a' = !elab_expr_f loc env a in |