Corrected names of double FuncPtr and MethodPtr types.

1 files changed, 13 insertions, 0 deletions

diff --git a/abi-dumper.pl b/abi-dumper.pl
index 385278d..291a200 100755
--- a/abi-dumper.pl
+++ b/abi-dumper.pl
@@ -2991,6 +2991,19 @@ sub getTypeInfo($)
                 $TInfo{"Size"} = $SYS_WORD;
             }
         }
+        elsif($TInfo{"Type"} eq "Pointer")
+        {
+            if(my $BType = $TInfo{"BaseType"})
+            {
+                if($TypeInfo{$BType}{"Type"}=~/MethodPtr|FuncPtr/)
+                { # void(GTestSuite::**)()
+                  # int(**)(...)
+                    if($TInfo{"Name"}=~s/\*\Z//) {
+                        $TInfo{"Name"}=~s/\*(\))/\*\*$1/;
+                    }
+                }
+            }
+        }
     }
     
     if(my $Bid = $TInfo{"BaseType"})