Author: tpot Date: 2004-10-14 06:35:42 +0000 (Thu, 14 Oct 2004) New Revision: 2963
WebSVN: http://websvn.samba.org/websvn/changeset.php?rep=samba&path=/branches/SAMBA_4_0/source/build/pidl&rev=2963&nolog=1 Log: Handle structures that contain more than one union as members. Modified: branches/SAMBA_4_0/source/build/pidl/swig.pm Changeset: Modified: branches/SAMBA_4_0/source/build/pidl/swig.pm =================================================================== --- branches/SAMBA_4_0/source/build/pidl/swig.pm 2004-10-14 05:59:28 UTC (rev 2962) +++ branches/SAMBA_4_0/source/build/pidl/swig.pm 2004-10-14 06:35:42 UTC (rev 2963) @@ -216,7 +216,7 @@ my($extra_args) = ""; if (isunion($e->{TYPE})) { - $extra_args = ", switch_is"; + $extra_args = ", $e->{NAME}_switch_is"; } if ($e->{POINTERS} == 0) { @@ -291,7 +291,7 @@ foreach my $e (@{$fn->{DATA}}) { if (isunion($e->{TYPE})) { - $result .= ", int switch_is"; + $result .= ", int $e->{NAME}_switch_is"; } } $result .= ")\n";