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

* fixed ds corruption in CompareWord in far data memory models

Browse Source 
git-svn-id: trunk@32040 -
This commit is contained in:
nickysn 2015-10-13 15:01:10 +00:00
parent 7ed7b090fe
commit 4fe125d779
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/i8086/i8086.inc
View File

@ -337,7 +337,7 @@ asm
xor ax, ax // initialize ax=0 (it's the result register, we never use it for anything else in this function) xor ax, ax // initialize ax=0 (it's the result register, we never use it for anything else in this function)
mov bx, sp mov bx, sp
mov cx, ss:[bx + 2 + extra_param_offset] // len mov cx, ss:[bx + 2 + extra_param_offset] // len
jcxz @@Equal jcxz @@Done
mov dx, ds // for far data models, backup ds; for near data models, use to initialize es mov dx, ds // for far data models, backup ds; for near data models, use to initialize es
{$ifdef FPC_X86_DATA_NEAR} {$ifdef FPC_X86_DATA_NEAR}