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