paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 12:51:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* changed the parameters to SetMouseXRange and SetMouseYRange (used internally

Browse Source 
in the msdos mouse unit) to word instead of longint

git-svn-id: trunk@37748 -
This commit is contained in:
nickysn 2017-12-16 03:09:15 +00:00
parent 91a182081f
commit 5fd1d28f62
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl-console/src/msdos/mouse.pp
View File

@ -460,7 +460,7 @@ asm
@@SetMouseXYExit: @@SetMouseXYExit:
end; end;
Procedure SetMouseXRange (Min,Max:Longint); Procedure SetMouseXRange (Min,Max:word);
begin begin
If Not(MousePresent) Then Exit; If Not(MousePresent) Then Exit;
asm asm
@ -473,7 +473,7 @@ begin
end; end;
end; end;
Procedure SetMouseYRange (min,max:Longint); Procedure SetMouseYRange (min,max:word);
begin begin
If Not(MousePresent) Then Exit; If Not(MousePresent) Then Exit;
asm asm