1
0
mirror of https://github.com/samba-team/samba.git synced 2025-01-27 14:04:05 +03:00

r18482: Fix a couple of small issues in the generated server code.

(This used to be commit ddfe3c54439eb76327608e04df9381621ab875b8)
This commit is contained in:
Jelmer Vernooij 2006-09-13 16:29:14 +00:00 committed by Gerald (Jerry) Carter
parent 3de6b469cc
commit 965633a5b4

View File

@ -60,10 +60,10 @@ sub ParseFunction($$)
my $ret = "_$fn->{NAME}(p";
foreach (@{$fn->{ELEMENTS}}) {
my @dir = @{$_->{DIRECTION}};
if (grep(@dir, /in/) and grep(@dir, /out/)) {
if (grep(/in/, @dir) and grep(/out/, @dir)) {
pidl "r.out.$_->{NAME} = r.in.$_->{NAME};";
}
if (grep(@dir, /in/)) { $ret .= ", r.in.$_->{NAME}"; }
if (grep(/in/, @dir)) { $ret .= ", r.in.$_->{NAME}"; }
else { $ret .= ", r.out.$_->{NAME}"; }
$proto .= ", " . DeclLong($_);
@ -95,7 +95,7 @@ sub ParseFunction($$)
pidl "}";
pidl "";
pidl "blob = ndr_push_blob(push);";
pidl "if (!prs_init_data_blob(&p->in_data.rdata, &blob, p->mem_ctx)) {";
pidl "if (!prs_init_data_blob(&p->out_data.rdata, &blob, p->mem_ctx)) {";
pidl "\ttalloc_free(mem_ctx);";
pidl "\treturn False;";
pidl "}";