Retro68/gcc/libitm/config/s390/sjlj.S
2017-10-07 02:16:47 +02:00

109 lines
3.1 KiB
ArmAsm

/* Copyright (C) 2013-2017 Free Software Foundation, Inc.
Contributed by Andreas Krebbel <krebbel@linux.vnet.ibm.com>
This file is part of the GNU Transactional Memory Library (libitm).
Libitm is free software; you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3 of the License, or
(at your option) any later version.
Libitm is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the GNU General Public License for
more details.
Under Section 7 of GPL version 3, you are granted additional
permissions described in the GCC Runtime Library Exception, version
3.1, as published by the Free Software Foundation.
You should have received a copy of the GNU General Public License and
a copy of the GCC Runtime Library Exception along with this program;
see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
<http://www.gnu.org/licenses/>. */
#include "asmcfi.h"
.text
.align 4
.globl _ITM_beginTransaction
.type _ITM_beginTransaction, @function
/* _ITM_beginTransaction (int props); props -> r2 */
_ITM_beginTransaction:
cfi_startproc
#ifdef __s390x__
lgr %r3,%r15 /* backup stack pointer */
aghi %r15,-304 /* jump buffer (144) + reg save area (160) */
cfi_adjust_cfa_offset(304)
stmg %r6,%r14,160(%r15)
stg %r3,72+160(%r15) /* store the old stack pointer */
std %f8,80+160(%r15)
std %f9,88+160(%r15)
std %f10,96+160(%r15)
std %f11,104+160(%r15)
std %f12,112+160(%r15)
std %f13,120+160(%r15)
std %f14,128+160(%r15)
std %f15,136+160(%r15)
la %r3,160(%r15) /* second argument to GTM_begin_transaction */
brasl %r14,GTM_begin_transaction
lg %r1,64+160(%r15)
aghi %r15,304
cfi_adjust_cfa_offset(-304)
br %r1
#else
lr %r3,%r15 /* backup stack pointer */
ahi %r15,-152 /* jump buffer (56) + reg save area (96) */
cfi_adjust_cfa_offset(152)
stm %r6,%r14,96(%r15)
st %r3,36+96(%r15) /* store the old stack pointer */
std %f4,40+96(%r15)
std %f6,48+96(%r15)
la %r3,96(%r15) /* second argument to GTM_begin_transaction */
/* begin_transaction (uint32_t prop, const gtm_jmpbuf *jb) */
brasl %r14,GTM_begin_transaction /* requires mzarch */
l %r1,32+96(%r15)
ahi %r15,152
cfi_adjust_cfa_offset(-152)
br %r1
#endif
cfi_endproc
.size _ITM_beginTransaction, .-_ITM_beginTransaction
.align 4
.globl GTM_longjmp
.type GTM_longjmp, @function
.hidden GTM_longjmp
/* uint32_t GTM_longjmp (uint32_t, const gtm_jmpbuf *, uint32_t) */
GTM_longjmp:
/* First parameter becomes the return value of
_ITM_beginTransaction (r2).
Third parameter is ignored for now. */
cfi_startproc
#ifdef __s390x__
ld %f8,80(%r3)
ld %f9,88(%r3)
ld %f10,96(%r3)
ld %f11,104(%r3)
ld %f12,112(%r3)
ld %f13,120(%r3)
ld %f14,128(%r3)
ld %f15,136(%r3)
lmg %r6,%r15,0(%r3)
br %r14
#else
ld %f4,40(%r3)
ld %f6,48(%r3)
lm %r6,%r15,0(%r3)
br %r14
#endif
cfi_endproc
.size GTM_longjmp, .-GTM_longjmp
.section .note.GNU-stack, "", @progbits