paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 03:49:20 +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. Read from CRT associated file.
} }
var var
c: char; c : char;
i, CurX, CurY : longint; i : longint;
Begin Begin
if isATTY(F.Handle) then if isATTY(F.Handle) then
begin begin
@ -1663,7 +1663,10 @@ Begin
End. End.
{ {
$Log$ $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 * crtread didn't set f.bufpos back to 0, so it failed if that wasn't
already the case on entry already the case on entry
* crtread now makes sure it doesn't try to read mode characters than * crtread now makes sure it doesn't try to read mode characters than