anchor.diff:  { TCPUOpenSSLMinerThread }
   
   procedure TCPUOpenSSLMinerThread.BCExecute;
  -Const CT_Rounds = 1000;
   Var
     ts : Cardinal;
  -  i : Integer;
  -  nonce, baseRealTC,baseHashingTC,finalHashingTC : Cardinal;
  +  i,roundsToDo : Integer;
  +  nonce : Cardinal;
  +  baseRealTC,baseHashingTC,finalHashingTC : TTickCount;
     resultPoW : TRawBytes;
     //
     AuxStats : TMinerStats;
  
positive.code:   digest : TRawBytes;
    ok : Boolean;
    minervfw : TMinerValuesForWork;
    auxXXXXX : TMinerValuesForWork;
  begin
    FGlobalMinerValuesForWork := FPoolMinerClient.MinerValuesForWork;
    TLog.NewLog(ltupdate,ClassName,Format('New miner values. Block %d Target %s Payload %s',[FPoolMinerClient.MinerValuesForWork.block,
  
negative.code:                 end;
                  if (nonce)<FMaxNOnce then inc(nonce) else nonce := FMinNOnce;
                end;
                finalHashingTC:=TPlatform.GetTickCount;
              end;
              AuxStats.Miners:=FCPUDeviceThread.FCPUs;
              AuxStats.RoundsCount:=roundsToDo;
              AuxStats.WorkingMillisecondsTotal:=TPlatform.GetTickCount - baseRealTC;
              AuxStats.WorkingMillisecondsHashing:= finalHashingTC - baseHashingTC;
              dstep := 9;
              FCPUDeviceThread.UpdateDeviceStats(AuxStats);
  