pidl: Print actual type names in errors about unknown origins rather than 'HASH(0x...
[ira/wip.git] / pidl / lib / Parse / Pidl / Typelist.pm
index e63b3c990f302271ccdcf78473243212d00f1207..12ffa92bf6ff795d61701455f7e75dd76baa47e6 100644 (file)
@@ -273,12 +273,15 @@ sub mapTypeName($)
        my $dt;
        $t = expandAlias($t);
 
-       unless ($dt or ($dt = getType($t))) {
+       if ($dt = getType($t)) {
+               return mapType($dt, $dt->{NAME});
+       } elsif (ref($t) eq "HASH" and defined($t->{NAME})) {
+               return mapType($t, $t->{NAME});
+       } else {
                # Best guess
                return "struct $t";
        }
 
-       return mapType($dt, $dt->{NAME});
 }
 
 sub LoadIdl($;$)