* analyze_sigfe: New script.

* dllfixdbg: Add copyright.
* gendef: Ditto.
* gendevices: Ditto.
* gentls_offsets: Ditto.

6 files changed, 120 insertions, 0 deletions

diff --git a/winsup/cygwin/ChangeLog b/winsup/cygwin/ChangeLog
index 407a09b..f525f0d 100644
--- a/winsup/cygwin/ChangeLog
+++ b/winsup/cygwin/ChangeLog
@@ -1,5 +1,13 @@
 2006-03-01  Christopher Faylor  <cgf@timesys.com>
 
+	* analyze_sigfe: New script.
+	* dllfixdbg: Add copyright.
+	* gendef: Ditto.
+	* gendevices: Ditto.
+	* gentls_offsets: Ditto.
+
+2006-03-01  Christopher Faylor  <cgf@timesys.com>
+
 	* cygthread.cc (cygthread::callfunc): Create ev as an auto-reset event
 	so that it will be reset by WaitFor*Object as appropriate.
 	(cygthread::stub): Ditto.
diff --git a/winsup/cygwin/analyze_sigfe b/winsup/cygwin/analyze_sigfe
new file mode 100755
index 0000000..0b9b721
--- /dev/null
+++ b/winsup/cygwin/analyze_sigfe
@@ -0,0 +1,80 @@
+#!/usr/bin/perl -s
+# Copyright 2006 Red Hat, Inc.
+#
+# 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 cygwin0.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} ? '*' : '';
+}
diff --git a/winsup/cygwin/dllfixdbg b/winsup/cygwin/dllfixdbg
index 8d66988..909d113 100755
--- a/winsup/cygwin/dllfixdbg
+++ b/winsup/cygwin/dllfixdbg
@@ -1,4 +1,12 @@
 #!/usr/bin/perl
+# Copyright 2006 Red Hat, Inc.
+#
+# 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.
+#
 use integer;
 use strict;
 sub xit($@);
diff --git a/winsup/cygwin/gendef b/winsup/cygwin/gendef
index a81105c..c6b6a79 100755
--- a/winsup/cygwin/gendef
+++ b/winsup/cygwin/gendef
@@ -1,4 +1,12 @@
 #!/usr/bin/perl
+# Copyright 2003, 2004, 2005 Red Hat, Inc.
+#
+# 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.
+#
 use strict;
 sub nocr(@);
 my $in = shift;
diff --git a/winsup/cygwin/gendevices b/winsup/cygwin/gendevices
index 27d4ed1..df21796 100755
--- a/winsup/cygwin/gendevices
+++ b/winsup/cygwin/gendevices
@@ -1,4 +1,12 @@
 #!/usr/bin/perl
+# Copyright 2003, 2004, 2005 Red Hat, Inc.
+#
+# 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.
+#
 use File::Basename;
 use Cwd;
 my $cwd = getcwd;
diff --git a/winsup/cygwin/gentls_offsets b/winsup/cygwin/gentls_offsets
index 931eac3..21c9d1e 100755
--- a/winsup/cygwin/gentls_offsets
+++ b/winsup/cygwin/gentls_offsets
@@ -1,4 +1,12 @@
 #!/usr/bin/perl -s
+# Copyright 2003, 2004, 2005 Red Hat, Inc.
+#
+# 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.
+#
 my $tls = shift;
 my $tls_out = shift;
 open(TLS, $tls) or die "$0: couldn't open tls file \"$tls\" - $!\n";