Libc-1439.100.3.tar.gz

[apple/libc.git] / xcodescripts / patch_headers_variants.pl

diff --git a/xcodescripts/patch_headers_variants.pl b/xcodescripts/patch_headers_variants.pl
index b404cbcee53ed2f9ad71f1dbcf0d9938adde6797..a71d758e3e517efa3c3ab9c122abc4a8e87939af 100644 (file)
--- a/xcodescripts/patch_headers_variants.pl
+++ b/xcodescripts/patch_headers_variants.pl
@@ -55,6 +55,11 @@ sub process {
                }
        }
 
                }
        }
 

+       my($fname, $dirs, $suffix) = File::Basename::fileparse($file, ".h");
+       if ($suffix ne ".h") {
+               return;
+       }
+

     my $p = IO::File->new($path, 'r');
     die "$MyName: Can't open $path: $!\n" unless defined($p);
     my $f = IO::File->new($file, 'w');
     my $p = IO::File->new($path, 'r');
     die "$MyName: Can't open $path: $!\n" unless defined($p);
     my $f = IO::File->new($file, 'w');


@@ -66,6 +71,9 @@ sub process {
                        my $sym;
                        if($n > 0) {
                                my($sym) = ($save[$n - 1] =~ /__DARWIN_(?:10\d+|ALIAS|EXTSN|INODE64)[^(]*\(([^)]*)\)/);
                        my $sym;
                        if($n > 0) {
                                my($sym) = ($save[$n - 1] =~ /__DARWIN_(?:10\d+|ALIAS|EXTSN|INODE64)[^(]*\(([^)]*)\)/);

+                               if($save[$n - 1] =~ /__DARWIN_ALIAS_STARTING/) {
+                                       undef $sym;
+                               }

                                if(defined($sym)) {
                                        if(defined($path)) {
                                                print "  $path\n";
                                if(defined($sym)) {
                                        if(defined($path)) {
                                                print "  $path\n";