diff options
| author | Jörg Mayer <jmayer@loplof.de> | 2006-05-16 15:45:07 +0000 |
|---|---|---|
| committer | Jörg Mayer <jmayer@loplof.de> | 2006-05-16 15:45:07 +0000 |
| commit | ee13215eb98bae80aada1cc7d39898e067eb235b (patch) | |
| tree | e7618570971cad97cead0d1f0022096a8e8a0f89 /tools/pidl/lib/Parse/Pidl/NDR.pm | |
| parent | 5857560a7f18ea557228e3e796418164d3058f67 (diff) | |
Add eol-style, update to current samba tree
svn path=/trunk/; revision=18171
Diffstat (limited to 'tools/pidl/lib/Parse/Pidl/NDR.pm')
| -rw-r--r-- | tools/pidl/lib/Parse/Pidl/NDR.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tools/pidl/lib/Parse/Pidl/NDR.pm b/tools/pidl/lib/Parse/Pidl/NDR.pm index 1efd0694e5..3cbf416488 100644 --- a/tools/pidl/lib/Parse/Pidl/NDR.pm +++ b/tools/pidl/lib/Parse/Pidl/NDR.pm @@ -540,6 +540,11 @@ sub ParseFunction($$$) my $e = ParseElement($x); push (@{$e->{DIRECTION}}, "in") if (has_property($x, "in")); push (@{$e->{DIRECTION}}, "out") if (has_property($x, "out")); + + nonfatal($x, "`$e->{NAME}' is [out] argument but not a pointer") + if ($e->{LEVELS}[0]->{TYPE} ne "POINTER") and + grep(/out/, @{$e->{DIRECTION}}); + push (@elements, $e); } @@ -787,6 +792,7 @@ my %property_list = ( "public" => ["FUNCTION", "TYPEDEF"], "nopush" => ["FUNCTION", "TYPEDEF"], "nopull" => ["FUNCTION", "TYPEDEF"], + "nosize" => ["FUNCTION", "TYPEDEF"], "noprint" => ["FUNCTION", "TYPEDEF"], "noejs" => ["FUNCTION", "TYPEDEF"], |