sortix-mirror/libc/x86/setjmp.S

103 lines
2.5 KiB
ArmAsm

/*
* Copyright (c) 2013, 2014 Jonas 'Sortie' Termansen.
*
* Permission to use, copy, modify, and distribute this software for any
* purpose with or without fee is hereby granted, provided that the above
* copyright notice and this permission notice appear in all copies.
*
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*
* x86/setjmp.S
* Implement the assembly part of setjmp.
*/
#define SIG_SETMASK 2
/*
* sigjmp_buf[0] = %ebx
* sigjmp_buf[1] = %esi
* sigjmp_buf[2] = %edi
* sigjmp_buf[3] = %ebp
* sigjmp_buf[4] = %esp
* sigjmp_buf[5] = <return-address>
* sigjmp_buf[6] = <non-zero if sigmask saved>
* sigjmp_buf[7...] = <saved sigmask if sigjmp_buf[6] != 0>
*/
.global setjmp
.type setjmp, @function
setjmp:
# setjmp saves the signal mask on Sortix
jmp 1f
.size setjmp, . - setjmp
.global sigsetjmp
.type sigsetjmp, @function
sigsetjmp:
movl 8(%esp), %edx
testl %edx, %edx
jz 2f
1: movl 4(%esp), %ecx
leal (7 * 4)(%ecx), %edx
pushl %edx # oldset
pushl $0 # set
pushl $0 # how (ignored because set is NULL)
call sigprocmask
addl $(3 * 4), %esp
movl $1, %edx
2: movl 4(%esp), %ecx
movl 0(%esp), %eax
movl %ebx, (0 * 4)(%ecx)
movl %esi, (1 * 4)(%ecx)
movl %edi, (2 * 4)(%ecx)
movl %ebp, (3 * 4)(%ecx)
movl %esp, (4 * 4)(%ecx)
movl %eax, (5 * 4)(%ecx)
movl %edx, (6 * 4)(%ecx)
xorl %eax, %eax
ret
.size sigsetjmp, . - sigsetjmp
.global longjmp
.type longjmp, @function
longjmp:
jmp siglongjmp
.size longjmp, . - longjmp
.global siglongjmp
.type siglongjmp, @function
siglongjmp:
movl 4(%esp), %ecx
movl 8(%esp), %eax
testl %eax, %eax
jnz 1f
movl $1, %eax
1: movl (6 * 4)(%ecx), %edx
testl %edx, %edx
jz 2f
pushl %eax
pushl %ecx
pushl $0 # oldset
leal (7 * 4)(%ecx), %edx
pushl %edx # set
pushl $SIG_SETMASK # how
call sigprocmask
addl $(3 * 4), %esp
popl %ecx
popl %eax
2: movl (0 * 4)(%ecx), %ebx
movl (1 * 4)(%ecx), %esi
movl (2 * 4)(%ecx), %edi
movl (3 * 4)(%ecx), %ebp
movl (4 * 4)(%ecx), %esp
movl (5 * 4)(%ecx), %edx
movl %edx, 0(%esp)
ret
.size siglongjmp, . - siglongjmp