Changeset 207 for trunk/Platform.pas


Ignore:
Timestamp:
May 8, 2020, 6:28:51 PM (4 years ago)
Author:
chronos
Message:
  • Fixed: Removed more compiler hints and warnings.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Platform.pas

    r17 r207  
    77uses
    88  {$IFDEF Windows}Windows,{$ENDIF}
    9   {$IFDEF Linux}BaseUnix, UnixUtil, Unix,{$ENDIF}
     9  {$IFDEF Linux}Unix,{$ENDIF}
    1010  Classes, SysUtils, DateUtils, SyncObjs;
    1111
    1212function NowPrecise: TDateTime;
    13 function GetLogicalProcessorCount: Integer;
    1413
    1514implementation
    … …  
    5049end;
    5150
    52 function GetLogicalProcessorCount: Integer;
    53 {$IFDEF Windows}
    54 var
    55   SystemInfo: _SYSTEM_INFO;
    56   {$ENDIF}
    57 begin
    58   {$IFDEF Windows}
    59   GetSystemInfo(SystemInfo);
    60   Result := SystemInfo.dwNumberOfProcessors;
    61   {$ENDIF}
    62 end;
    63 
    6451initialization
    6552
Note: See TracChangeset for help on using the changeset viewer.