svn commit: samba r10760 - in branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba: .

metze at samba.org metze at samba.org
Thu Oct 6 07:04:36 GMT 2005


Author: metze
Date: 2005-10-06 07:04:36 +0000 (Thu, 06 Oct 2005)
New Revision: 10760

WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=10760

Log:
remove only one star from the pointers, and not from the stars that
come from the array nesting

this fixes a compiler warning and but in the eventlog.h,
where the idl uses nstring strings[num_strings]

metze
Modified:
   branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba/Header.pm


Changeset:
Modified: branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba/Header.pm
===================================================================
--- branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba/Header.pm	2005-10-06 06:57:09 UTC (rev 10759)
+++ branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba/Header.pm	2005-10-06 07:04:36 UTC (rev 10760)
@@ -60,13 +60,15 @@
 	HeaderType($element, $element->{TYPE}, "");
 	pidl " ";
 	my $numstar = $element->{POINTERS};
+	if ($numstar >= 1) {
+		$numstar-- if Parse::Pidl::Typelist::scalar_is_reference($element->{TYPE});
+	}
 	foreach (@{$element->{ARRAY_LEN}})
 	{
 		next if is_constant($_) and 
 			not has_property($element, "charset");
 		$numstar++;
 	}
-	$numstar-- if Parse::Pidl::Typelist::scalar_is_reference($element->{TYPE});
 	pidl "*" foreach (1..$numstar);
 	pidl $element->{NAME};
 	foreach (@{$element->{ARRAY_LEN}}) {



More information about the samba-cvs mailing list