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

- Replaced rows of blank spaces by tabs.

Browse Source 
git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@15168 87f5fb63-7c3d-0410-a384-fd976d0f7a62
This commit is contained in:
Olaf Barthel
2006-11-16 10:09:20 +00:00
parent c635fb3ffe
commit 75b0a762ef
2 changed files with 277 additions and 277 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
library/nrcrt0.S
View File

@ -1,5 +1,5 @@
|
| $Id: nrcrt0.S,v 1.5 2006-01-08 12:04:24 obarthel Exp $
| $Id: nrcrt0.S,v 1.6 2006-11-16 10:09:20 obarthel Exp $
|
| :ts=4
|
@ -56,7 +56,7 @@ MEMF_CLEAR = 65536
.text
.globl _main | This enforces linkage against the main() function
.globl _main | This enforces linkage against the main() function
.globl __main
.globl ___is_resident

550
library/stdlib_setjmp.c
View File

@ -1,5 +1,5 @@
/*
* $Id: stdlib_setjmp.c,v 1.4 2006-01-08 12:04:26 obarthel Exp $
* $Id: stdlib_setjmp.c,v 1.5 2006-11-16 10:09:20 obarthel Exp $
*
* :ts=4
*
@ -49,34 +49,34 @@
/****************************************************************************/
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 _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\
");
/****************************************************************************/
@ -85,43 +85,43 @@ l0: moveq #0,d0 | always return 0 \n\
/****************************************************************************/
asm(" \n\
\n\
AFB_68881 = 4 \n\
AttnFlags = 297 \n\
\n\
.text \n\
.even \n\
\n\
.globl _longjmp \n\
.globl ___stkrst \n\
\n\
_longjmp: \n\
\n\
moveal sp@(4),a0 | (struct __jmp_buf *) env \n\
movel sp@(8),d2 | (int) status \n\
\n\
tstl d2 \n\
bne l1 | skip the following if result is non-zero \n\
\n\
moveq #1,d2 | make sure that the result is always non-zero \n\
\n\
l1: movel a0@(60:W),d0 | get the stack pointer address to restore \n\
jbsr ___stkrst | restore the stack frame \n\
movel d2,d0 | get the return code back \n\
\n\
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\
asm(" \n\
\n\
AFB_68881 = 4 \n\
AttnFlags = 297 \n\
\n\
.text \n\
.even \n\
\n\
.globl _longjmp \n\
.globl ___stkrst \n\
\n\
_longjmp: \n\
\n\
moveal sp@(4),a0 | (struct __jmp_buf *) env \n\
movel sp@(8),d2 | (int) status \n\
\n\
tstl d2 \n\
bne l1 | skip the following if result is non-zero \n\
\n\
moveq #1,d2 | make sure that the result is always non-zero \n\
\n\
l1: movel a0@(60:W),d0 | get the stack pointer address to restore \n\
jbsr ___stkrst | restore the stack frame \n\
movel d2,d0 | get the return code back \n\
\n\
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\
");
/****************************************************************************/
@ -130,38 +130,38 @@ l2: moveml a0@(4:W),d1-d7 | restore all data registers \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\
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\
");
/****************************************************************************/
@ -174,24 +174,24 @@ l2: moveml a0@(4:W),d1-d7 | restore all data registers \n\
/****************************************************************************/
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 _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\
");
/****************************************************************************/
@ -200,34 +200,34 @@ _setjmp: \n\
/****************************************************************************/
asm(" \n\
\n\
.text \n\
.even \n\
\n\
.globl _longjmp \n\
.globl ___stkrst \n\
\n\
_longjmp: \n\
\n\
moveal sp@(4),a0 | (struct __jmp_buf *) env \n\
movel sp@(8),d2 | (int) status \n\
\n\
tstl d2 \n\
bne l1 | skip the following if result is non-zero\n\
\n\
moveq #1,d2 | make sure that the result is always non-zero\n\
\n\
l1: movel a0@(60:W),d0 | get the stack pointer address to restore\n\
jbsr ___stkrst | restore the stack frame \n\
movel d2,d0 | get the return code back \n\
\n\
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\
asm(" \n\
\n\
.text \n\
.even \n\
\n\
.globl _longjmp \n\
.globl ___stkrst \n\
\n\
_longjmp: \n\
\n\
moveal sp@(4),a0 | (struct __jmp_buf *) env \n\
movel sp@(8),d2 | (int) status \n\
\n\
tstl d2 \n\
bne l1 | skip the following if result is non-zero \n\
\n\
moveq #1,d2 | make sure that the result is always non-zero \n\
\n\
l1: movel a0@(60:W),d0 | get the stack pointer address to restore \n\
jbsr ___stkrst | restore the stack frame \n\
movel d2,d0 | get the return code back \n\
\n\
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\
");
/****************************************************************************/
@ -236,29 +236,29 @@ l1: movel a0@(60:W),d0 | get the stack pointer address to restore\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\
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\
");
/****************************************************************************/
@ -285,120 +285,120 @@ l1: moveml a0@(4:W),d1-d7 | restore all data registers \n\
#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\
\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\
__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\
\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\
__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 */