diff options
author | Douglas Bagnall <douglas.bagnall@catalyst.net.nz> | 2019-12-01 00:41:42 +1300 |
---|---|---|
committer | Andrew Bartlett <abartlet@samba.org> | 2019-12-10 02:53:35 +0000 |
commit | 33255102acd755cacceafd2a082722ed0fbc695f (patch) | |
tree | 52009f641966345fa6c026ea97e7c5d345efcdb4 /pidl | |
parent | 4de002a0f77dba8345ca6c395a855a5c053a8dd4 (diff) | |
download | samba-33255102acd755cacceafd2a082722ed0fbc695f.tar.gz |
pidl Parse::Pidl::NDR: warn of unknown scalar alignments
Signed-off-by: Douglas Bagnall <douglas.bagnall@catalyst.net.nz>
Reviewed-by: Andrew Bartlett <abartlet@samba.org>
Diffstat (limited to 'pidl')
-rw-r--r-- | pidl/lib/Parse/Pidl/NDR.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/pidl/lib/Parse/Pidl/NDR.pm b/pidl/lib/Parse/Pidl/NDR.pm index dec5e954230..f48b0f8bb12 100644 --- a/pidl/lib/Parse/Pidl/NDR.pm +++ b/pidl/lib/Parse/Pidl/NDR.pm @@ -469,7 +469,12 @@ sub align_type($) my ($e) = @_; if (ref($e) eq "HASH" and $e->{TYPE} eq "SCALAR") { - return $scalar_alignment->{$e->{NAME}}; + my $ret = $scalar_alignment->{$e->{NAME}}; + if (not defined $ret) { + warning($e, "no scalar alignment for $e->{NAME}!"); + return 0; + } + return $ret; } return 0 if ($e eq "EMPTY"); |