diff --git a/src/engine/e_log.pas b/src/engine/e_log.pas
index 472bd5762544126e0b60850d48eaf5ae6b7d7bac..6391f249786c757348f3cafde95974260b7994cf 100644 (file)
--- a/src/engine/e_log.pas
+++ b/src/engine/e_log.pas
wcr := (tf.userData[udWasCR] <> 0);
while count > 0 do
begin
- if wcr then
- begin
- wcr := false;
- if buf^ = #10 then continue;
- end;
// look for some special char
ep := buf;
f := 0;
end;
if f > 0 then
begin
+ wcr := false;
cbufPutChars(buf, f);
Inc(buf, f);
Dec(count, f);
{$IFDEF CBLOG}
writeln(stderr);
{$ENDIF}
- wcr := (ch = #13);
- x := 0;
- cbufPut(#10);
+ if not wcr or (ch <> #10) then
+ begin
+ wcr := (ch = #13);
+ x := 0;
+ cbufPut(#10);
+ end;
continue;
end;
end;