re PR go/56017 (libgo testsuite does not support cross testing)
[gcc.git] / contrib / filter_params.pl
1 #!/usr/bin/perl
2
3 # Filters out some of the #defines used throughout the GCC sources:
4 # - GTY(()) marks declarations for gengtype.c
5 # - PARAMS(()) is used for K&R compatibility. See ansidecl.h.
6
7 while (<>) {
8 s/^\/\* /\/\*\* \@verbatim /;
9 s/\*\// \@endverbatim \*\//;
10 s/GTY[ \t]*\(\(.*\)\)//g;
11 s/[ \t]ATTRIBUTE_UNUSED//g;
12 s/PARAMS[ \t]*\(\((.*?)\)\)/\($1\)/sg;
13 print;
14 }