mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-18 19:31:35 +02:00
70 lines
1.9 KiB
PHP
70 lines
1.9 KiB
PHP
{
|
|
$Id$
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 2003 by Florian Klaempfl and other members of the
|
|
Free Pascal development team
|
|
|
|
SetJmp and LongJmp implementation for exception handling
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program 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.
|
|
|
|
**********************************************************************}
|
|
|
|
function setjmp(var S : jmp_buf) : longint;assembler;[Public, alias : 'FPC_SETJMP'];nostackframe;
|
|
asm
|
|
// Save registers.
|
|
movq %rbx,(%rdi)
|
|
movq %rbp,8(%rdi)
|
|
movq %r12,16(%rdi)
|
|
movq %r13,24(%rdi)
|
|
movq %r14,32(%rdi)
|
|
movq %r15,40(%rdi)
|
|
leaq 8(%rsp),%rdx // Save SP as it will be after we return.
|
|
movq %rdx,48(%rdi)
|
|
movq 0(%rsp),%rsi // Save PC we are returning to now.
|
|
movq %rsi,56(%rdi)
|
|
xorq %rax,%rax
|
|
end;
|
|
|
|
|
|
procedure longjmp(var S : jmp_buf;value : longint);assembler;[Public, alias : 'FPC_LONGJMP'];
|
|
asm
|
|
// Restore registers.
|
|
movq (%rdi),%rbx
|
|
movq 8(%rdi),%rbp
|
|
movq 16(%rdi),%r12
|
|
movq 24(%rdi),%r13
|
|
movq 32(%rdi),%r14
|
|
movq 40(%rdi),%r15
|
|
// Set return value for setjmp.
|
|
test %esi,%esi
|
|
mov $01,%eax
|
|
cmove %eax,%esi
|
|
mov %esi,%eax
|
|
movq 56(%rdi),%rdx
|
|
movq 48(%rdi),%rsp
|
|
jmpq *%rdx
|
|
end;
|
|
|
|
{
|
|
$Log$
|
|
Revision 1.5 2004-11-01 19:42:46 peter
|
|
* fixes for nostackframe
|
|
|
|
Revision 1.4 2004/11/01 16:00:28 florian
|
|
* setjmp must not have a stack frame else the offsets are wrong
|
|
|
|
Revision 1.3 2004/04/26 19:23:19 florian
|
|
* saving of rbp in setjmp fixe
|
|
|
|
Revision 1.2 2004/04/24 20:13:34 florian
|
|
* fixed x86-64 exception handling
|
|
|
|
Revision 1.1 2003/04/30 22:11:06 florian
|
|
+ for a lot of x86-64 dependend files mostly dummies added
|
|
} |