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

* removed unused vars

Browse Source
This commit is contained in:
peter 2000-06-22 18:37:49 +00:00
parent 57c538267c
commit 6f23dbf6c6
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/linux/crt.pp
View File

@ -1342,8 +1342,8 @@ Function CrtRead(Var F: TextRec): Integer;
Read from CRT associated file.
}
var
c: char;
i, CurX, CurY : longint;
c : char;
i : longint;
Begin
if isATTY(F.Handle) then
begin
@ -1663,7 +1663,10 @@ Begin
End.
{
$Log$
Revision 1.30 2000-06-20 08:52:16 jonas
Revision 1.31 2000-06-22 18:37:49 peter
* removed unused vars
Revision 1.30 2000/06/20 08:52:16 jonas
* crtread didn't set f.bufpos back to 0, so it failed if that wasn't
already the case on entry
* crtread now makes sure it doesn't try to read mode characters than