From b5886e7544c0a47444ba55e387eafb849f48942e Mon Sep 17 00:00:00 2001
From: =?utf8?q?Tom=C3=A1=C5=A1=20Brada?= <tomasbrod@azet.sk>
Date: Thu, 17 Dec 2015 12:31:30 +0100
Subject: [PATCH] Set 1-Byte text output buffer.

---
 ServerLoop.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/ServerLoop.pas b/ServerLoop.pas
index 174d86c..da9fcf5 100644
--- a/ServerLoop.pas
+++ b/ServerLoop.pas
@@ -406,6 +406,7 @@ function OptParamCount(o:word):word;
 end;
 
 var i:byte;
+var nb:array [0..0] of byte;
 BEGIN
  mNow:=0;
  umNow:=0;
@@ -421,4 +422,6 @@ BEGIN
  fpgettimeofday(@LastShed,nil);
  if OptIndex('-h')>0 then DoShowOpts:=true;
  OnTerminate:=nil;
+ Flush(OUTPUT);
+ SetTextBuf(OUTPUT,nb);
 END.
\ No newline at end of file
-- 
2.11.4.GIT