paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 03:46:10 +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; function ShiftState:byte;
var var
arg,shift : longint; {$ifndef BSD}
arg,
{$endif BSD}
shift : longint;
begin begin
arg:=6;
shift:=0; shift:=0;
{$Ifndef BSD} {$Ifndef BSD}
arg:=6;
if fpioctl(StdInputHandle,TIOCLINUX,@arg)=0 then if fpioctl(StdInputHandle,TIOCLINUX,@arg)=0 then
begin begin
if (arg and 8)<>0 then if (arg and 8)<>0 then
@ -1530,7 +1533,10 @@ begin
end. end.
{ {
$Log$ $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 * truncate log
} }