From 5d0c9cee9d4a38e5525561d9fc75044d8413f427 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Tue, 18 Feb 2020 15:01:07 +0000
Subject: [PATCH]  * fix mantis #36708, take care of high word buttons
 variable.

git-svn-id: trunk@44210 -
---
 rtl/go32v2/msmouse.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/rtl/go32v2/msmouse.pp b/rtl/go32v2/msmouse.pp
index 287394e5fc..defb194128 100644
--- a/rtl/go32v2/msmouse.pp
+++ b/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;