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

* fixed compilation on non-Linux

Browse Source 
git-svn-id: trunk@3393 -
This commit is contained in:
Jonas Maebe 2006-04-30 20:51:02 +00:00
parent a387be19a0
commit a6863b49e1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/unix/keyboard.pp
View File

@ -81,6 +81,8 @@ const KbShiftUp = $f0;
KbShiftHome = $f4; KbShiftHome = $f4;
KbShiftEnd = $f5; KbShiftEnd = $f5;
double_esc_hack_enabled : boolean = false;
{$ifdef Unused} {$ifdef Unused}
type type
TKeyState = Record TKeyState = Record
@ -196,7 +198,6 @@ const
const const
oldmeta : longint = 0; oldmeta : longint = 0;
meta : longint = 0; meta : longint = 0;
double_esc_hack_enabled : boolean = false;
var oldesc0,oldesc1,oldesc2,oldesc4,oldesc8:word; var oldesc0,oldesc1,oldesc2,oldesc4,oldesc8:word;