anchor.diff:  
   { TPCDaemonMapper }
   
  -procedure TPCDaemonMapper.OnPascalCoinInThreadLog(logtype: TLogType;
  -  Time: TDateTime; AThreadID: TThreadID; const sender, logtext: String);
  -Var s : AnsiString;
  -begin
  -//  If Not SameText(sender,TPCDaemonThread.ClassName) then exit;
  -  If logtype in [lterror,ltinfo] then begin
  -    if AThreadID=MainThreadID then s := ' MAIN:' else s:=' TID:';
  -    WriteLn(formatDateTime('dd/mm/yyyy hh:nn:ss.zzz',Time)+s+IntToHex(PtrInt(AThreadID),8)+' ['+CT_LogType[Logtype]+'] <'+sender+'> '+logtext);
  -  end;
  -end;
  -
   procedure TPCDaemonMapper.DoOnCreate;
   Var D : TDaemonDef;
   begin
     inherited DoOnCreate;
  -  WriteLn('');
  -  WriteLn(formatDateTime('dd/mm/yyyy hh:nn:ss.zzz',now)+' Starting PascalCoin server');
     FLog := TLog.Create(Nil);
  -  FLog.OnInThreadNewLog:=@OnPascalCoinInThreadLog;
     _FLog := FLog;
     D:=DaemonDefs.Add as TDaemonDef;
  -  D.DisplayName:='Pascal Coin Daemon';
  +  D.DisplayName:='PascalCoin Daemon';
     D.Name:='PascalCoinDaemon';
     D.DaemonClassName:='TPCDaemon';
  +  D.Options:=[doAllowStop];
     D.WinBindings.ServiceType:=stWin32;
   end;
   
  
positive.code:   CT_INI_IDENT_LOWMEMORY = 'LOWMEMORY';
    CT_INI_IDENT_MINPENDINGBLOCKSTODOWNLOADCHECKPOINT = 'MINPENDINGBLOCKSTODOWNLOADCHECKPOINT';
    CT_INI_IDENT_PEERCACHE = 'PEERCACHE';
  
  Type
    { TPCDaemonThread }
  
negative.code:     TLog.NewLog(ltInfo,ClassName,'RPC server is active on port '+IntToStr(port));
      If FIniFile.ReadBool(CT_INI_SECTION_GLOBAL,CT_INI_IDENT_RPC_SAVELOGS,true) then begin
        FIniFile.WriteBool(CT_INI_SECTION_GLOBAL,CT_INI_IDENT_RPC_SAVELOGS,true);
        FRPC.LogFileName:= GetDataFolder+PathDelim+'pascalcoin_rpc.log';
        TLog.NewLog(ltInfo,ClassName,'Activating RPC logs on file '+FRPC.LogFileName);
      end else begin
        FIniFile.WriteBool(CT_INI_SECTION_GLOBAL,CT_INI_IDENT_RPC_SAVELOGS,false);
  