paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 10:45:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

- Removed unused variables

Browse Source 
git-svn-id: trunk@25005 -
This commit is contained in:
sergei 2013-06-28 11:53:10 +00:00
parent 8bfef107b3
commit 40045e6269
2 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/unix/keyboard.pp
View File

@ -302,7 +302,6 @@ end;
procedure UnpatchKeyboard;
var
e : ^chgentry;
entry : kbentry;
i : longint;
begin
@ -339,8 +338,6 @@ end;
when working on another console. So we unpatch it when the user switches
away.}
const switches:longint=0;
procedure vt_handler(sig:longint);cdecl;
begin

2
rtl/unix/mouse.pp
View File

@ -148,7 +148,7 @@ const mouse_terminals:array[0..6] of string[7]=('cons','eterm','gnome',
xterm=6;
mouse_1003_capable=[xterm]; {xterm only for now}
var term,colorterm:string;
var term:string;
i,t:shortint;
begin