Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- diff --git a/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm b/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm
- index e5d8f1c..eb3cdf2 100644
- --- a/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm
- +++ b/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm
- @@ -142,6 +142,13 @@ sub ParseFunction($$)
- my @dir = @{$_->{DIRECTION}};
- if (grep(/in/, @dir) and grep(/out/, @dir)) {
- pidl "r->out.$_->{NAME} = r->in.$_->{NAME};";
- + }
- + }
- +
- + foreach (@{$fn->{ELEMENTS}}) {
- + my @dir = @{$_->{DIRECTION}};
- + if (grep(/in/, @dir) and grep(/out/, @dir)) {
- + # noop
- } elsif (grep(/out/, @dir) and not
- has_property($_, "represent_as")) {
- AllocOutVar($_, "r", "r->out.$_->{NAME}", $env);
Add Comment
Please, Sign In to add comment