Преглед изворни кода

* fix mantis #36708, take care of high word buttons variable.

git-svn-id: trunk@44210 -
marco пре 5 година
родитељ
комит
5d0c9cee9d
1 измењених фајлова са 2 додато и 1 уклоњено
  1. 2 1
      rtl/go32v2/msmouse.pp

+ 2 - 1
rtl/go32v2/msmouse.pp

@@ -150,6 +150,7 @@ begin
         pushl   %ebp
         int     $0x33
         popl    %ebp
+        andl    $0xffff,%ebx
         andl    $0xffff,%ecx
         andl    $0xffff,%edx
         movl    x,%eax
@@ -157,7 +158,7 @@ begin
         movl    y,%eax
         movl    %edx,(%eax)
         movl    buttons,%eax
-        movw    %bx,(%eax)
+        movl    %ebx,(%eax)
   end;
 end;