summaryrefslogtreecommitdiff
path: root/source4/build/pidl/com_header.pm
diff options
context:
space:
mode:
authorJelmer Vernooij <jelmer@samba.org>2005-05-27 14:01:22 +0000
committerGerald (Jerry) Carter <jerry@samba.org>2007-10-10 13:17:07 -0500
commitaba7014e41b120e8c4bac5d5dab91655b46a2175 (patch)
tree0475f32f8cd5ee498f9863ac1687864048fbd0a7 /source4/build/pidl/com_header.pm
parent49791818610cecd877eb5b865cb6cefa90e92ba0 (diff)
downloadsamba-aba7014e41b120e8c4bac5d5dab91655b46a2175.tar.gz
samba-aba7014e41b120e8c4bac5d5dab91655b46a2175.tar.bz2
samba-aba7014e41b120e8c4bac5d5dab91655b46a2175.zip
r7022: Add support for parsing definitions of multi-dimension arrays.
This will also be required for supporting parsing pointers to arrays and arrays of pointers simultaneously. (This used to be commit a34f848b02a6e8284d62532a792a5136e846fe8f)
Diffstat (limited to 'source4/build/pidl/com_header.pm')
-rw-r--r--source4/build/pidl/com_header.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/source4/build/pidl/com_header.pm b/source4/build/pidl/com_header.pm
index 95bbc9c720..1e5f338828 100644
--- a/source4/build/pidl/com_header.pm
+++ b/source4/build/pidl/com_header.pm
@@ -22,14 +22,14 @@ sub GetArgumentProtoList($)
$res .= "*";
}
- if (defined $a->{ARRAY_LEN} &&
- !util::is_constant($a->{ARRAY_LEN}) &&
+ if (defined $a->{ARRAY_LEN}[0] &&
+ !util::is_constant($a->{ARRAY_LEN}[0]) &&
!$a->{POINTERS}) {
$res .= "*";
}
$res .= $a->{NAME};
- if (defined $a->{ARRAY_LEN} && util::is_constant($a->{ARRAY_LEN})) {
- $res .= "[$a->{ARRAY_LEN}]";
+ if (defined $a->{ARRAY_LEN}[0] && util::is_constant($a->{ARRAY_LEN}[0])) {
+ $res .= "[$a->{ARRAY_LEN}[0]]";
}
}