You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
abi-dumper/0001-Support-for-new-elfuti...

51 lines
1.7 KiB

From 3d6dbb6d48d10579984fb7fda2e79d3d73e10f70 Mon Sep 17 00:00:00 2001
From: Andrey Ponomarenko <andrewponomarenko@yandex.ru>
Date: Wed, 3 Jul 2019 16:51:32 +0300
Subject: [PATCH] Support for new elfutils (Fedora 30)
---
abi-dumper.pl | 11 ++++++++---
1 file changed, 8 insertions(+), 3 deletions(-)
--- a/abi-dumper.pl
+++ b/abi-dumper.pl
@@ -3,7 +3,7 @@
# ABI Dumper 1.1
# Dump ABI of an ELF object containing DWARF debug info
#
-# Copyright (C) 2013-2017 Andrey Ponomarenko's ABI Laboratory
+# Copyright (C) 2013-2019 Andrey Ponomarenko's ABI Laboratory
#
# Written by Andrey Ponomarenko
#
@@ -92,7 +92,7 @@ my %ERROR_CODE = (
my $ShortUsage = "ABI Dumper $TOOL_VERSION
Dump ABI of an ELF object containing DWARF debug info
-Copyright (C) 2017 Andrey Ponomarenko's ABI Laboratory
+Copyright (C) 2019 Andrey Ponomarenko's ABI Laboratory
License: GNU LGPL or GNU GPL
Usage: $CmdName [options] [object]
@@ -4276,6 +4276,11 @@ sub setSource(@)
if(defined $File)
{
+ if(index($File, "(")!=-1)
+ { # Support for new elfutils (Fedora 30)
+ $File=~s/.+ \((\d+)\)/$1/;
+ }
+
my $Name = undef;
if($ID>=0) {
@@ -6504,7 +6509,7 @@ sub scenario()
if($ShowVersion)
{
printMsg("INFO", "ABI Dumper $TOOL_VERSION");
- printMsg("INFO", "Copyright (C) 2017 Andrey Ponomarenko's ABI Laboratory");
+ printMsg("INFO", "Copyright (C) 2019 Andrey Ponomarenko's ABI Laboratory");
printMsg("INFO", "License: LGPL or GPL <http://www.gnu.org/licenses/>");
printMsg("INFO", "This program is free software: you can redistribute it and/or modify it.\n");
printMsg("INFO", "Written by Andrey Ponomarenko.");