1
0
mirror of https://github.com/samba-team/samba.git synced 2024-12-22 13:34:15 +03:00

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>
This commit is contained in:
Douglas Bagnall 2019-12-01 00:41:42 +13:00 committed by Andrew Bartlett
parent 4de002a0f7
commit 33255102ac

View File

@ -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");