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

* fixed get_caller_frame() for win16 (on that platform, bp is incremented by

Browse Source 
one, before pushing, to indicate a far call, so it has to be aligned by 2
  again, after reading)

git-svn-id: trunk@37657 -
This commit is contained in:
nickysn 2017-12-01 23:00:47 +00:00
parent 06e025b779
commit bc8c1ea1bc
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/i8086/i8086.inc
View File

@ -601,6 +601,9 @@ asm
jz @@Lgnf_null jz @@Lgnf_null
xchg ax, si // 1 byte shorter than a mov xchg ax, si // 1 byte shorter than a mov
seges lodsw seges lodsw
{$ifdef WIN16}
and al, $FE
{$endif WIN16}
mov dx, es mov dx, es
@@Lgnf_null: @@Lgnf_null:
{$endif FPC_X86_DATA_NEAR} {$endif FPC_X86_DATA_NEAR}