tools/tests/ctor-dtor.pl
author jruderman@hmc.edu
Thu, 08 Nov 2007 01:04:44 -0800
changeset 7687 765b5303915299ae97b5ac6ce2e6868f91d7332a
parent 1 9b2a99adc05e53cd4010de512f50118594756650
permissions -rwxr-xr-x
Re-enable a reftest now that bug 401176 is fixed. r=roc. (The fix for bug 401176 landed earlier, included in the patch for bug 399940.)

#!/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";
}