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     # "libSystem*" occurs on Darwin.
  13     s/\(in \/.*(libc|libSystem).*\)$/(in \/...libc...)/;
  14     s/\(within \/.*(libc|libSystem).*\)$/(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     # Merge the different C++ operator variations.
  24     s/(at.*)__builtin_new/$1...operator new.../;
  25     s/(at.*)operator new\(unsigned(| int| long)\)/$1...operator new.../;
  26
  27     s/(at.*)__builtin_vec_new/$1...operator new.../;
  28     s/(at.*)operator new\[\]\(unsigned(| int| long)\)/$1...operator new[].../;
  29
  30     s/(at.*)__builtin_delete/$1...operator delete.../;
  31     s/(at.*)operator delete\(void\*\)/$1...operator delete.../;
  32
  33     s/(at.*)__builtin_vec_delete/$1...operator delete[].../;
  34     s/(at.*)operator delete\[\]\(void\*\)/$1...operator delete[].../;
  35
  36     print;
  37 }
  38
  39 exit 0;