diff options
| author | Andrey Ponomarenko <andrewponomarenko@yandex.ru> | 2016-04-18 21:15:53 +0300 |
|---|---|---|
| committer | Andrey Ponomarenko <andrewponomarenko@yandex.ru> | 2016-04-18 21:15:53 +0300 |
| commit | 3ad495d27a8b114627d03abbe369b5b68d10fa62 (patch) | |
| tree | a0e6305aec8587282964104e4e5d83100ebb1fff | |
| parent | 9e05beee1bb110a2b6e13a36119c9893ed0c5414 (diff) | |
| download | abi-compliance-checker-3ad495d27a8b114627d03abbe369b5b68d10fa62.tar.gz | |
Support for GCC 5.1
| -rw-r--r-- | INSTALL | 4 | ||||
| -rw-r--r-- | abi-compliance-checker.pl | 48 |
2 files changed, 25 insertions, 27 deletions
@@ -9,8 +9,8 @@ All rights reserved. RELEASE INFORMATION Project: ABI Compliance Checker (ABICC) -Version: 1.99.18 -Date: 2016-04-03 +Version: 1.99.19 +Date: 2016-04-18 This file explains how to install and setup environment diff --git a/abi-compliance-checker.pl b/abi-compliance-checker.pl index 4b2b41f..11ace8f 100644 --- a/abi-compliance-checker.pl +++ b/abi-compliance-checker.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl ########################################################################### -# ABI Compliance Checker (ABICC) 1.99.18 +# ABI Compliance Checker (ABICC) 1.99.19 # A tool for checking backward compatibility of a C/C++ library API # # Copyright (C) 2009-2011 Institute for System Programming, RAS @@ -60,7 +60,7 @@ use Storable qw(dclone); use Data::Dumper; use Config; -my $TOOL_VERSION = "1.99.18"; +my $TOOL_VERSION = "1.99.19"; my $ABI_DUMP_VERSION = "3.2"; my $XML_REPORT_VERSION = "1.2"; my $XML_ABI_DUMP_VERSION = "1.2"; @@ -2117,7 +2117,7 @@ sub readTUDump($) { # get a number and attributes of a node next if(not $NodeType{$2}); $LibInfo{$Version}{"info_type"}{$1}=$2; - $LibInfo{$Version}{"info"}{$1}=$3; + $LibInfo{$Version}{"info"}{$1}=$3." "; } # clean memory @@ -4143,8 +4143,11 @@ sub setBaseClasses($$) sub getBinfClassId($) { my $Info = $LibInfo{$Version}{"info"}{$_[0]}; - $Info=~/type[ ]*:[ ]*@(\d+) /; - return $1; + if($Info=~/type[ ]*:[ ]*@(\d+) /) { + return $1; + } + + return ""; } sub unmangledFormat($$) @@ -5800,8 +5803,8 @@ sub getTreeValue($) { if($_[0] and my $Info = $LibInfo{$Version}{"info"}{$_[0]}) { - if($Info=~/low[ ]*:[ ]*([^ ]+) /) { - return $1; + if($Info=~/(low|int)[ ]*:[ ]*([^ ]+) /) { + return $2; } } return ""; @@ -17860,24 +17863,19 @@ sub get_Report_Problems($$) sub composeHTML_Head($$$$$) { my ($Title, $Keywords, $Description, $Styles, $Scripts) = @_; - return "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\"> - <html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"en\" lang=\"en\"> - <head> - <meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\" /> - <meta name=\"keywords\" content=\"$Keywords\" /> - <meta name=\"description\" content=\"$Description\" /> - <title> - $Title - </title> - <style type=\"text/css\"> - $Styles - </style> - <script type=\"text/javascript\" language=\"JavaScript\"> - <!-- - $Scripts - --> - </script> - </head>"; + + my $Head = "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">\n"; + $Head .= "<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"en\" lang=\"en\">\n"; + $Head .= "<head>\n"; + $Head .= "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\" />\n"; + $Head .= "<meta name=\"keywords\" content=\"$Keywords\" />\n"; + $Head .= "<meta name=\"description\" content=\"$Description\" />\n"; + $Head .= "<title>$Title</title>\n"; + $Head .= "<style type=\"text/css\">\n$Styles</style>\n"; + $Head .= "<script type=\"text/javascript\" language=\"JavaScript\">\n<!--\n$Scripts\n-->\n</script>\n"; + $Head .= "</head>\n"; + + return $Head; } sub insertIDs($) |