pytest is not correctly auto-installed
[WebKit-https.git] / Tools / Scripts / check-for-weak-vtables-and-externals
1 #!/usr/bin/env perl
2
3 # Copyright (C) 2006-2008, 2010, 2013, 2015 Apple Inc. All rights reserved.
4 #
5 # Redistribution and use in source and binary forms, with or without
6 # modification, are permitted provided that the following conditions
7 # are met:
8 # 1.  Redistributions of source code must retain the above copyright
9 #     notice, this list of conditions and the following disclaimer.
10 # 2.  Redistributions in binary form must reproduce the above copyright
11 #     notice, this list of conditions and the following disclaimer in the
12 #     documentation and/or other materials provided with the distribution.
13 #
14 # THIS SOFTWARE IS PROVIDED BY APPLE INC. AND ITS CONTRIBUTORS ``AS IS'' AND ANY
15 # EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
16 # WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
17 # DISCLAIMED. IN NO EVENT SHALL APPLE INC. OR ITS CONTRIBUTORS BE LIABLE FOR ANY
18 # DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
19 # (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
20 # LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
21 # ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
22 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
23 # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
24
25 # "check-for-weak-vtables-and-externals" script for WebKit Open Source Project
26
27 # Intended to be invoked from an Xcode build step to check if there are
28 # any weak vtables or weak externals in a target.
29
30 use warnings;
31 use strict;
32
33 use File::Basename;
34 use File::Spec;
35 use FindBin;
36 use lib $FindBin::Bin;
37 use webkitdirs;
38
39 sub touch($);
40
41 my $arch = $ENV{'CURRENT_ARCH'};
42 my $configuration = $ENV{'CONFIGURATION'};
43 my $target = $ENV{'TARGET_NAME'};
44 my $variant = $ENV{'CURRENT_VARIANT'};
45 my $coverageBuild = $ENV{'WEBKIT_COVERAGE_BUILD'};
46 my $debugRoot = $ENV{'WEBKIT_DEBUG_ROOT'};
47
48 my $executablePath = "$ENV{'TARGET_BUILD_DIR'}/$ENV{'EXECUTABLE_PATH'}";
49
50 my $buildTimestampPath = $ENV{'TARGET_TEMP_DIR'} . "/" . basename($0) . ".timestamp";
51 my $buildTimestampAge = -M $buildTimestampPath;
52 my $executablePathAge = -M $executablePath;
53
54 my $sawError = 0;
55
56 if (!defined $executablePathAge || !defined $buildTimestampAge || $executablePathAge < $buildTimestampAge) {
57     if (!open NM, "(nm -m '$executablePath' | sed 's/^/STDOUT:/') 2>&1 |") {
58         print "ERROR: Could not open $executablePath\n";
59         $sawError = 1;
60         next;
61     }
62     my @weakVTableClasses = ();
63     my @weakExternalSymbols = ();
64     while (<NM>) {
65         if (/^STDOUT:/) {
66             # Ignore undefined, RTTI and typeinfo symbols.
67             next if /\bundefined\b/ or /\b__ZT[IS]/;
68
69             # ASan compiler-rt calls into __asan_mapping_offset and __asan_mapping_scale
70             next if /\b___asan/;
71
72             if (/weak external vtable for (.*)$/) {
73                 push @weakVTableClasses, $1;
74             } elsif (/weak external (.*)$/) {
75                 push @weakExternalSymbols, $1;
76             }
77         } else {
78             print STDERR if $_ ne "nm: no name list\n";
79         }
80     }
81     close NM;
82
83     my $shortName = $executablePath;
84     $shortName =~ s/.*\///;
85
86     if (@weakVTableClasses) {
87         print "ERROR: $shortName has a weak vtable in it ($executablePath)\n";
88         print "ERROR: Fix by making sure the first virtual function in each of these classes is not an inline:\n";
89         for my $class (sort @weakVTableClasses) {
90             print "ERROR: class $class\n";
91         }
92         $sawError = 1;
93     }
94
95     if (@weakExternalSymbols) {
96         print "ERROR: $shortName has a weak external symbol in it ($executablePath)\n";
97         print "ERROR: A weak external symbol is generated when a symbol is defined in multiple compilation units and is also marked as being exported from the library.\n";
98         print "ERROR: A common cause of weak external symbols is when an inline function is listed in the linker export file.\n";
99         for my $symbol (sort @weakExternalSymbols) {
100             print "ERROR: symbol $symbol\n";
101         }
102         $sawError = 1;
103     }
104 }
105
106 if ($sawError and !$coverageBuild) {
107     unlink $executablePath;
108     exit 1;
109 }
110
111 touch($buildTimestampPath);
112
113 exit 0;
114
115 sub touch($)
116 {
117     my ($path) = @_;
118     open(TOUCH, ">", $path) or die "$!";
119     close(TOUCH);
120 }