Browse Source

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

git-svn-id: trunk@44210 -
marco 5 years ago
parent
commit
5d0c9cee9d
1 changed files with 2 additions and 1 deletions
  1. 2 1
      rtl/go32v2/msmouse.pp

+ 2 - 1
rtl/go32v2/msmouse.pp

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