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