paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-24 15:21:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* write > 255 chars

Browse Source
This commit is contained in:
peter 1999-09-07 07:47:46 +00:00
parent 453773ecb2
commit ee18e42672
1 changed files with 21 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
rtl/linux/crt.pp
View File

@ -1298,11 +1298,24 @@ Function CrtWrite(Var F: TextRec): Integer;
} }
Var Var
Temp : String; Temp : String;
idx,i : Longint;
oldflush : boolean;
Begin Begin
Move(F.BufPTR^[0],Temp[1],F.BufPos); oldflush:=ttySetFlush(Flushing);
setlength(temp,F.BufPos); idx:=0;
DoWrite(Temp); while (F.BufPos>0) do
F.BufPos:=0; begin
i:=F.BufPos;
if i>255 then
i:=255;
Move(F.BufPTR^[idx],Temp[1],F.BufPos);
Temp[0]:=Chr(i);
DoWrite(Temp);
dec(F.BufPos,i);
inc(idx,i);
end;
ttySetFlush(oldFLush);
CrtWrite:=0; CrtWrite:=0;
End; End;
@ -1584,7 +1597,10 @@ Begin
End. End.
{ {
$Log$ $Log$
Revision 1.17 1999-09-07 07:38:09 michael Revision 1.18 1999-09-07 07:47:46 peter
* write > 255 chars
Revision 1.17 1999/09/07 07:38:09 michael
+ Applied readkey patch from Deekoo L + Applied readkey patch from Deekoo L
Revision 1.16 1999/06/09 16:46:10 peter Revision 1.16 1999/06/09 16:46:10 peter