r15220: Another attempt to fix the bug found by the IBM Checker

diff --git a/source/pidl/lib/Parse/Pidl/Samba4/EJS.pm b/source/pidl/lib/Parse/Pidl/Samba4/EJS.pm
index 91938c038eb1072f48b4d5fe9f6ef024d06a0255..550499a5f30c4e88d3a87c45a17615fdf36b9dfd 100644 (file)
--- a/source/pidl/lib/Parse/Pidl/Samba4/EJS.pm
+++ b/source/pidl/lib/Parse/Pidl/Samba4/EJS.pm
@@ -154,7 +154,11 @@ sub EjsPullPointer($$$$$)
        my ($e, $l, $var, $name, $env) = @_;
        pidl "if (ejs_pull_null(ejs, v, $name)) {";
        indent;
        my ($e, $l, $var, $name, $env) = @_;
        pidl "if (ejs_pull_null(ejs, v, $name)) {";
        indent;

-       pidl "$var = NULL;";
+       if ($l->{POINTER_TYPE} eq "ref") {
+               pidl "return NT_STATUS_INVALID_PARAMETER_MIX;";
+       } else {
+               pidl "$var = NULL;";
+       }

        deindent;
        pidl "} else {";
        indent;
        deindent;
        pidl "} else {";
        indent;