diff options
| author | Andrew Tridgell <tridge@samba.org> | 2003-11-16 13:48:05 +0000 |
|---|---|---|
| committer | Andrew Tridgell <tridge@samba.org> | 2003-11-16 13:48:05 +0000 |
| commit | c4b7585288095cb9459feb237a9581ba30b850d0 (patch) | |
| tree | b6deb6afcad3981759012e2301633446e081724f /source4/build/pidl/util.pm | |
| parent | ea266c0625e04a2dc10d25c2fee7b685965fcd3e (diff) | |
| download | samba-c4b7585288095cb9459feb237a9581ba30b850d0.tar.gz samba-c4b7585288095cb9459feb237a9581ba30b850d0.tar.bz2 samba-c4b7585288095cb9459feb237a9581ba30b850d0.zip | |
* the beginnings of non-constant fixed arrays
* added relative pointers support
(This used to be commit 4a34a4f29cf8ab79582ce7b503da907df7b4d209)
Diffstat (limited to 'source4/build/pidl/util.pm')
| -rw-r--r-- | source4/build/pidl/util.pm | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/source4/build/pidl/util.pm b/source4/build/pidl/util.pm index 916ae79d5f..16cb012d0c 100644 --- a/source4/build/pidl/util.pm +++ b/source4/build/pidl/util.pm @@ -329,7 +329,7 @@ sub c_pull_prefix($) if ($e->{TYPE} =~ "unistr.*") { return "&"; } - if ($e->{TYPE} =~ "relstr.*") { + if ($e->{TYPE} =~ "nstring.*") { return "&"; } @@ -367,6 +367,17 @@ sub is_fixed_array($) return 0; } +# return 1 if this is a inline array +sub is_inline_array($) +{ + my $e = shift; + my $len = $e->{"ARRAY_LEN"}; + if (defined $len && $len ne "*") { + return 1; + } + return 0; +} + sub dump($) { print Dumper shift; |