threadpool contention logging

SynCrtSock.pas

1. remove comments so that SYNCRTDEBUGLOW is defined
{.$define SYNCRTDEBUGLOW}

2. Find implementation of function TSynThreadPool.Push
at the end of the function replace :

 if not result then
    inc(fContentionAbortCount);

with

  {$ifdef SYNCRTDEBUGLOW}
  if not result then
  begin
    inc(fContentionAbortCount);
    TSynLog.Add.Log(TSynLogInfo.sllWarning, 'threadpool contention detected!');
  end;
  {$else}
  if not result then
     inc(fContentionAbortCount);
  {$endif}