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

[jelmer at samba.org]

Author: jelmer
Date: 2006-11-22 17:13:19 +0000 (Wed, 22 Nov 2006)
New Revision: 19845

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

Log:
Add warning for pointer_default_top()

Modified:
   branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/NDR.pm


Changeset:
Modified: branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/NDR.pm
===================================================================
--- branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/NDR.pm	2006-11-22 16:55:21 UTC (rev 19844)
+++ branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/NDR.pm	2006-11-22 17:13:19 UTC (rev 19845)
@@ -310,7 +310,6 @@
 	
 	return "ref" if (has_property($e, "ref"));
 	return "ptr" if (has_property($e, "ptr"));
-	return "sptr" if (has_property($e, "sptr"));
 	return "unique" if (has_property($e, "unique"));
 	return "relative" if (has_property($e, "relative"));
 	return "ignore" if (has_property($e, "ignore"));
@@ -607,6 +606,8 @@
 
 	if (not has_property($idl, "pointer_default_top")) {
 		$idl->{PROPERTIES}->{pointer_default_top} = "ref";
+	} else {
+		nonfatal($idl, "pointer_default_top() is a pidl extension and should not be used");
 	}
 
 	foreach my $d (@{$idl->{DATA}}) {