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

* compilation of i8086 rtl fixed (seems like the fpc asm reader doesn't support 16-bit LEA, so hardcode it with DB for now)

Browse Source 
git-svn-id: trunk@25806 -
This commit is contained in:
nickysn 2013-10-16 16:34:48 +00:00
parent c9d021aeb8
commit 9be15583af
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/i8086/setjump.inc
View File

@ -25,7 +25,9 @@ asm
mov ax, word ss:[si + 2] mov ax, word ss:[si + 2]
mov word [bx + Jmp_buf.cs], ax mov word [bx + Jmp_buf.cs], ax
{$endif FPC_X86_CODE_FAR} {$endif FPC_X86_CODE_FAR}
lea ax, [si + 4 + extra_param_offset] // the fpc inline asm reader doesn't support 16-bit LEA it seems...
// lea ax, [si + 4 + extra_param_offset]
db 08Dh, 044h, 4 + extra_param_offset
mov word [bx + Jmp_buf.sp], ax mov word [bx + Jmp_buf.sp], ax
xor ax, ax xor ax, ax