paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 08:09:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* setjmp on sparc improved

Browse Source
This commit is contained in:
florian 2004-05-30 12:08:32 +00:00
parent ba8730f13b
commit d748857500
1 changed files with 46 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/sparc/setjump.inc
View File

@ -77,10 +77,7 @@ end;
function setjmp(var S:jmp_buf):longint;assembler;[Public,alias:'FPC_SETJMP']; function setjmp(var S:jmp_buf):longint;assembler;[Public,alias:'FPC_SETJMP'];
asm asm
// Save our PC, SP and FP. Save the signal mask if requested with // Save our PC, SP and FP.
// a tail-call for simplicity; it always returns zero.
ta 3
st %i7, [%i0+8] st %i7, [%i0+8]
st %sp, [%i0] st %sp, [%i0]
st %fp, [%i0+4] st %fp, [%i0+4]
@ -89,7 +86,10 @@ function setjmp(var S:jmp_buf):longint;assembler;[Public,alias:'FPC_SETJMP'];
{ {
$Log$ $Log$
Revision 1.6 2004-05-25 21:38:11 peter Revision 1.7 2004-05-30 12:08:32 florian
* setjmp on sparc improved
Revision 1.6 2004/05/25 21:38:11 peter
* fixed input registers * fixed input registers
Revision 1.5 2004/05/18 19:36:37 florian Revision 1.5 2004/05/18 19:36:37 florian