paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 14:49:16 +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'];
asm
// Save our PC, SP and FP. Save the signal mask if requested with
// a tail-call for simplicity; it always returns zero.
ta 3
// Save our PC, SP and FP.
st %i7, [%i0+8]
st %sp, [%i0]
st %fp, [%i0+4]
@ -89,7 +86,10 @@ function setjmp(var S:jmp_buf):longint;assembler;[Public,alias:'FPC_SETJMP'];
{
$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
Revision 1.5 2004/05/18 19:36:37 florian