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

[jelmer at samba.org]

Author: jelmer
Date: 2005-02-19 23:46:52 +0000 (Sat, 19 Feb 2005)
New Revision: 5463

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

Log:
Make need_wire_pointer() return the number of required 
pointers rather then a bool.

Modified:
   branches/SAMBA_4_0/source/build/pidl/ndr.pm


Changeset:
Modified: branches/SAMBA_4_0/source/build/pidl/ndr.pm
===================================================================
--- branches/SAMBA_4_0/source/build/pidl/ndr.pm	2005-02-19 16:40:19 UTC (rev 5462)
+++ branches/SAMBA_4_0/source/build/pidl/ndr.pm	2005-02-19 23:46:52 UTC (rev 5463)
@@ -166,15 +166,15 @@
 sub need_wire_pointer($)
 {
 	my $e = shift;
-	my $pt;
-	
-	return 0 unless ($pt = pointer_type($e));
 
-	if ($pt ne "ref") {
-		return 1;
-	} else {
-		return 0;
+	my $n = $e->{POINTERS};
+	my $pt = pointer_type($e);
+
+	if (defined($pt) and $pt eq "ref") {
+		$n--;
 	}
+
+	return $n;
 }
 
 # determine if an element is a pure scalar. pure scalars do not