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}}) {