286 lines
6.0 KiB
Perl
Executable File
286 lines
6.0 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
use strict;
|
|
my $in = shift;
|
|
my $tls_offsets = shift;
|
|
my $out = shift;
|
|
my $sigfe = shift;
|
|
|
|
$main::first = 0;
|
|
if (!defined($in) || !defined($out) || !defined($sigfe)) {
|
|
die "usage: $0 deffile.in cygtls.h deffile.def sigfe.s\n";
|
|
}
|
|
|
|
require $tls_offsets;
|
|
|
|
open(IN, $in) or die "$0: couldn't open \"$in\" - $!\n";
|
|
my @top = ();
|
|
while (<IN>) {
|
|
push(@top, $_);
|
|
last if /^\s*exports\s*$/i;
|
|
}
|
|
my $libline = <IN>;
|
|
my @in = <IN>;
|
|
close(IN);
|
|
|
|
my %sigfe = ();
|
|
my @data = ();
|
|
my @nosigfuncs = ();
|
|
my @out = ();
|
|
for (@in) {
|
|
/\sDATA$/o and do {
|
|
push(@data, $_);
|
|
next;
|
|
};
|
|
chomp;
|
|
if (/=/o) {
|
|
if (s/\s+NOSIGFE\s*$//) {
|
|
} elsif (s/ SIGFE$//) {
|
|
my $func = (split(' '))[2];
|
|
$sigfe{$func} = '_sigfe_' . $func;
|
|
}
|
|
} else {
|
|
my ($func, $sigfe) = m%^\s*(\S+)(?:\s+((?:NO)?SIGR?FE))?$%o;
|
|
if (defined($sigfe) && $sigfe =~ /^NO/o) {
|
|
$_ = $func;
|
|
} else {
|
|
$sigfe ||= 'sigfe';
|
|
$_ = '_' . lc($sigfe) . '_' . $func;
|
|
$sigfe{$func} = $_;
|
|
$_ = $func . ' = ' . $_;
|
|
}
|
|
}
|
|
s/(\S)\s+(\S)/$1 $2/go;
|
|
s/(\S)\s+$/$1/o;
|
|
s/^\s+(\S)/$1/o;
|
|
push(@out, $_ . "\n");
|
|
}
|
|
|
|
for (@out) {
|
|
my ($alias, $func) = /^(\S+) = (\S+)\s*$/o;
|
|
$_ = $alias . ' = ' . $sigfe{$func} . "\n"
|
|
if defined($func) && $sigfe{$func};
|
|
}
|
|
open(OUT, '>', $out) or die "$0: couldn't open \"$out\" - $!\n";
|
|
print OUT @top, @data, @out;
|
|
close OUT;
|
|
|
|
open(SIGFE, '>', $sigfe) or die "$0: couldn't open sigfe file \"$sigfe\" - $!\n";
|
|
|
|
for my $k (sort keys %sigfe) {
|
|
print SIGFE fefunc($k, $sigfe{$k});
|
|
}
|
|
close SIGFE;
|
|
|
|
sub fefunc {
|
|
my $func = '_' . shift;
|
|
my $fe = '_' . shift;
|
|
my $extra;
|
|
my $res = <<EOF;
|
|
.extern $func
|
|
.global $fe
|
|
$fe:
|
|
pushl \$$func
|
|
jmp __sigfe
|
|
|
|
EOF
|
|
if (!$main::first++) {
|
|
$res = <<EOF . longjmp () . $res;
|
|
.text
|
|
|
|
.stabs "_sigfe:F(0,1)",36,0,0,__sigbe
|
|
__sigfe:
|
|
pushl %ebx
|
|
pushl %edx
|
|
1: movl %fs:4,%edx # location of bottom of stack
|
|
movl \$1,%eax # potential lock value
|
|
lock xchgl %eax,$tls::stacklock(%edx) # see if we can grab it
|
|
movl %eax,$tls::spinning(%edx) # flag if we are waiting for lock
|
|
orl %eax,%eax # it will be zero
|
|
jz 2f # if so
|
|
xorl %eax,%eax # nope. It was not zero
|
|
call _low_priority_sleep # should be a short-time thing, so
|
|
jmp 1b # sleep and loop
|
|
2: movl \$4,%eax # have the lock, now increment the
|
|
xadd %eax,$tls::stackptr(%edx) # stack pointer and get pointer
|
|
leal __sigbe,%ebx # new place to return to
|
|
xchgl %ebx,12(%esp) # exchange with real return value
|
|
movl %ebx,(%eax) # store real return value on alt stack
|
|
decl $tls::stacklock(%edx) # remove lock
|
|
popl %edx # restore saved value
|
|
popl %ebx
|
|
ret
|
|
|
|
.global __sigbe
|
|
.stabs "_sigbe:F(0,1)",36,0,0,__sigbe
|
|
__sigbe:
|
|
pushl %ebx
|
|
pushl %edx # return here after cygwin syscall
|
|
pushl %eax # don't clobber
|
|
1: movl %fs:4,%edx # address of bottom of tls
|
|
movl \$1,%eax # potential lock value
|
|
lock xchgl %eax,$tls::stacklock(%edx) # see if we can grab it
|
|
movl %eax,$tls::spinning(%edx) # flag if we are waiting for lock
|
|
orl %eax,%eax # it will be zero
|
|
jz 2f # if so
|
|
xorl %eax,%eax # nope. not zero
|
|
call _low_priority_sleep # sleep
|
|
jmp 1b # and loop
|
|
2: movl \$-4,%eax # now decrement aux stack
|
|
xadd %eax,$tls::stackptr(%edx) # and get pointer
|
|
xorl %ebx,%ebx
|
|
xchgl %ebx,-4(%eax) #
|
|
xchgl %ebx,8(%esp)
|
|
decl $tls::stacklock(%edx) # release lock
|
|
popl %eax
|
|
popl %edx
|
|
ret
|
|
|
|
.global __ZN7_cygtls3popEv
|
|
__ZN7_cygtls3popEv:
|
|
1: pushl %ebx
|
|
pushl %edx # FIXME: needed?
|
|
movl %eax,%edx
|
|
movl \$-4,%ebx
|
|
xadd %ebx,$tls::pstackptr(%edx)
|
|
xorl %eax,%eax
|
|
xchgl %eax,-4(%ebx)
|
|
popl %edx # FIXME: needed?
|
|
popl %ebx
|
|
ret
|
|
|
|
.global __ZN7_cygtls4lockEv
|
|
__ZN7_cygtls4lockEv:
|
|
pushl %edi
|
|
movl %eax,%edi
|
|
1: movl \$1,%eax
|
|
lock xchgl %eax,$tls::pstacklock(%edi)
|
|
orl %eax,%eax
|
|
jz 2f
|
|
xorl %eax,%eax
|
|
call _low_priority_sleep
|
|
jmp 1b
|
|
2: popl %edi
|
|
ret
|
|
|
|
.global __ZN7_cygtls6unlockEv
|
|
__ZN7_cygtls6unlockEv:
|
|
decl $tls::pstacklock(%eax)
|
|
ret
|
|
|
|
.global __ZN7_cygtls6lockedEv
|
|
__ZN7_cygtls6lockedEv:
|
|
movl $tls::pstacklock(%eax),%eax
|
|
ret
|
|
|
|
.global _sigreturn
|
|
.stabs "sigreturn:F(0,1)",36,0,0,_sigreturn
|
|
_sigreturn:
|
|
addl \$4,%esp # Remove argument
|
|
call _set_process_mask\@4
|
|
|
|
movl %fs:4,%ebx
|
|
|
|
# cmpl \$0,$tls::sig(%ebx) # Did a signal come in?
|
|
# jnz 3f # Yes, if non-zero
|
|
|
|
1: popl %edx # saved errno
|
|
testl %edx,%edx # Is it < 0
|
|
jl 2f # yup. ignore it
|
|
movl $tls::errno_addr(%ebx),%eax
|
|
movl %edx,(%eax)
|
|
2: popl %eax
|
|
popl %ebx
|
|
popl %ecx
|
|
popl %edx
|
|
popl %edi
|
|
popl %esi
|
|
popf
|
|
popl %ebp
|
|
jmp __sigbe
|
|
|
|
.global _sigdelayed
|
|
.stabs "sigdelayed:F(0,1)",36,0,0,_sigdelayed
|
|
_sigdelayed:
|
|
pushl %ebp
|
|
movl %esp,%ebp
|
|
pushf
|
|
pushl %esi
|
|
pushl %edi
|
|
pushl %edx
|
|
pushl %ecx
|
|
pushl %ebx
|
|
pushl %eax
|
|
movl %fs:4,%ebx
|
|
pushl $tls::saved_errno(%ebx) # saved errno
|
|
3: pushl $tls::oldmask(%ebx) # oldmask
|
|
pushl $tls::sig(%ebx) # signal argument
|
|
pushl \$_sigreturn
|
|
|
|
call _reset_signal_arrived\@0
|
|
pushl $tls::func(%ebx) # signal func
|
|
pushl $tls::newmask(%ebx) # newmask - eaten by set_process_mask
|
|
|
|
call _set_process_mask\@4
|
|
cmpl \$0,$tls::threadkill(%ebx)#pthread_kill signal?
|
|
jnz 4f #yes. Callee clears signal number
|
|
movl \$0,$tls::sig(%ebx) # zero the signal number as a
|
|
# flag to the signal handler thread
|
|
# that it is ok to set up sigsave
|
|
4: ret
|
|
|
|
EOF
|
|
}
|
|
return $res;
|
|
}
|
|
|
|
sub longjmp {
|
|
return <<EOF;
|
|
|
|
.globl _longjmp
|
|
|
|
_longjmp:
|
|
1: movl %fs:4,%edx
|
|
movl \$1,%eax
|
|
lock xchgl %eax,$tls::stacklock(%edx)
|
|
movl %eax,$tls::spinning(%edx) # flag if we are waiting for lock
|
|
orl %eax,%eax
|
|
jz 2f
|
|
xorl %eax,%eax
|
|
call _low_priority_sleep
|
|
jmp 1b
|
|
2: leal ($tls::stack)(%edx),%eax
|
|
movl %eax,($tls::stackptr)(%edx)
|
|
|
|
pushl %ebp
|
|
movl %esp,%ebp
|
|
movl 8(%ebp),%edi
|
|
movl 12(%ebp),%eax
|
|
testl %eax,%eax
|
|
jne 3f
|
|
incl %eax
|
|
|
|
3: movl %eax,0(%edi)
|
|
movl 24(%edi),%ebp
|
|
pushfl
|
|
popl %ebx
|
|
movw 42(%edi),%ax
|
|
movw %ax,%ss
|
|
movl 28(%edi),%esp
|
|
pushl 32(%edi)
|
|
pushl %ebx
|
|
movw 36(%edi),%ax
|
|
movw %ax,%es
|
|
movw 40(%edi),%ax
|
|
movw %ax,%gs
|
|
movl 0(%edi),%eax
|
|
movl 4(%edi),%ebx
|
|
movl 8(%edi),%ecx
|
|
movl 16(%edi),%esi
|
|
decl $tls::stacklock(%edx)
|
|
movl 12(%edi),%edx
|
|
movl 20(%edi),%edi
|
|
popfl
|
|
ret
|
|
EOF
|
|
}
|