mirror of
https://github.com/Zenithsiz/ftmemsim-valgrind.git
synced 2026-02-03 18:13:01 +00:00
29 lines
651 B
Perl
Executable File
29 lines
651 B
Perl
Executable File
#! /usr/bin/perl -w
|
|
|
|
use strict;
|
|
|
|
my @libc_symbols = qw(__libc_start_main accept execve fcntl
|
|
getsockname poll readv recvmsg
|
|
socket socketpair syscall writev);
|
|
|
|
my $libc_symbols = join("|", @libc_symbols);
|
|
|
|
while (<>)
|
|
{
|
|
s/ __getsockname / getsockname /;
|
|
s/ __sigaction / sigaction /;
|
|
s/ __GI___/ __/;
|
|
s/ __([a-z]*)_nocancel / $1 /;
|
|
|
|
s/\(in \/.*libc.*\)$/(in \/...libc...)/;
|
|
s/\(within \/.*libc.*\)$/(within \/...libc...)/;
|
|
|
|
s/\(below main\) \(.+\.[cS]:\d+\)$/(below main) (in \/...libc...)/;
|
|
|
|
s/($libc_symbols) \(.+\.[cS]:\d+\)$/$1 (in \/...libc...)/;
|
|
|
|
print;
|
|
}
|
|
|
|
exit 0;
|