mirror of
git://sourceware.org/git/newlib-cygwin.git
synced 2025-01-19 04:49:25 +08:00
1a9f95d894
Since 4e7817498efc, we're just running the tests against the installed
DLL. We're arranging to put the build directory on the path, but since
it doesn't contain cygwin1.dll (since it's built with a different name
and renamed on installation), that doesn't have any effect.
Arrange to place the just-built DLL into a directory which the testsuite
can place on it's path (while running the test, but not while compiling
it).
Also fix any remaining references to cygwin0.dll in testsuite,
documentation and comments.
Fixes: 4e7817498efc ("Cygwin: Makefile: Drop all the "test dll" considerations")
80 lines
2.0 KiB
Perl
Executable File
80 lines
2.0 KiB
Perl
Executable File
#!/usr/bin/perl -s
|
|
#
|
|
# This file is part of Cygwin.
|
|
#
|
|
# This software is a copyrighted work licensed under the terms of the
|
|
# Cygwin license. Please consult the file "CYGWIN_LICENSE" for
|
|
# details.
|
|
|
|
# This will do a crude test to see if the (NO)?SIGFE stuff is used properly
|
|
# in cygwin.din. It is not perfect so do not use it to do a wholesale replacement.
|
|
#
|
|
# Input is the output of 'objdump --disassemble --demangle new-cygwin1.dll'.
|
|
#
|
|
use strict;
|
|
use vars qw'$v';
|
|
sub star($);
|
|
|
|
my %funcs;
|
|
my $func = '';
|
|
|
|
$| = 1;
|
|
while (<>) {
|
|
/^610.....\s+<([^\(>]+).*?:/o and do {
|
|
$func = $1;
|
|
$funcs{$func} = {} unless defined $funcs{$func};
|
|
next;
|
|
};
|
|
$func and /call\s+\S+\s+<([^\(>]+)/o and do {
|
|
my $called = $1;
|
|
$funcs{$func}{$called} = 1;
|
|
if ($called =~ /^[A-Z].*@/o || ($called = $funcs{$called}{-uses_kernel})) {
|
|
$funcs{$func}{-uses_kernel} ||= $called;
|
|
my @a = ($func);
|
|
while (my $f = shift @a) {
|
|
for my $k (keys %funcs) {
|
|
if ($funcs{$k}{$f} && !$funcs{$k}{-uses_kernel}) {
|
|
$funcs{$k}{-uses_kernel} = $called;
|
|
push(@a, $k);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
next;
|
|
};
|
|
}
|
|
|
|
if ($v) {
|
|
for my $k (sort keys %funcs) {
|
|
print star($funcs{$k}), $k, $funcs{$k}{-uses_kernel} ? " ($funcs{$k}{-uses_kernel})\n" : "\n";
|
|
my $indent = ' ';
|
|
for (sort keys %{$funcs{$k}}) {
|
|
next if /^-/o;
|
|
print $indent, $_, star($funcs{$k});
|
|
$indent = ' ';
|
|
}
|
|
print "\n";
|
|
}
|
|
}
|
|
|
|
open(DIN, '<', 'cygwin.din') or die "$0: couldn't open cygwin.din - $!\n";
|
|
while (<DIN>) {
|
|
my $line = $_;
|
|
/^LIBRARY\s+/o and next;
|
|
/^\s*$/ and next;
|
|
/^EXPORTS/o and next;
|
|
/ DATA$/o and next;
|
|
my $sigfe = (/\s+((?:NO)?SIGFE)\s*$/o)[0] !~ /^NO/o;
|
|
s/\s+((?:NO)?SIGFE)\s*$//o;
|
|
my $func = (/\s+=\s+(\S+)/o)[0] || (/^\s*(\S+)/o)[0];
|
|
if (!defined($funcs{$func})) {
|
|
warn "hmm. couldn't find $func in disassembled output\n";
|
|
} elsif (!!$funcs{$func}{-uses_kernel} != $sigfe) {
|
|
warn "mismatch detected: $line";
|
|
}
|
|
}
|
|
|
|
sub star($) {
|
|
return $_[0]->{-uses_kernel} ? '*' : '';
|
|
}
|