sewardj | cbdddcf | 2005-03-10 23:23:45 +0000 | [diff] [blame] | 1 | #! /usr/bin/perl -w |
| 2 | |
| 3 | use strict; |
| 4 | |
| 5 | my @libc_symbols = qw(__libc_start_main accept execve fcntl |
| 6 | getsockname poll readv recvmsg |
| 7 | socket socketpair syscall writev); |
| 8 | |
| 9 | my $libc_symbols = join("|", @libc_symbols); |
| 10 | |
| 11 | while (<>) |
| 12 | { |
| 13 | s/ __getsockname / getsockname /; |
| 14 | s/ __sigaction / sigaction /; |
| 15 | s/ __GI___/ __/; |
| 16 | s/ __([a-z]*)_nocancel / $1 /; |
| 17 | |
| 18 | s/\(in \/.*libc.*\)$/(in \/...libc...)/; |
| 19 | s/\(within \/.*libc.*\)$/(within \/...libc...)/; |
| 20 | |
tom | 9e41d8d | 2006-04-13 12:44:31 +0000 | [diff] [blame^] | 21 | s/\(below main\) \(.+\.[cS]:\d+\)$/(below main) (in \/...libc...)/; |
| 22 | |
sewardj | cbdddcf | 2005-03-10 23:23:45 +0000 | [diff] [blame] | 23 | s/($libc_symbols) \(.+\.[cS]:\d+\)$/$1 (in \/...libc...)/; |
| 24 | |
| 25 | print; |
| 26 | } |
| 27 | |
| 28 | exit 0; |