paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-26 16:09:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* removed hardcoded limit of 80 width

Browse Source
This commit is contained in:
peter 2000-05-08 13:24:27 +00:00
parent 2c081cf333
commit a20f357c8f
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/linux/crt.pp
View File

@ -1191,7 +1191,7 @@ var
while (SendBytes>0) do
begin
LeftX:=WinMaxX-CurrX+1;
if (SendBytes>LeftX) or (CurrX+SendBytes=81) then
if (SendBytes>LeftX) then
begin
ttyWrite(Copy(s,i-SendBytes,LeftX));
dec(SendBytes,LeftX);
@ -1610,7 +1610,10 @@ Begin
End.
{
$Log$
Revision 1.24 2000-04-14 12:15:31 pierre
Revision 1.25 2000-05-08 13:24:27 peter
* removed hardcoded limit of 80 width
Revision 1.24 2000/04/14 12:15:31 pierre
* several bugs fixed
Revision 1.23 2000/04/07 13:26:27 jonas