sewardj | cbdddcf | 2005-03-10 23:23:45 +0000 | [diff] [blame] | 1 | #! /usr/bin/perl -w |
| 2 | |
| 3 | use strict; |
| 4 | |
sewardj | cbdddcf | 2005-03-10 23:23:45 +0000 | [diff] [blame] | 5 | while (<>) |
| 6 | { |
| 7 | s/ __getsockname / getsockname /; |
| 8 | s/ __sigaction / sigaction /; |
| 9 | s/ __GI___/ __/; |
| 10 | s/ __([a-z]*)_nocancel / $1 /; |
| 11 | |
rhyskidd | 2e5051b | 2015-03-29 05:21:15 +0000 | [diff] [blame] | 12 | # "lib[S|s]ystem*" occurs on Darwin. |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 13 | s/\(in \/.*(libc|libSystem).*\)$/(in \/...libc...)/; |
| 14 | s/\(within \/.*(libc|libSystem).*\)$/(within \/...libc...)/; |
rhyskidd | 2e5051b | 2015-03-29 05:21:15 +0000 | [diff] [blame] | 15 | s/\(in \/.*(libc|libsystem).*\)$/(in \/...libc...)/; |
| 16 | s/\(within \/.*(libc|libsystem).*\)$/(within \/...libc...)/; |
sewardj | cbdddcf | 2005-03-10 23:23:45 +0000 | [diff] [blame] | 17 | |
florian | 61e7d63 | 2013-10-07 20:57:51 +0000 | [diff] [blame] | 18 | # Filter out dynamic loader |
florian | 17cc680 | 2013-10-08 06:02:01 +0000 | [diff] [blame] | 19 | s/ \(in \/.*ld-.*so\)$//; |
florian | 61e7d63 | 2013-10-07 20:57:51 +0000 | [diff] [blame] | 20 | |
njn | e66ffee | 2009-02-12 00:51:50 +0000 | [diff] [blame] | 21 | # Remove the filename -- on some platforms (eg. Linux) it will be in |
| 22 | # libc, on some (eg. Darwin) it will be in the main executable. |
| 23 | s/\(below main\) \(.+\)$/(below main)/; |
tom | 9e41d8d | 2006-04-13 12:44:31 +0000 | [diff] [blame] | 24 | |
carll | b6b5205 | 2015-05-13 21:46:47 +0000 | [diff] [blame^] | 25 | # filter out the exact libc-start.c:### line number. (ppc64*) |
| 26 | s/\(libc-start.c:[0-9]*\)$/(in \/...libc...)/; |
| 27 | |
njn | 9cf79b5 | 2009-03-10 03:34:00 +0000 | [diff] [blame] | 28 | # Merge the different C++ operator variations. |
| 29 | s/(at.*)__builtin_new/$1...operator new.../; |
| 30 | s/(at.*)operator new\(unsigned(| int| long)\)/$1...operator new.../; |
| 31 | |
| 32 | s/(at.*)__builtin_vec_new/$1...operator new.../; |
| 33 | s/(at.*)operator new\[\]\(unsigned(| int| long)\)/$1...operator new[].../; |
| 34 | |
| 35 | s/(at.*)__builtin_delete/$1...operator delete.../; |
| 36 | s/(at.*)operator delete\(void\*\)/$1...operator delete.../; |
| 37 | |
| 38 | s/(at.*)__builtin_vec_delete/$1...operator delete[].../; |
| 39 | s/(at.*)operator delete\[\]\(void\*\)/$1...operator delete[].../; |
| 40 | |
sewardj | cbdddcf | 2005-03-10 23:23:45 +0000 | [diff] [blame] | 41 | print; |
| 42 | } |
| 43 | |
| 44 | exit 0; |