svn commit: samba r8623 - in branches/SAMBA_4_0/source/build/pidl/Parse/Pidl: . Samba/NDR

[jelmer at samba.org]

Author: jelmer
Date: 2005-07-19 23:53:48 +0000 (Tue, 19 Jul 2005)
New Revision: 8623

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

Log:
Fix warnings in ODL-generated code.

Modified:
   branches/SAMBA_4_0/source/build/pidl/Parse/Pidl/ODL.pm
   branches/SAMBA_4_0/source/build/pidl/Parse/Pidl/Samba/NDR/Header.pm


Changeset:
Modified: branches/SAMBA_4_0/source/build/pidl/Parse/Pidl/ODL.pm
===================================================================
--- branches/SAMBA_4_0/source/build/pidl/Parse/Pidl/ODL.pm	2005-07-19 23:34:02 UTC (rev 8622)
+++ branches/SAMBA_4_0/source/build/pidl/Parse/Pidl/ODL.pm	2005-07-19 23:53:48 UTC (rev 8623)
@@ -81,6 +81,7 @@
 			foreach my $fn (reverse @{$base->{DATA}}) {
 				next unless ($fn->{TYPE} eq "FUNCTION");
 				unshift (@{$x->{DATA}}, $fn);
+				push (@{$x->{INHERITED_FUNCTIONS}}, $fn->{NAME});
 			}
 		}
 	}

Modified: branches/SAMBA_4_0/source/build/pidl/Parse/Pidl/Samba/NDR/Header.pm
===================================================================
--- branches/SAMBA_4_0/source/build/pidl/Parse/Pidl/Samba/NDR/Header.pm	2005-07-19 23:34:02 UTC (rev 8622)
+++ branches/SAMBA_4_0/source/build/pidl/Parse/Pidl/Samba/NDR/Header.pm	2005-07-19 23:53:48 UTC (rev 8623)
@@ -387,6 +387,7 @@
 	foreach my $d (@{$interface->{DATA}}) {
 		next if $d->{TYPE} ne "FUNCTION";
 		next if has_property($d, "noopnum");
+		next if grep(/$d->{NAME}/,@{$interface->{INHERITED_FUNCTIONS}});
 		my $u_name = uc $d->{NAME};
 		pidl "#define DCERPC_$u_name (";