anchor.diff:                  end;
                   if (nonce)<FMaxNOnce then inc(nonce) else nonce := FMinNOnce;
                 end;
  -              finalHashingTC:=GetTickCount;
  +              finalHashingTC:=TPlatform.GetTickCount;
               end else begin
  -              baseHashingTC:=GetTickCount;
  -              for i := 1 to CT_Rounds do begin
  +              baseHashingTC:=TPlatform.GetTickCount;
  +              for i := 1 to roundsToDo do begin
                   PascalCoinExecuteLastChunkAndDoSha256(FInternalSha256,FInternalChunk,FChangeTimestampAndNOnceBytePos,nonce,ts,resultPoW); // Note: RandomHash is handled above
                   if resultPoW < FCurrentMinerValuesForWork.target_pow then begin
                     if Terminated then exit;
  
positive.code:   THIS LICENSE HEADER MUST NOT BE REMOVED.
  }
  
  {$mode delphi}
  
  interface
  
  {$I config.inc}
  
  uses
    Classes, SysUtils, syncobjs, UThread, UPoolMining, UAccounts, UCrypto, ULog, UBlockChain, USha256, URandomHash;
  
  type
    TMinerStats = Record
  
negative.code:   while not terminated do begin
      sleep(1);
    end;
    FCPUs:=0;
    CheckCPUs;
  end;
  
  procedure TCPUDeviceThread.CheckCPUs;
  