diff options
author | Andrew Tridgell <tridge@samba.org> | 2003-11-11 04:38:10 +0000 |
---|---|---|
committer | Andrew Tridgell <tridge@samba.org> | 2003-11-11 04:38:10 +0000 |
commit | 161321f68db0e83e71099364a654c796e49b8152 (patch) | |
tree | e5e59fed7780a534c0729f5f5856af0d66be4702 /source4/build/pidl/util.pm | |
parent | cecbf0cd8b99f7019a83def88baec889d6a06e6f (diff) | |
download | samba-161321f68db0e83e71099364a654c796e49b8152.tar.gz samba-161321f68db0e83e71099364a654c796e49b8152.tar.bz2 samba-161321f68db0e83e71099364a654c796e49b8152.zip |
automatic printing of unions
(This used to be commit 73b530075589f24f7bb9a001fde979ec6930d2bb)
Diffstat (limited to 'source4/build/pidl/util.pm')
-rw-r--r-- | source4/build/pidl/util.pm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/source4/build/pidl/util.pm b/source4/build/pidl/util.pm index 910684a919..17d1d146ab 100644 --- a/source4/build/pidl/util.pm +++ b/source4/build/pidl/util.pm @@ -307,5 +307,15 @@ sub c_pull_prefix($) return ""; } +# determine if an element has a direct buffers component +sub has_direct_buffers($) +{ + my $e = shift; + if ($e->{POINTERS} || array_size($e)) { + return 1; + } + return 0; +} + 1; |