Changeset 17 for trunk/GameServer.pas

Timestamp:

Jan 8, 2017, 11:21:02 AM (7 years ago)

Author:

chronos

Message:

• Fixed: Build under Linux.

File:

• trunk/GameServer.pas (modified) (4 diffs)

trunk/GameServer.pas

@@ -7 +7 @@
 
 uses
-  Protocol, Database, dynlibs, Windows;
+  Protocol, Database, dynlibs, Platform, dateutils;
 
 const
@@ -127 +127 @@
   AIInfo: array [0 .. nPl - 1] of string;
   Notify: TNotifyFunction;
-  PerfFreq, LastClientTime: int64;
+  LastClientTime: TDateTime;
 {$IFOPT O-}HandoverStack: array [0 .. 31] of Cardinal; {$ENDIF}
   AutoSaveExists, LoadOK, WinOnAlone, PreviewElevation, MovieStopped: boolean;
@@ -320 +320 @@
 var
   p: integer;
-  T: int64;
+  T: TDateTime;
 begin
-  QueryPerformanceCounter(T);
+  T := NowPrecise;
   PutMessage(1 shl 16 + 2, Format('CLIENT: took %.1f ms',
-    [{$IFDEF VER100}(T.LowPart - LastClientTime.LowPart)
-{$ELSE}(T - LastClientTime){$ENDIF} * 1000.0 / PerfFreq]));
+    [MilliSecondOf(T - LastClientTime)]));
   LastClientTime := T;
   PutMessage(1 shl 16 + 2, Format('CLIENT: calling %d (%s)',
@@ -4472 +4471 @@
 initialization
 
-QueryPerformanceFrequency(PerfFreq);
 FindFirst(ParamStr(0), $21, ExeInfo);