summaryrefslogtreecommitdiff
path: root/source4/build/pidl/eparser.pm
diff options
context:
space:
mode:
authorAndrew Tridgell <tridge@samba.org>2003-11-09 07:22:48 +0000
committerAndrew Tridgell <tridge@samba.org>2003-11-09 07:22:48 +0000
commitb7a6971ce10fb3934d907947562ab5032cb9dae9 (patch)
tree1d86444b15d1df665bb79f3e293b59183edad689 /source4/build/pidl/eparser.pm
parent363754a8654abc526bc44c36e2cd29c9eefb4cd2 (diff)
downloadsamba-b7a6971ce10fb3934d907947562ab5032cb9dae9.tar.gz
samba-b7a6971ce10fb3934d907947562ab5032cb9dae9.tar.bz2
samba-b7a6971ce10fb3934d907947562ab5032cb9dae9.zip
- handle void functions
- bettenicer handling of PROPERTIES - handle size_is() on an out variable that refers to an in variable (This used to be commit 33d9b75783651ccb02f895bc9e0b0d0d59f67b1d)
Diffstat (limited to 'source4/build/pidl/eparser.pm')
-rw-r--r--source4/build/pidl/eparser.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/source4/build/pidl/eparser.pm b/source4/build/pidl/eparser.pm
index bc69d831c8..02c4063102 100644
--- a/source4/build/pidl/eparser.pm
+++ b/source4/build/pidl/eparser.pm
@@ -74,7 +74,7 @@ sub ParseElement($$)
# Arg is a policy handle
- if (util::has_property($elt->{PROPERTIES}, "context_handle")) {
+ if (util::has_property($elt, "context_handle")) {
$res .= "\toffset = prs_policy_hnd(tvb, offset, pinfo, tree);\n";
return;
}
@@ -110,7 +110,7 @@ sub ParseElement($$)
$res .= "\t\tif (ptr_$elt->{NAME})\n\t";
}
- if (util::has_property($elt->{PROPERTIES}, "size_is")) {
+ if (util::has_property($elt, "size_is")) {
ParseArray($elt);
} else {
$res .= "\t\toffset = prs_$elt->{TYPE}(tvb, offset, pinfo, tree, ";
@@ -221,7 +221,7 @@ sub ParseFunctionArg($$)
my($arg) = shift;
my($io) = shift; # "in" or "out"
- if (util::has_property($arg->{PROPERTIES}, $io)) {
+ if (util::has_property($arg, $io)) {
# For some reason, pointers to elements in function definitions
# aren't parsed.