svn commit: samba r2963 - in branches/SAMBA_4_0/source/build/pidl: .

[tpot at samba.org]

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";