summaryrefslogtreecommitdiff
path: root/cfrontend/Initializers.v
diff options
context:
space:
mode:
Diffstat (limited to 'cfrontend/Initializers.v')
-rw-r--r--cfrontend/Initializers.v7
1 files changed, 1 insertions, 6 deletions
diff --git a/cfrontend/Initializers.v b/cfrontend/Initializers.v
index fa54627..1b339c1 100644
--- a/cfrontend/Initializers.v
+++ b/cfrontend/Initializers.v
@@ -175,12 +175,7 @@ Fixpoint transl_init (ty: type) (i: initializer)
| Init_single a, _ =>
do d <- transl_init_single ty a; OK (d :: nil)
| Init_compound il, Tarray tyelt nelt _ =>
- if zle nelt 0 then
- OK (Init_space(sizeof ty) :: nil)
- else
- transl_init_array tyelt il nelt
- | Init_compound il, Tstruct _ Fnil _ =>
- OK (Init_space (sizeof ty) :: nil)
+ transl_init_array tyelt il (Zmax 0 nelt)
| Init_compound il, Tstruct id fl _ =>
transl_init_struct id ty fl il 0
| Init_compound il, Tunion _ Fnil _ =>