diff --git a/src/shared/conbuf.pas b/src/shared/conbuf.pas
index 4bb1bea0af8b0e8620f580785347a117bdb0c037..12b0a6e71db79a8f4d9deaf16b91b2eee7ec8bb2 100644 (file)
--- a/src/shared/conbuf.pas
+++ b/src/shared/conbuf.pas
var
conbufDumpToStdOut: Boolean = false;
+ conbufConPrefix: Boolean = true;
implementation
begin
for np := 0 to count-1 do
begin
- if needCon then begin write(stdout, 'CON: '); needCon := false; end;
+ if needCon then
+ begin
+ if conbufConPrefix then write(stdout, 'CON: ');
+ needCon := false;
+ end;
write(stdout, buf[np]);
needCon := (buf[np] = #10);
end;