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

* fix for double-write bug, probably in since r1353

Browse Source 
git-svn-id: trunk@2869 -
This commit is contained in:
marco 2006-03-11 21:33:51 +00:00
parent 7a22c36200
commit eb5d494b12
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/win32/crt.pp
View File

@ -670,10 +670,13 @@ begin
GetScreenCursor(CurrX, CurrY); GetScreenCursor(CurrX, CurrY);
s:=''; s:='';
for i:=0 to f.bufpos-1 do for i:=0 to f.bufpos-1 do
if f.buffer[i]<#32 then if f.buffer[i] in [#7,#8,#10,#13] then // special chars directly.
begin begin
if s<>'' then if s<>'' then
WriteStr(s); begin
WriteStr(s);
s:='';
end;
WriteChar(f.buffer[i]); WriteChar(f.buffer[i]);
end end
else else