mirror of https://github.com/yandex/odyssey.git
19 lines
350 B
Perl
19 lines
350 B
Perl
#!/usr/bin/env perl
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
# usage:
|
|
# ./<program-name> 2>&1 | tsan-decoder
|
|
|
|
while(<STDIN>) {
|
|
if (/<null> \((.+)\+(0x[0-9a-fA-F]+)\)$/) {
|
|
my $lineNum = `addr2line -e $1 $2 2>/dev/null`;
|
|
chomp $lineNum;
|
|
if ($? == 0) {
|
|
s/<null> \($1\+0x[0-9a-fA-F]+\)$/$lineNum/;
|
|
}
|
|
}
|
|
print;
|
|
}
|