diff options
author | Andrey Ponomarenko <aponomarenko@rosalab.ru> | 2013-07-03 12:00:26 +0400 |
---|---|---|
committer | Andrey Ponomarenko <aponomarenko@rosalab.ru> | 2013-07-03 12:00:26 +0400 |
commit | 78b7f9923f0b38c98ce6d37bc0542764692afa6f (patch) | |
tree | 13f193f7ea2c24ca48a34805b16d46584d753d5f /abi-dumper.pl | |
parent | 8ec76589d1c43fdf57e1edb4fdd9c4bd6de32bce (diff) | |
download | abi-dumper-78b7f9923f0b38c98ce6d37bc0542764692afa6f.tar.gz |
Increased version of ABI dump format to 3.2
Diffstat (limited to 'abi-dumper.pl')
-rwxr-xr-x | abi-dumper.pl | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/abi-dumper.pl b/abi-dumper.pl index 06ebbc4..5b40b37 100755 --- a/abi-dumper.pl +++ b/abi-dumper.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl ########################################################################### -# ABI Dumper 0.97 +# ABI Dumper 0.98 # Dump ABI of an ELF object containing DWARF debug info # # Copyright (C) 2013 ROSA Laboratory @@ -19,7 +19,7 @@ # # COMPATIBILITY # ============= -# ABI Compliance Checker >= 1.99.1 +# ABI Compliance Checker >= 1.99.7 # # # This program is free software: you can redistribute it and/or modify @@ -43,8 +43,8 @@ use Cwd qw(abs_path cwd realpath); use Storable qw(dclone); use Data::Dumper; -my $TOOL_VERSION = "0.97"; -my $ABI_DUMP_VERSION = "3.1"; +my $TOOL_VERSION = "0.98"; +my $ABI_DUMP_VERSION = "3.2"; my $ORIG_DIR = cwd(); my $TMP_DIR = tempdir(CLEANUP=>1); @@ -605,6 +605,11 @@ sub read_DWARF_Info($) $SYS_ARCH = "x86"; } + if($SYS_ARCH=~/amd64/i) + { # amd64 + $SYS_ARCH = "x86_64"; + } + # source info if($ExtraInfo) { $ExtraPath = $ExtraInfo."/debug_line"; @@ -3017,7 +3022,6 @@ sub check_Completeness($) if($TName=~/\A(true|false|\d.*)\Z/) { next; } - my $Found = 0; if(my $Tid = searchTypeID($TName)) { check_TypeInfo($Tid); |