diff options
author | Ulrich Drepper <drepper@redhat.com> | 2004-12-22 20:10:10 +0000 |
---|---|---|
committer | Ulrich Drepper <drepper@redhat.com> | 2004-12-22 20:10:10 +0000 |
commit | a334319f6530564d22e775935d9c91663623a1b4 (patch) | |
tree | b5877475619e4c938e98757d518bb1e9cbead751 /scripts/begin-end-check.pl | |
parent | 0ecb606cb6cf65de1d9fc8a919bceb4be476c602 (diff) | |
download | glibc-a334319f6530564d22e775935d9c91663623a1b4.zip glibc-a334319f6530564d22e775935d9c91663623a1b4.tar.gz glibc-a334319f6530564d22e775935d9c91663623a1b4.tar.bz2 |
(CFLAGS-tst-align.c): Add -mpreferred-stack-boundary=4.
Diffstat (limited to 'scripts/begin-end-check.pl')
-rw-r--r-- | scripts/begin-end-check.pl | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/scripts/begin-end-check.pl b/scripts/begin-end-check.pl deleted file mode 100644 index 1616931..0000000 --- a/scripts/begin-end-check.pl +++ /dev/null @@ -1,47 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings; - -# Check __BEGIN_NAMESPACE ... __END_NAMESPACE pairing in an include file. - -my $code = 0; -for my $path (@ARGV) { - my $localcode = 0; - my @stack; - - open my $in, '<', $path - or die "open $path failed: $!"; - - while (<$in>) { - if ( /^\s*__BEGIN_(.*)\b/ ) { - push @stack, $1; - } - elsif ( /^\s*__END_(.*)\b/ ) { - if (@stack) { - my $tag = pop @stack; - if ($1 ne $tag) { - print "$path:$.: BEGIN $tag paired with END $1\n"; - $localcode = 1; - } - } - else { - print "$path:$.: END $1 does not match a begin\n"; - $localcode = 1; - } - } - } - - if (@stack) { - print "$path: Unmatched begin tags " . join (' ', @stack) ."\n"; - $localcode = 1; - } - - if ($localcode == 0) { - print "$path: OK\n"; - } else { - $code = $localcode; - } -} - -exit $code; |