From: Stefan Metzmacher Date: Fri, 2 Jan 2009 15:22:18 +0000 (+0100) Subject: pidl: add dummy element for empty unions X-Git-Tag: samba-4.0.0alpha6~283^2~42^2~23 X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=96266d2f50b2f68e29c811908efecb78895e49bd;p=thirdparty%2Fsamba.git pidl: add dummy element for empty unions This hopefully fixes the build on Solaris and IRIX. metze --- diff --git a/pidl/lib/Parse/Pidl/Samba4/Header.pm b/pidl/lib/Parse/Pidl/Samba4/Header.pm index 94e1efbfe49..0411466c825 100644 --- a/pidl/lib/Parse/Pidl/Samba4/Header.pm +++ b/pidl/lib/Parse/Pidl/Samba4/Header.pm @@ -183,14 +183,20 @@ sub HeaderUnion($$;$) return if (not defined($union->{ELEMENTS})); pidl " {\n"; $tab_depth++; + my $needed = 0; foreach my $e (@{$union->{ELEMENTS}}) { if ($e->{TYPE} ne "EMPTY") { if (! defined $done{$e->{NAME}}) { HeaderElement($e); } $done{$e->{NAME}} = 1; + $needed++; } } + if (!$needed) { + # sigh - some compilers don't like empty structures + pidl tabs()."int _dummy_element;\n"; + } $tab_depth--; pidl "}";