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

* fixed ttyWrite() with #8

Browse Source
This commit is contained in:
peter 1998-10-27 11:13:27 +00:00
parent fbf69c5127
commit 8524ceeea4
1 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/linux/crt.pp
View File

@ -480,6 +480,12 @@ begin
{Update MemCopy} {Update MemCopy}
idx:=(CurrY-1)*ScreenWidth-1; idx:=(CurrY-1)*ScreenWidth-1;
for i:=1to length(s) do for i:=1to length(s) do
if s[i]=#8 then
begin
if CurrX>1 then
dec(CurrX);
end
else
begin begin
ConsoleBuf^[idx+CurrX].ch:=s[i]; ConsoleBuf^[idx+CurrX].ch:=s[i];
ConsoleBuf^[idx+CurrX].attr:=TextAttr; ConsoleBuf^[idx+CurrX].attr:=TextAttr;
@ -1203,7 +1209,6 @@ begin
#8 : begin {BackSpace} #8 : begin {BackSpace}
SendText; SendText;
ttyWrite(#8); ttyWrite(#8);
dec(CurrX);
end; end;
else else
inc(SendBytes); inc(SendBytes);
@ -1486,7 +1491,10 @@ Begin
End. End.
{ {
$Log$ $Log$
Revision 1.9 1998-10-15 08:31:53 peter Revision 1.10 1998-10-27 11:13:27 peter
* fixed ttyWrite() with #8
Revision 1.9 1998/10/15 08:31:53 peter
+ get winsize at startup + get winsize at startup
+ ConsoleBuf to interface + ConsoleBuf to interface