summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--source4/pidl/lib/Parse/Pidl/NDR.pm7
1 files changed, 4 insertions, 3 deletions
diff --git a/source4/pidl/lib/Parse/Pidl/NDR.pm b/source4/pidl/lib/Parse/Pidl/NDR.pm
index ef27c7141f..9048a25684 100644
--- a/source4/pidl/lib/Parse/Pidl/NDR.pm
+++ b/source4/pidl/lib/Parse/Pidl/NDR.pm
@@ -310,6 +310,7 @@ 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"));
@@ -1055,10 +1056,10 @@ sub ValidInterface($)
if (has_property($interface, "pointer_default")) {
if ($interface->{PROPERTIES}->{pointer_default} eq "ptr") {
- nonfatal $interface, "Full pointers are not supported yet, falling back to unique";
- $interface->{PROPERTIES}->{pointer_default} = "unique";
+ nonfatal $interface, "Full pointers are not supported yet, falling back to sptr";
+ $interface->{PROPERTIES}->{pointer_default} = "sptr";
} elsif (not grep (/$interface->{PROPERTIES}->{pointer_default}/,
- ("ref", "unique", "ptr"))) {
+ ("ref", "unique", "ptr", "sptr"))) {
fatal $interface, "Unknown default pointer type `$interface->{PROPERTIES}->{pointer_default}'";
}
}