summaryrefslogtreecommitdiff
path: root/source4/pidl/lib/Parse/Pidl
diff options
context:
space:
mode:
authorJelmer Vernooij <jelmer@samba.org>2006-11-22 17:13:19 +0000
committerGerald (Jerry) Carter <jerry@samba.org>2007-10-10 14:28:24 -0500
commit55eaaa223800a45ee8ea3f85904f722f91547dd8 (patch)
tree2da190c3ea014f4ad55b5f3755df25b430356ae2 /source4/pidl/lib/Parse/Pidl
parent41848fea6fb3cea36caf0790302f7460b03d17c9 (diff)
downloadsamba-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/Parse/Pidl')
-rw-r--r--source4/pidl/lib/Parse/Pidl/NDR.pm3
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}}) {