r24523: we don't support multi-dimentional [out] arrays

for the samba3 server stubs yet, so bail out.

metze
(This used to be commit ff11f2ce0c3f9c882d93bda0c89577adaf8c2a41)

diff --git a/source4/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm b/source4/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm
index cc5057aef4b18a5c4e68863f97ede6ddba4ad070..a8e7c347b34759d71362b3802f3ad5cc6049d2b9 100644 (file)
--- a/source4/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm
+++ b/source4/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm
@@ -72,6 +72,14 @@ sub AllocOutVar($$$$)
                $l = $nl if ($nl->{TYPE} eq "ARRAY");
        }
 
+       # we don't support multi-dimentional arrays yet
+       if ($l->{TYPE} eq "ARRAY") {
+               my $nl = GetNextLevel($e, $l);
+               if ($nl->{TYPE} eq "ARRAY") {
+                       fatal($e->{ORIGINAL},"multi-dimentional [out] arrays are not supported!");
+               }
+       }
+
        if ($l->{TYPE} eq "ARRAY") {
                my $size = ParseExpr($l->{SIZE_IS}, $env, $e);
                pidl "$name = talloc_zero_array($mem_ctx, " . DeclLevel($e, 1) . ", $size);";