github/amiga-clib2
1
0
Fork 0
mirror of https://github.com/adtools/clib2.git synced 2025-12-08 14:59:05 +00:00
Code Issues Releases Wiki Activity
Files
c149db9037bae55786f77897ddb9c4bbd949fe43
amiga-clib2/library/stdlib_setjmp.c
Olaf Barthel 7f0f7929ba - Updated copyright text and contact information 
- Replaced ISO Latin 1 code #160 with a plain blank space (ASCII code #32) where necessary


git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@15305 87f5fb63-7c3d-0410-a384-fd976d0f7a62
2015-06-10 13:13:40 +00:00

304 lines
8.7 KiB
C
Raw Blame History

/*
* $Id: stdlib_setjmp.c,v 1.6 2010-10-20 13:50:17 obarthel Exp $
*
* :ts=4
*
* Portable ISO 'C' (1994) runtime library for the Amiga computer
* Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
*
* - Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
*
* - Neither the name of Olaf Barthel nor the names of contributors
* may be used to endorse or promote products derived from this
* software without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
* AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
* LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
* POSSIBILITY OF SUCH DAMAGE.
*/
#if defined(__GNUC__)
/****************************************************************************/
#if defined(SMALL_DATA)
#define A4(x) "a4@(" #x ":W)"
#elif defined(SMALL_DATA32)
#define A4(x) "a4@(" #x ":L)"
#else
#define A4(x) #x
#endif /* SMALL_DATA */
/****************************************************************************/
#if defined(__mc68020__)
/****************************************************************************/
asm(" \n\
\n\
AFB_68881 = 4 \n\
AttnFlags = 297 \n\
\n\
.text \n\
.even \n\
\n\
.globl _setjmp \n\
\n\
_setjmp: \n\
\n\
movel a0,sp@- | save A0 \n\
moveal sp@(8),a0 | (struct __jmp_buf *) env \n\
movel sp@(4),a0@ | remember the return address \n\
moveml d1-a6,a0@(4:W) | save all registers, except for D0 and A7 \n\
movel sp@+,a0@(32:W) | put the old A0 where it belongs \n\
movel sp,a0@(60:W) | put the old A7 where it belongs \n\
\n\
moveal "A4(_SysBase)",a1 \n\
btst #AFB_68881,a1@(AttnFlags:W) | is there an FPU installed? \n\
beq l0 | skip the following if not \n\
\n\
fmovemx fp0-fp7,a0@(64:W) | save all floating point registers \n\
\n\
l0: moveq #0,d0 | always return 0 \n\
rts \n\
\n\
");
/****************************************************************************/
asm(" \n\
\n\
AFB_68881 = 4 \n\
AttnFlags = 297 \n\
\n\
.text \n\
.even \n\
\n\
.globl _longjmp \n\
\n\
_longjmp: \n\
\n\
moveal sp@(4),a0 | (struct __jmp_buf *) env \n\
movel sp@(8),d0 | (int) status \n\
\n\
tstl d0 \n\
bne l1 | skip the following if result is non-zero \n\
\n\
moveq #1,d0 | make sure that the result is always non-zero \n\
\n\
l1: moveal "A4(_SysBase)",a1 \n\
btst #AFB_68881,a1@(AttnFlags:W) | is there an FPU installed? \n\
beq l2 | skip the following if not \n\
\n\
fmovemx a0@(64:W),fp0-fp7 | restore all floating point registers \n\
\n\
l2: moveml a0@(4:W),d1-d7 | restore all data registers \n\
moveml a0@(36:W),a1-a7 | restore almost all address registers, except for A0 \n\
movel a0@,sp@ | restore A0 \n\
moveal a0@(32:W),a0 | and return to the address setjmp() was called from \n\
rts \n\
\n\
");
/****************************************************************************/
#elif defined(__mc68000__)
/****************************************************************************/
asm(" \n\
\n\
.text \n\
.even \n\
\n\
.globl _setjmp \n\
\n\
_setjmp: \n\
\n\
movel a0,sp@- | save A0 \n\
moveal sp@(8),a0 | (struct __jmp_buf *) env \n\
movel sp@(4),a0@ | remember the return address \n\
moveml d1-a6,a0@(4:W) | save all registers, except for D0 and A7 \n\
movel sp@+,a0@(32:W) | put the old A0 where it belongs \n\
movel sp,a0@(60:W) | put the old A7 where it belongs \n\
moveq #0,d0 | always return 0 \n\
rts \n\
\n\
");
/****************************************************************************/
asm(" \n\
\n\
.text \n\
.even \n\
\n\
.globl _longjmp \n\
\n\
_longjmp: \n\
\n\
moveal sp@(4),a0 | (struct __jmp_buf *) env \n\
movel sp@(8),d0 | (int) status \n\
\n\
tstl d0 \n\
bne l1 | skip the following if result is non-zero \n\
\n\
moveq #1,d0 | make sure that the result is always non-zero \n\
\n\
l1: moveml a0@(4:W),d1-d7 | restore all data registers \n\
moveml a0@(36:W),a1-a7 | restore almost all address registers, except for A0 \n\
movel a0@,sp@ | restore A0 \n\
moveal a0@(32:W),a0 | and return to the address setjmp() was called from \n\
rts \n\
\n\
");
/****************************************************************************/
#elif defined(__PPC__)
/****************************************************************************/
#ifdef PPC_FLOATING_POINT_SUPPORT
__asm(" \n\
\n\
.text \n\
.align 2 \n\
\n\
.globl setjmp \n\
\n\
setjmp: \n\
\n\
mflr r10 \n\
mfcr r11 \n\
mr r12, r1 \n\
stmw r10, 0(r3) \n\
stfd f14, 88(r3) \n\
stfd f15, 96(r3) \n\
stfd f16, 104(r3) \n\
stfd f17, 112(r3) \n\
stfd f18, 120(r3) \n\
stfd f19, 128(r3) \n\
stfd f20, 136(r3) \n\
stfd f21, 144(r3) \n\
stfd f22, 152(r3) \n\
stfd f23, 160(r3) \n\
stfd f24, 168(r3) \n\
stfd f25, 176(r3) \n\
stfd f26, 184(r3) \n\
stfd f27, 192(r3) \n\
stfd f28, 200(r3) \n\
stfd f29, 208(r3) \n\
stfd f30, 216(r3) \n\
stfd f31, 224(r3) \n\
li r3, 0 \n\
blr \n\
\n\
");
__asm(" \n\
.text \n\
.align 2 \n\
\n\
.globl longjmp \n\
\n\
longjmp: \n\
\n\
lmw r10,0(r3) \n\
mtlr r10 \n\
mtcr r11 \n\
mr r1,r12 \n\
lfd f14, 88(r3) \n\
lfd f15, 96(r3) \n\
lfd f16, 104(r3) \n\
lfd f17, 112(r3) \n\
lfd f18, 120(r3) \n\
lfd f19, 128(r3) \n\
lfd f20, 136(r3) \n\
lfd f21, 144(r3) \n\
lfd f22, 152(r3) \n\
lfd f23, 160(r3) \n\
lfd f24, 168(r3) \n\
lfd f25, 176(r3) \n\
lfd f26, 184(r3) \n\
lfd f27, 192(r3) \n\
lfd f28, 200(r3) \n\
lfd f29, 208(r3) \n\
lfd f30, 216(r3) \n\
lfd f31, 224(r3) \n\
cmpwi r4, 0 \n\
bne 1f \n\
li r3,1 \n\
blr \n\
1: \n\
mr r3, r4 \n\
blr \n\
\n\
");
#else
__asm(" \n\
\n\
.text \n\
.align 2 \n\
\n\
.globl setjmp \n\
\n\
setjmp: \n\
\n\
mflr r10 \n\
mfcr r11 \n\
mr r12, r1 \n\
stmw r10, 0(r3) \n\
li r3, 0 \n\
blr \n\
\n\
");
__asm(" \n\
.text \n\
.align 2 \n\
\n\
.globl longjmp \n\
\n\
longjmp: \n\
\n\
lmw r10,0(r3) \n\
mtlr r10 \n\
mtcr r11 \n\
mr r1,r12 \n\
cmpwi r4, 0 \n\
bne 1f \n\
li r3,1 \n\
blr \n\
1: \n\
mr r3, r4 \n\
blr \n\
\n\
");
#endif /* defined PPC_FLOATING_POINT_SUPPORT */
/****************************************************************************/
#endif /* PPC */
/****************************************************************************/
#endif /* __GNUC__ */
Reference in New Issue View Git Blame Copy Permalink