Просмотр исходного кода

LZMACompressor: Use intrinsic InterlockedExchangeAdd.

Jordan Russell 10 месяцев назад
Родитель
Сommit
8c5e03cdfe
1 измененных файлов с 0 добавлено и 11 удалено
  1. 0 11
      Projects/Src/Compression.LZMACompressor.pas

+ 0 - 11
Projects/Src/Compression.LZMACompressor.pas

@@ -223,17 +223,6 @@ const
   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;