[fpc-pascal] Unbuffering I/O

[Mark Morgan Lloyd]

On 30/08/18 12:00, Henry Vermaak wrote:
> On Thu, Aug 30, 2018 at 10:57:21AM +0000, Mark Morgan Lloyd wrote:> Ah yes, that's it, thanks very much.> >       WriteLn(StdErr, Format('# Socket %s, clock resolution %8.6f uSec',> [socketName, ts.tv_nsec / 1000]));>     ttextrec(StdErr).flushfunc:= ttextrec(StdErr).inoutfunc;>     while true do begin>       ttextrec(Output).flushfunc:= ttextrec(Output).inoutfunc;>       i := fprecv(client, @buff, 1024, 0);
> You only need to set flushfunc once at startup (for standard handles) orjust after opening a file.  The whole output vs stdout thing hasconfused me in the past, too.

Thanks, noted and good point. That's a result of where the flushes 
originally were.

-- 
Mark Morgan Lloyd
markMLl .AT. telemetry.co .DOT. uk

[Opinions above are the author's, not those of his employers or colleagues]