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

* removed unused variable

Browse Source
This commit is contained in:
Jonas Maebe 2005-03-25 23:01:50 +00:00
parent 2426ecafc3
commit b59e60b295
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/unix/keyboard.pp
View File

@ -1232,11 +1232,14 @@ End;
function ShiftState:byte;
var
arg,shift : longint;
{$ifndef BSD}
arg,
{$endif BSD}
shift : longint;
begin
arg:=6;
shift:=0;
{$Ifndef BSD}
arg:=6;
if fpioctl(StdInputHandle,TIOCLINUX,@arg)=0 then
begin
if (arg and 8)<>0 then
@ -1530,7 +1533,10 @@ begin
end.
{
$Log$
Revision 1.21 2005-02-14 17:13:31 peter
Revision 1.22 2005-03-25 23:01:50 jonas
* removed unused variable
Revision 1.21 2005/02/14 17:13:31 peter
* truncate log
}