mirror of
https://gitlab.winehq.org/wine/wine-gecko.git
synced 2024-09-13 09:24:08 -07:00
25 lines
509 B
Perl
25 lines
509 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use Cwd;
|
||
|
|
|
||
|
|
$curdir = cwd();
|
||
|
|
|
||
|
|
open( LOG, ">ctor-dtor-report" ) || print "can't open $?\n";
|
||
|
|
|
||
|
|
@path_fields = split(/\//,$curdir);
|
||
|
|
|
||
|
|
$path = join ("/",@path_fields);
|
||
|
|
|
||
|
|
print "Searching in " . $path . "\n";
|
||
|
|
open (REPORT, "find $path -name \"*.o\" -print | xargs nm -Bno | egrep \"_GLOBAL_\.[ID]|_tcf\" 2>&1 |" ) || die "open: $! \n";
|
||
|
|
|
||
|
|
while (<REPORT>) {
|
||
|
|
print $_;
|
||
|
|
print LOG $_;
|
||
|
|
}
|
||
|
|
close(REPORT);
|
||
|
|
|
||
|
|
if (-s "./ctor-dtor-report" > 0) {
|
||
|
|
print "Global Constructors\/Destructors Found" . "\n";
|
||
|
|
}
|