Changeset 423 for trunk/Platform.pas

Timestamp:

Apr 25, 2022, 6:01:01 PM (3 years ago)

Author:

chronos

Message:

• Modified: Do not use explicit mode delphi directive as it is already set in project.
• Modified: Use UNIX instead of LINUX for conditional code to work also on FreeBSD.

File:

• trunk/Platform.pas (modified) (5 diffs)

trunk/Platform.pas

@@ -1 +1 @@
 unit Platform;
-
-{$mode delphi}{$H+}
 
 interface
 
 uses
-  {$IFDEF Windows}Windows,{$ENDIF}
-  {$IFDEF Linux}Unix,{$ENDIF}
+  {$IFDEF WINDOWS}Windows,{$ENDIF}
+  {$IFDEF UNIX}Unix,{$ENDIF}
   Classes, SysUtils, DateUtils, SyncObjs;
 
@@ -14 +12 @@
 implementation
 
-{$IFDEF Windows}
+{$IFDEF WINDOWS}
 var
   PerformanceFrequency: Int64;
@@ -24 +22 @@
 function NowPrecise: TDateTime;
 var
-  {$IFDEF Linux}T: TimeVal;{$ENDIF}
-  {$IFDEF Windows}TimerValue: Int64;{$ENDIF}
+  {$IFDEF UNIX}T: TimeVal;{$ENDIF}
+  {$IFDEF WINDOWS}TimerValue: Int64;{$ENDIF}
 begin
 //  Result := Now;
   //try
     //NowPreciseLock.Acquire;
-    {$IFDEF Windows}
+    {$IFDEF WINDOWS}
     QueryPerformanceCounter(TimerValue);
     //Result := Int64(TimeStampToMSecs(DateTimeToTimeStamp(Now)) * 1000) // an alternative Win32 timebase
@@ -36 +34 @@
     {$ENDIF}
 
-    {$IFDEF Linux}
+    {$IFDEF UNIX}
     fpgettimeofday(@t, nil);
      // Build a 64 bit microsecond tick from the seconds and microsecond longints
@@ -51 +49 @@
 initialization
 
-{$IFDEF Windows}
+{$IFDEF WINDOWS}
 QueryPerformanceFrequency(PerformanceFrequency);
 {$ENDIF}