tests/filter_libc

   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     print;
  40 }
  41
  42 exit 0;