diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-13 21:12:02 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-13 21:12:02 +0000 |
commit | 77e50caaf2ef81cd91075cf836fed0e75718ffb4 (patch) | |
tree | 53b7b411290b63192fc9e924a3b6b65cdf67e9d0 /debian/vendor-h2o/share/h2o/annotate-backtrace-symbols | |
parent | Adding upstream version 1.8.3. (diff) | |
download | dnsdist-77e50caaf2ef81cd91075cf836fed0e75718ffb4.tar.xz dnsdist-77e50caaf2ef81cd91075cf836fed0e75718ffb4.zip |
Adding debian version 1.8.3-2.debian/1.8.3-2
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'debian/vendor-h2o/share/h2o/annotate-backtrace-symbols')
-rwxr-xr-x | debian/vendor-h2o/share/h2o/annotate-backtrace-symbols | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/debian/vendor-h2o/share/h2o/annotate-backtrace-symbols b/debian/vendor-h2o/share/h2o/annotate-backtrace-symbols new file mode 100755 index 0000000..6d7c8a2 --- /dev/null +++ b/debian/vendor-h2o/share/h2o/annotate-backtrace-symbols @@ -0,0 +1,26 @@ +#! /bin/sh +exec ${H2O_PERL:-perl} -x $0 "$@" +#! perl + +use strict; +use warnings; + +while (my $line = <STDIN>) { + chomp $line; + if ($line =~ m{^([^\(\[]+)(.*?)\[(0x[0-9A-Fa-f]+)\]}) { + my ($exe, $info, $addr) = ($1, $2, $3); + my $resolved = addr2line($exe, $addr); + $line = "$exe${info}[$addr] $resolved" + if $resolved; + } + print "$line\n"; +} + +sub addr2line { + my ($exe, $addr) = @_; + open my $fh, "-|", qw(addr2line -pif -e), $exe, $addr + or return; + my $resolved = <$fh>; + chomp $resolved; + $resolved; +} |