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 | |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 12 | # "libSystem*" occurs on Darwin. |
| 13 | s/\(in \/.*(libc|libSystem).*\)$/(in \/...libc...)/; |
| 14 | s/\(within \/.*(libc|libSystem).*\)$/(within \/...libc...)/; |
sewardj | cbdddcf | 2005-03-10 23:23:45 +0000 | [diff] [blame] | 15 | |
njn | e66ffee | 2009-02-12 00:51:50 +0000 | [diff] [blame] | 16 | # Remove the filename -- on some platforms (eg. Linux) it will be in |
| 17 | # libc, on some (eg. Darwin) it will be in the main executable. |
| 18 | s/\(below main\) \(.+\)$/(below main)/; |
tom | 9e41d8d | 2006-04-13 12:44:31 +0000 | [diff] [blame] | 19 | |
njn | 9cf79b5 | 2009-03-10 03:34:00 +0000 | [diff] [blame] | 20 | # Merge the different C++ operator variations. |
| 21 | s/(at.*)__builtin_new/$1...operator new.../; |
| 22 | s/(at.*)operator new\(unsigned(| int| long)\)/$1...operator new.../; |
| 23 | |
| 24 | s/(at.*)__builtin_vec_new/$1...operator new.../; |
| 25 | s/(at.*)operator new\[\]\(unsigned(| int| long)\)/$1...operator new[].../; |
| 26 | |
| 27 | s/(at.*)__builtin_delete/$1...operator delete.../; |
| 28 | s/(at.*)operator delete\(void\*\)/$1...operator delete.../; |
| 29 | |
| 30 | s/(at.*)__builtin_vec_delete/$1...operator delete[].../; |
| 31 | s/(at.*)operator delete\[\]\(void\*\)/$1...operator delete[].../; |
| 32 | |
sewardj | cbdddcf | 2005-03-10 23:23:45 +0000 | [diff] [blame] | 33 | print; |
| 34 | } |
| 35 | |
| 36 | exit 0; |