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

* fixed get_caller_addr returning the wrong segment in i8086 medium memory model

Browse Source 
git-svn-id: trunk@25859 -
This commit is contained in:
nickysn 2013-10-27 11:36:45 +00:00
parent 4646884d87
commit 7489bfb56b
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/i8086/i8086.inc
View File

@ -132,12 +132,11 @@ asm
mov ax, ss:[si + 4 + extra_param_offset + extra_param_offset] // framebp mov ax, ss:[si + 4 + extra_param_offset + extra_param_offset] // framebp
or ax, ax or ax, ax
jz @@Lg_a_null jz @@Lg_a_null
xchg ax, bx xchg ax, bx // 1 byte shorter than a mov
mov bx, [bx+2] mov ax, [bx+2]
{$ifdef FPC_X86_CODE_FAR} {$ifdef FPC_X86_CODE_FAR}
mov dx, [bx+4] mov dx, [bx+4]
{$endif FPC_X86_CODE_FAR} {$endif FPC_X86_CODE_FAR}
xchg ax, bx
@@Lg_a_null: @@Lg_a_null:
end; end;