From d1ff2fcb7c2875b3c371a124579aef419199195b Mon Sep 17 00:00:00 2001 From: Bernhard Schommer Date: Thu, 29 Mar 2018 16:49:53 +0200 Subject: Don't overwrite initializer of anonymous union member. (#69) Instead of overwriting the initializer of the anonymous member we should just keep it. Bug 23353 --- cparser/Elab.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'cparser') diff --git a/cparser/Elab.ml b/cparser/Elab.ml index 204bc515..3ed8fe2f 100644 --- a/cparser/Elab.ml +++ b/cparser/Elab.ml @@ -1229,7 +1229,7 @@ module I = struct if fld1.fld_name = name then Some(Zunion(z, id, fld1), default_init env fld1.fld_typ) else if fld.fld_anonymous && has_member env name fld.fld_typ then - let zi = (Zunion(z, id, fld1),default_init env fld1.fld_typ) in + let zi = (Zunion(z, id, fld1),i) in member env zi name else find rem -- cgit