tree.c (integer_zerop): Handle VECTOR_CSTs.
[gcc.git] / contrib / make_sunver.pl
index 292837402dbe3b93ac26597bb63830eebbdf3a9b..afdf973f5da440d8eb9bbe733dca663694b0a568 100644 (file)
@@ -156,9 +156,6 @@ my $glob = 'glob';
 # We're currently inside `extern "C++"', which Sun ld doesn't understand.
 my $in_extern = 0;
 
-# We're currently inside a conditional section: just skip it.
-my $in_ifdef = 0;
-
 # The c++filt command to use.  This *must* be GNU c++filt; the Sun Studio
 # c++filt doesn't handle the GNU mangling style.
 my $cxxfilt = $ENV{'CXXFILT'} || "c++filt";
@@ -183,15 +180,6 @@ printf "# Omitted archives with corresponding shared libraries: %s\n",
 print "#\n\n";
 
 while (<F>) {
-    # End of skipped section.
-    if (/^[ \t]*\#endif/) {
-       $in_ifdef = 0;
-       next;
-    }
-
-    # Just skip a conditional section.
-    if ($in_ifdef) { next; }
-
     # Lines of the form '};'
     if (/^([ \t]*)(\}[ \t]*;[ \t]*)$/) {
        $glob = 'glob';
@@ -216,15 +204,6 @@ while (<F>) {
        print; next;
     }
 
-    # Special comments that look like C preprocessor conditionals.
-    # Just skip the contents for now.
-    # FIXME: Allow passing in conditionals from the command line to really
-    # control the skipping.
-    if (/^[ \t]*\#ifdef/) {
-       $in_ifdef = 1;
-       next;
-    }
-
     # Comment and blank lines
     if (/^[ \t]*\#/) { print; next; }
     if (/^[ \t]*$/) { print; next; }
@@ -276,9 +255,10 @@ while (<F>) {
     if (/^([ \t]*)([^ \t;{}#]+);?[ \t]*$/) {
        my $ws = $1;
        my $ptn = $2;
-       # Turn the glob into a regex by replacing '*' with '.*'.
+       # Turn the glob into a regex by replacing '*' with '.*', '?' with '.'.
        # Keep $ptn so we can still print the original form.
        ($pattern = $ptn) =~ s/\*/\.\*/g;
+       $pattern =~ s/\?/\./g;
 
        if ($glob eq 'ign') {
            # We're in a local: * section; just continue.