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

+ implmemented FPC_LONGJMP for i8086

Browse Source 
git-svn-id: branches/i8086@24034 -
This commit is contained in:
nickysn 2013-03-28 14:59:57 +00:00
parent 5cda24a0b6
commit 3b2ea4df6c
3 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/i8086/setjump.inc
View File

@ -31,6 +31,22 @@ asm
end;
Procedure fpc_longJmp (Var S : Jmp_buf; value : longint); assembler;nostackframe;[Public, alias : 'FPC_LONGJMP']; compilerproc;
Procedure fpc_longJmp (Var S : Jmp_buf; value : smallint); assembler;nostackframe;[Public, alias : 'FPC_LONGJMP']; compilerproc;
asm
mov bx, ax
mov ax, dx
test ax, ax
jnz @@L1
inc ax
@@L1:
mov si, word [bx + Jmp_buf.si]
mov di, word [bx + Jmp_buf.di]
mov dx, word [bx + Jmp_buf.pc]
mov bp, word [bx + Jmp_buf.bp]
mov sp, word [bx + Jmp_buf.sp]
mov bx, word [bx + Jmp_buf.bx]
// we should also clear the fpu
// fninit no must be done elsewhere PM
// or we should reset the control word also
jmp dx
end;

2
rtl/i8086/setjumph.inc
View File

@ -21,4 +21,4 @@ Type
PJmp_buf = ^jmp_buf;
Function Setjmp (Var S : Jmp_buf) : smallint; [external name 'FPC_SETJMP'];
Procedure longjmp (Var S : Jmp_buf; value : longint); [external name 'FPC_LONGJMP'];
Procedure longjmp (Var S : Jmp_buf; value : smallint); [external name 'FPC_LONGJMP'];

2
rtl/inc/compproc.inc
View File

@ -666,4 +666,4 @@ function fpc_longword_to_double(i: longword): double; compilerproc;
{$endif FPC_INCLUDE_SOFTWARE_LONGWORD_TO_DOUBLE}
function fpc_setjmp(var s : jmp_buf) : {$ifdef CPU16}smallint{$else}longint{$endif}; compilerproc;
procedure fpc_longjmp(var s : jmp_buf; value : longint); compilerproc;
procedure fpc_longjmp(var s : jmp_buf; value : {$ifdef CPU16}smallint{$else}longint{$endif}); compilerproc;