diff options
Diffstat (limited to 'web/server/h2o/libh2o/share/h2o/annotate-backtrace-symbols')
-rwxr-xr-x | web/server/h2o/libh2o/share/h2o/annotate-backtrace-symbols | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/web/server/h2o/libh2o/share/h2o/annotate-backtrace-symbols b/web/server/h2o/libh2o/share/h2o/annotate-backtrace-symbols deleted file mode 100755 index 6d7c8a2d6..000000000 --- a/web/server/h2o/libh2o/share/h2o/annotate-backtrace-symbols +++ /dev/null @@ -1,26 +0,0 @@ -#! /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; -} |