mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-18 15:39:26 +02:00
79 lines
2.0 KiB
PHP
79 lines
2.0 KiB
PHP
{
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 1999-2000 by xxxx
|
|
member of the Free Pascal development team
|
|
|
|
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.
|
|
|
|
**********************************************************************}
|
|
|
|
{**********************************************************************
|
|
Set_Jmp/Long_jmp
|
|
**********************************************************************}
|
|
|
|
{$warning Fix register handling in case of nostackframe }
|
|
|
|
Function fpc_SetJmp (Var S : Jmp_buf) : longint;assembler;nostackframe;[Public, alias : 'FPC_SETJMP'];compilerproc;
|
|
asm
|
|
// Temporarily store a0 into d0
|
|
move.l a0,d0
|
|
// load S to a0
|
|
move.l 4(sp),a0
|
|
|
|
// Save data registers d1..d7
|
|
movem.l d1/d2/d3/d4/d5/d6/d7,12(a0)
|
|
// Save address registers (a0-a5/a6, a0 is in d0 now)
|
|
{$if defined(amiga)}
|
|
movem.l d0/a1/a2/a3/a4/a6,40(a0) { amiga uses a5 as fp }
|
|
{$else}
|
|
movem.l d0/a1/a2/a3/a4/a5,40(a0)
|
|
{$endif}
|
|
|
|
// save return address (PC) and pop S off the stack
|
|
move.l (sp)+,d0
|
|
move.l d0,(sp)
|
|
move.l d0,8(a0)
|
|
// save FP
|
|
move.l fp,(a0)
|
|
// save SP
|
|
move.l sp,d0
|
|
// 4 bytes already popped, 4 to go.
|
|
addq.l #4,d0
|
|
move.l d0,4(a0)
|
|
// restore a0
|
|
move.l 40(a0),a0
|
|
|
|
// return 0
|
|
clr.l d0
|
|
end;
|
|
|
|
Procedure fpc_longJmp (Var S : Jmp_buf; value : longint); assembler;nostackframe;[Public, alias : 'FPC_LONGJMP'];compilerproc;
|
|
asm
|
|
// load S to a0
|
|
move.l 4(sp),a0
|
|
|
|
// restore FP
|
|
move.l (a0),fp
|
|
// restore SP
|
|
move.l 4(a0),sp
|
|
// jump to PC
|
|
move.l 8(a0),-(sp)
|
|
|
|
// Restore data registers
|
|
movem.l 12(a0),d1/d2/d3/d4/d5/d6/d7
|
|
|
|
// Restore address registers
|
|
{$if defined(amiga)}
|
|
movem.l 40(a0),a0/a1/a2/a3/a4/a6 { amiga uses a5 as fp }
|
|
{$else}
|
|
movem.l 40(a0),a0/a1/a2/a3/a4/a5
|
|
{$endif}
|
|
|
|
// new return pc is at (sp)
|
|
end;
|