diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2006-11-22 17:13:19 +0000 |
---|---|---|
committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 14:28:24 -0500 |
commit | 55eaaa223800a45ee8ea3f85904f722f91547dd8 (patch) | |
tree | 2da190c3ea014f4ad55b5f3755df25b430356ae2 /source4/pidl/lib | |
parent | 41848fea6fb3cea36caf0790302f7460b03d17c9 (diff) | |
download | samba-55eaaa223800a45ee8ea3f85904f722f91547dd8.tar.gz samba-55eaaa223800a45ee8ea3f85904f722f91547dd8.tar.bz2 samba-55eaaa223800a45ee8ea3f85904f722f91547dd8.zip |
r19845: Add warning for pointer_default_top()
(This used to be commit 3f0da2388d30959c93483b102fbfab75a8381fef)
Diffstat (limited to 'source4/pidl/lib')
-rw-r--r-- | source4/pidl/lib/Parse/Pidl/NDR.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/source4/pidl/lib/Parse/Pidl/NDR.pm b/source4/pidl/lib/Parse/Pidl/NDR.pm index f35ea461aa..ef27c7141f 100644 --- a/source4/pidl/lib/Parse/Pidl/NDR.pm +++ b/source4/pidl/lib/Parse/Pidl/NDR.pm @@ -310,7 +310,6 @@ sub pointer_type($) 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 @@ sub ParseInterface($) 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}}) { |