anchor.diff:  {$ELSE}
     Windows,
   {$ENDIF}
  -  SysUtils, Math,
  -    uHssShareLog, DateUtils;
  +  SysUtils, Math, uHssShareLog, DateUtils;
   
   var
     PeerID:integer=0;
  
positive.code: 
  procedure TSynapseTCPServerThread.Execute;
  begin
    SetName;
    BeforeExecute;
    try
      while not Terminated do
  
negative.code:   *)
  end;
  
  end.
  