1 #! /usr/bin/perl -w 2 3 use strict; 4 5 while (<>) 6 { 7 s/ __getsockname / getsockname /; 8 s/ __sigaction / sigaction /; 9 s/ __GI___/ __/; 10 s/ __([a-z]*)_nocancel / $1 /; 11 12 # "lib[S|s]ystem*" occurs on Darwin, "libsocket" on older Solaris/illumos. 13 s/\(in \/.*(libc|libSystem|libsystem|libsocket).*\)$/(in \/...libc...)/; 14 s/\(within \/.*(libc|libSystem|libsystem|libsocket).*\)$/(within \/...libc...)/; 15 16 # Filter out dynamic loader 17 s/ \(in \/.*ld-.*so\)$//; 18 19 # Remove the filename -- on some platforms (eg. Linux) it will be in 20 # libc, on some (eg. Darwin) it will be in the main executable. 21 s/\(below main\) \(.+\)$/(below main)/; 22 23 # filter out the exact libc-start.c:### line number. (ppc64*) 24 s/\(libc-start.c:[0-9]*\)$/(in \/...libc...)/; 25 26 # Merge the different C++ operator variations. 27 s/(at.*)__builtin_new/$1...operator new.../; 28 s/(at.*)operator new\(unsigned(| int| long)\)/$1...operator new.../; 29 30 s/(at.*)__builtin_vec_new/$1...operator new.../; 31 s/(at.*)operator new\[\]\(unsigned(| int| long)\)/$1...operator new[].../; 32 33 s/(at.*)__builtin_delete/$1...operator delete.../; 34 s/(at.*)operator delete\(void\*\)/$1...operator delete.../; 35 36 s/(at.*)__builtin_vec_delete/$1...operator delete[].../; 37 s/(at.*)operator delete\[\]\(void\*\)/$1...operator delete[].../; 38 39 # Some glibc versions complain about unexpected futex syscall errors. 40 s/The futex facility returned an unexpected error code.//; 41 42 print; 43 } 44 45 exit 0; 46
