From b379e50351c7cd7069ab75115a39749d6eba60ac Mon Sep 17 00:00:00 2001
From: Stefan Metzmacher <metze@samba.org>
Date: Fri, 17 Aug 2007 13:47:03 +0000
Subject: 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)
---
 source4/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'source4/pidl/lib/Parse/Pidl/Samba3')

diff --git a/source4/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm b/source4/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm
index cc5057aef4..a8e7c347b3 100644
--- 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);";
-- 
cgit