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

* added 'word ptr' overrides, to avoid generating 32-bit instructions (due to a

Browse Source 
bug in the i8086 internal assembler reader, which will be fixed later)

git-svn-id: trunk@32872 -
This commit is contained in:
nickysn 2016-01-07 15:40:47 +00:00
parent a508f9e5d3
commit 72dc92e8b8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/msdos/msmouse.pp
View File

@ -247,7 +247,7 @@ Begin
push bp push bp
int $33 int $33
pop bp pop bp
mov @Result, bx mov word ptr @Result, bx
{$if defined(FPC_MM_TINY) or defined(FPC_MM_SMALL) or defined(FPC_MM_MEDIUM)} {$if defined(FPC_MM_TINY) or defined(FPC_MM_SMALL) or defined(FPC_MM_MEDIUM)}
mov di, x mov di, x
mov [di], cx mov [di], cx
@ -279,7 +279,7 @@ begin
push bp push bp
int $33 int $33
pop bp pop bp
mov @Result, bx mov word ptr @Result, bx
{$if defined(FPC_MM_TINY) or defined(FPC_MM_SMALL) or defined(FPC_MM_MEDIUM)} {$if defined(FPC_MM_TINY) or defined(FPC_MM_SMALL) or defined(FPC_MM_MEDIUM)}
mov di, x mov di, x
mov [di], cx mov [di], cx