Răsfoiți Sursa

* added 'word ptr' overrides, to avoid generating 32-bit instructions (due to a
bug in the i8086 internal assembler reader, which will be fixed later)

git-svn-id: trunk@32872 -

nickysn 9 ani în urmă
părinte
comite
72dc92e8b8
1 a modificat fișierele cu 2 adăugiri și 2 ștergeri
  1. 2 2
      rtl/msdos/msmouse.pp

+ 2 - 2
rtl/msdos/msmouse.pp

@@ -247,7 +247,7 @@ Begin
         push    bp
         int     $33
         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)}
         mov     di, x
         mov     [di], cx
@@ -279,7 +279,7 @@ begin
         push    bp
         int     $33
         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)}
         mov     di, x
         mov     [di], cx