paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 21:09:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

rtl-console: fixed TKeyEvent to TKeyRecord mapping on big endian systems

Browse Source 
git-svn-id: trunk@28550 -
This commit is contained in:
Károly Balogh 2014-08-31 13:17:53 +00:00
parent dffdde7d53
commit bf35dae486
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/rtl-console/src/inc/keybrdh.inc
View File

@ -20,8 +20,13 @@ const
type type
TKeyEvent = Cardinal; TKeyEvent = Cardinal;
TKeyRecord = packed record TKeyRecord = packed record
{$IFDEF ENDIAN_LITTLE}
KeyCode : Word; KeyCode : Word;
ShiftState, Flags : Byte; ShiftState, Flags : Byte;
{$ELSE}
Flags, ShiftState : Byte;
KeyCode : Word;
{$ENDIF}
end; end;
{ The structure of a TKeyEvent follows in LSB-MSB order: { The structure of a TKeyEvent follows in LSB-MSB order: