paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 17:59:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed Z80 setjmp/longjmp

Browse Source 
git-svn-id: branches/z80@45100 -
This commit is contained in:
nickysn 2020-04-26 14:39:27 +00:00
parent 57912f673f
commit 3dec4eece8
2 changed files with 38 additions and 4 deletions

40
rtl/z80/setjump.inc
View File

@ -23,7 +23,16 @@ function fpc_setjmp(var S : jmp_buf) : shortint;assembler;[Public, alias : 'FPC_
ld l, (ix+4) { (S) }
ld h, (ix+5) { (S+1) }
ld iy, 0
{ save caller ix }
ld c, (ix)
ld b, (ix+1)
ld (hl), c
inc hl
ld (hl), b
inc hl
{ save caller sp (i.e. what its value was, right before the call instrunction) }
ld iy, 4
add iy, sp
push iy
pop bc
@ -32,6 +41,14 @@ function fpc_setjmp(var S : jmp_buf) : shortint;assembler;[Public, alias : 'FPC_
ld (hl), b
inc hl
{ save ret address }
ld c, (ix+2)
ld b, (ix+3)
ld (hl), c
inc hl
ld (hl), b
inc hl
ld l, 0
pop ix
@ -48,6 +65,16 @@ procedure fpc_longjmp(var S : jmp_buf;value : shortint);assembler;[Public, alias
ld l, (ix+4) { (S) }
ld h, (ix+5) { (S+1) }
{ restore ix }
ld c, (hl)
inc hl
ld b, (hl)
inc hl
push bc
pop ix
{ restore sp }
ld c, (hl)
inc hl
ld b, (hl)
@ -56,9 +83,16 @@ procedure fpc_longjmp(var S : jmp_buf;value : shortint);assembler;[Public, alias
pop iy
ld sp, iy
ld l, d
{ restore pc }
ld c, (hl)
inc hl
ld b, (hl)
inc hl
{ prepare the new return address, will be popped by the ret instruction }
push bc
pop ix
{ return result }
ld l, d
end;

2
rtl/z80/setjumph.inc
View File

@ -16,7 +16,7 @@
type
jmp_buf = packed record
sp: word;
ix,sp,pc: word;
{ f,a,b,c,e,d,l,h,ixlo,ixhi,iylo,iyhi,splo,sphi,pclo,pchi : byte;}
end;
pjmp_buf = ^jmp_buf;