Core: rename TLogicalCPUCount to TCPUTool

src/core/UAccounts.pas

@@ -683,9 +683,9 @@ begin
 end;
 
 class function TPascalCoinProtocol.CalcSafeBoxHash(ABlocksHashBuffer: TBytesBuffer; protocol_version: Integer): TRawBytes;
-begin
-  // If No buffer to hash is because it's fist block... so use Genesis: CT_Genesis_Magic_String_For_Old_Block_Hash
-  if (ABlocksHashBuffer.Length=0) then Result := TPCSafebox.InitialSafeboxHash
+begin
+  // If No buffer to hash is because it's fist block... so use Genesis: CT_Genesis_Magic_String_For_Old_Block_Hash
+  if (ABlocksHashBuffer.Length=0) then Result := TPCSafebox.InitialSafeboxHash
   else begin
 
     // Protection
@@ -2715,7 +2715,7 @@ Var
 begin
   LPCOperationsBlockValidator := Nil;
   if checkAll then begin
-    LUseMultiThreadOperationsBlockValidator := TLogicalCPUCount.GetLogicalCPUCount>1;
+    LUseMultiThreadOperationsBlockValidator := TCPUTool.GetLogicalCPUCount>1;
   end else LUseMultiThreadOperationsBlockValidator := False;
   If Assigned(FPreviousSafeBox) then Raise Exception.Create('Cannot loadSafeBoxFromStream on a Safebox in a Separate chain');
   if (previousCheckedSafebox = Self) then previousCheckedSafebox := Nil; // Protection
@@ -2892,11 +2892,11 @@ begin
               Exit;
             end;
             if LValidatedOPPending>0 then begin
-              if (Assigned(progressNotify)) and ((TPlatform.GetElapsedMilliseconds(tc)>=500)) then begin
+              if (Assigned(progressNotify)) and ((TPlatform.GetElapsedMilliseconds(tc)>=500)) then begin
                 tc := TPlatform.GetTickCount;
                 progressNotify(Self,Format('Validating OperationBlock info %d/%d',[LValidatedOPOk,LValidatedOPOk+LValidatedOPPending]),LValidatedOPOk,LValidatedOPOk+LValidatedOPPending);
               end else Sleep(100)
-
            end;
+            end;
           until LValidatedOPPending<=0 ;
         end;
       finally

src/core/UPCOperationsBlockValidator.pas

@@ -211,7 +211,7 @@ var LMultiThreadValidator : TPCOperationsBlockValidator;
   LTC : TTickCount;
 begin
   if _Cpus<=0 then begin
-    _Cpus := TLogicalCPUCount.GetLogicalCPUCount;
+    _Cpus := TCPUTool.GetLogicalCPUCount;
   end;
   if _Cpus<=1 then Exit;
   if APCOperationsCompList.Count<_Cpus then Exit;   // If less than cpus, no need for multithreading...
@@ -261,7 +261,7 @@ begin
   FErrorsList.Clear;
 
   if _Cpus<=0 then begin
-    _Cpus := TLogicalCPUCount.GetLogicalCPUCount;
+    _Cpus := TCPUTool.GetLogicalCPUCount;
   end;
   if (_Cpus>2) then LMaxThreads := _Cpus-1
   else LMaxThreads := _Cpus;

src/core/UPCOperationsSignatureValidator.pas

@@ -125,7 +125,7 @@ var
   LTC : TTickCount;
 begin
   if _Cpus<=0 then begin
-    _Cpus := TLogicalCPUCount.GetLogicalCPUCount;
+    _Cpus := TCPUTool.GetLogicalCPUCount;
   end;
   if _Cpus<=1 then Exit;
 
@@ -154,7 +154,7 @@ var LList : TList<TPCOperation>;
   LTC : TTickCount;
 begin
   if _Cpus<=0 then begin
-    _Cpus := TLogicalCPUCount.GetLogicalCPUCount;
+    _Cpus := TCPUTool.GetLogicalCPUCount;
   end;
   if _Cpus<=1 then Exit;
 
@@ -192,7 +192,7 @@ var LMultiThreadValidator : TPCOperationsSignatureValidator;
   LList : TList<TPCOperation>;
 begin
   if _Cpus<=0 then begin
-    _Cpus := TLogicalCPUCount.GetLogicalCPUCount;
+    _Cpus := TCPUTool.GetLogicalCPUCount;
   end;
   if _Cpus<=1 then Exit;
   if AOperationsHashTree.OperationsCount<_Cpus then Exit;   // If less than cpus, no need for multithreading...
@@ -264,7 +264,7 @@ begin
   FLastIndexOperations := -1;
 
   if _Cpus<=0 then begin
-    _Cpus := TLogicalCPUCount.GetLogicalCPUCount;
+    _Cpus := TCPUTool.GetLogicalCPUCount;
   end;
   if (_Cpus>2) then LMaxThreads := _Cpus-1
   else LMaxThreads := _Cpus;

src/core/UPoolMinerThreads.pas

@@ -710,7 +710,7 @@ end;
 
 function TCPUDeviceThread.MinerDeviceName: String;
 begin
-  Result := 'CPU miner with '+inttostr(FCPUs)+' ('+inttostr(TLogicalCPUCount.GetLogicalCPUCount())+' CPU''s available)';
+  Result := 'CPU miner with '+inttostr(FCPUs)+' ('+inttostr(TCPUTool.GetLogicalCPUCount())+' CPU''s available)';
 end;
 
 procedure TCPUDeviceThread.SetCPUs(AValue: Integer);
@@ -718,7 +718,7 @@ begin
   if FCPUs=AValue then Exit;
   FCPUs:=AValue;
   if FCPUs<0 then FCPUs := 0;
-  if (FCPUs>TLogicalCPUCount.GetLogicalCPUCount()) And (TLogicalCPUCount.GetLogicalCPUCount()>0) then FCPUs := TLogicalCPUCount.GetLogicalCPUCount();
+  if (FCPUs>TCPUTool.GetLogicalCPUCount()) And (TCPUTool.GetLogicalCPUCount()>0) then FCPUs := TCPUTool.GetLogicalCPUCount();
   CheckCPUs;
 end;
 

src/core/USettings.pas

@@ -381,9 +381,6 @@ initialization
 finalization
   if Assigned(TSettings.FAppParams) then
     FreeAndNil(TSettings.FAppParams);
-  if Assigned(TSettings.FOnChanged) then
-    FreeAndNil(TSettings.FOnChanged);
-
 end.