svn commit: samba r11997 - in branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl: .

[metze at samba.org]

Author: metze
Date: 2005-12-01 12:39:33 +0000 (Thu, 01 Dec 2005)
New Revision: 11997

WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=11997

Log:
for multidimentional array like this:
uint32 [num_level2][num_level1][num_level0]

fix the order they're pushed and pulled, it should be like this

for (l2=0; l2 < num_level2; l2++) {
	for (l1=0; l1 < num_level1; l1++) {
		for (l0=0; l0 < num_level0; l0++) {
			ndr_pull_uint32(...);
		}
	}
}

metze
Modified:
   branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/NDR.pm


Changeset:
Modified: branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/NDR.pm
===================================================================
--- branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/NDR.pm	2005-12-01 07:09:24 UTC (rev 11996)
+++ branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/NDR.pm	2005-12-01 12:39:33 UTC (rev 11997)
@@ -104,9 +104,10 @@
 	if (defined($e->{ARRAY_LEN})) {
 		@bracket_array = @{$e->{ARRAY_LEN}};
 	}
-	
+
 	# Parse the [][][][] style array stuff
-	foreach my $d (@bracket_array) {
+	for my $i (0 .. $#bracket_array) {
+		my $d = $bracket_array[$#bracket_array - $i];
 		my $size = $d;
 		my $length = $d;
 		my $is_surrounding = 0;