paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-05 00:29:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fix undefined result for GetShiftState on linux non-console

Browse Source 
git-svn-id: trunk@27135 -
This commit is contained in:
pierre 2014-03-14 16:09:00 +00:00
parent 76e5970993
commit 29cb3a19c2
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/rtl-console/src/unix/keyboard.pp
View File

@ -1598,9 +1598,8 @@ begin
if is_console then if is_console then
SysGetShiftState:=ShiftState SysGetShiftState:=ShiftState
else else
{$else}
SysGetShiftState:=0;
{$endif} {$endif}
SysGetShiftState:=0;
end; end;