Corrected Parameter_Type_Format BC rule.
diff --git a/abi-compliance-checker.pl b/abi-compliance-checker.pl
index 843b356..07cfa6f 100755
--- a/abi-compliance-checker.pl
+++ b/abi-compliance-checker.pl
@@ -2221,11 +2221,9 @@
{
foreach my $Constant (keys(%{$Constants{$Version}}))
{
- if($Constants{$Version}{$Constant}{"Value"} eq $Constant)
- {
- if(defined $EnumConstants{$Version}{$Constant}) {
- $Constants{$Version}{$Constant}{"Value"} = $EnumConstants{$Version}{$Constant}{"Value"};
- }
+ my $Value = $Constants{$Version}{$Constant}{"Value"};
+ if(defined $EnumConstants{$Version}{$Value}) {
+ $Constants{$Version}{$Constant}{"Value"} = $EnumConstants{$Version}{$Constant}{"Value"};
}
}
}
@@ -3560,7 +3558,7 @@
{
$TypeAttr{"NameSpace"} = getNameSpace(getTypeDeclId($TypeId));
if(not $TypeAttr{"NameSpace"}
- or isNotAnon($TypeAttr{"NameSpace"})) {
+ or not isAnon($TypeAttr{"NameSpace"})) {
last;
}
}
@@ -3576,7 +3574,7 @@
}
}
}
- if($TypeAttr{"NameSpace"} and isNotAnon($TypeAttr{"Name"})) {
+ if($TypeAttr{"NameSpace"} and not isAnon($TypeAttr{"Name"})) {
$TypeAttr{"Name"} = $TypeAttr{"NameSpace"}."::".$TypeAttr{"Name"};
}
$TypeAttr{"Name"} = formatName($TypeAttr{"Name"}, "T");
@@ -7002,10 +7000,6 @@
return 0;
}
-sub isNotAnon($) {
- return (not isAnon($_[0]));
-}
-
sub isAnon($)
{ # "._N" or "$_N" in older GCC versions
return ($_[0] and $_[0]=~/(\.|\$)\_\d+|anon\-/);
@@ -13252,7 +13246,9 @@
my $MT2 = $TypeInfo{2}{$Type2_Pure{"Memb"}{$Pos}{"type"}}{"Name"};
if($MT1 ne $MT2)
{ # different types
- return 1;
+ if(not isAnon($MT1) and not isAnon($MT2)) {
+ return 1;
+ }
}
if($Level eq "Source")
{
@@ -16171,7 +16167,6 @@
if($Line=~/\A\#\s*define\s+(\w+)\s+(.+)\s*\Z/)
{
my ($Name, $Value) = ($1, $2);
- # next if($Name eq $Value);
if(not $Constants{$Version}{$Name}{"Access"})
{
$Constants{$Version}{$Name}{"Access"} = "public";