LZMACompressor: Use intrinsic InterlockedExchangeAdd.

jrsoftware · Nov 10, 2024 · 8c5e03c · 8c5e03c
1 parent 1c085a0
commit 8c5e03c
Showing 1 changed file with 0 additions and 11 deletions.
diff --git a/Projects/Src/Compression.LZMACompressor.pas b/Projects/Src/Compression.LZMACompressor.pas
@@ -223,17 +223,6 @@   TLZMACompressProgress = record
   SZ_ERROR_PROGRESS = 10;
   SZ_ERROR_FAIL = 11;
 
-function InterlockedExchangeAdd(var Addend: Longint; Value: Longint): Longint;
-  stdcall; external kernel32;
-
-function GetNumberOfProcessors: Cardinal;
-var
-  SysInfo: TSystemInfo;
-begin
-  GetSystemInfo(SysInfo);
-  Result := SysInfo.dwNumberOfProcessors;
-end;
-
 function LZMAInitCompressFunctions(Module: HMODULE): Boolean;
 begin
   LZMADLLInitialized := False;