pidl:NDR: [in,out,string] doesn't need to pointers

metze

diff --git a/pidl/lib/Parse/Pidl/NDR.pm b/pidl/lib/Parse/Pidl/NDR.pm
index 2358a25956397517fa1fcdc483b90ad4e115801b..197a92998c9eb91265390b12eb4e0f643a7da85f 100644 (file)
--- a/pidl/lib/Parse/Pidl/NDR.pm
+++ b/pidl/lib/Parse/Pidl/NDR.pm
@@ -104,7 +104,7 @@ sub GetElementLevelTable($$)
        if (has_property($e, "out")) {
                my $needptrs = 1;
 
-               if (has_property($e, "string")) { $needptrs++; }
+               if (has_property($e, "string") and not has_property($e, "in")) { $needptrs++; }
                if ($#bracket_array >= 0) { $needptrs = 0; }
 
                warning($e, "[out] argument `$e->{NAME}' not a pointer") if ($needptrs > $e->{POINTERS});