tools/tests/ctor-dtor.pl@deefc01c0e14
tools/tests/ctor-dtor.pl
Thu, 15 Jan 2015 21:03:48 +0100
- author
- Michael Schloh von Bennewitz <michael@schloh.com>
- date
- Thu, 15 Jan 2015 21:03:48 +0100
- branch
- TOR_BUG_9701
- changeset 11
- deefc01c0e14
- permissions
- -rwxr-xr-x
Integrate friendly tips from Tor colleagues to make (or not) 4.5 alpha 3;
This includes removal of overloaded (but unused) methods, and addition of
a overlooked call to DataStruct::SetData(nsISupports, uint32_t, bool.)
1 #!/usr/bin/perl
3 use Cwd;
5 $curdir = cwd();
7 open( LOG, ">ctor-dtor-report" ) || print "can't open $?\n";
9 @path_fields = split(/\//,$curdir);
11 $path = join ("/",@path_fields);
13 print "Searching in " . $path . "\n";
14 open (REPORT, "find $path -name \"*.o\" -print | xargs nm -Bno | egrep \"_GLOBAL_\.[ID]|_tcf\" 2>&1 |" ) || die "open: $! \n";
16 while (<REPORT>) {
17 print $_;
18 print LOG $_;
19 }
20 close(REPORT);
22 if (-s "./ctor-dtor-report" > 0) {
23 print "Global Constructors\/Destructors Found" . "\n";
24 }
