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>

diff --git a/pidl/lib/Parse/Pidl/NDR.pm b/pidl/lib/Parse/Pidl/NDR.pm
index dec5e95423089ca6d12ff38777de9bff885c3141..f48b0f8bb12d66cd4f1588151010339288996ab8 100644 (file)
--- 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");