From 2f25717e67420f0fefdbc1322d0a8ccaf33b8ae8 Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Fri, 28 Dec 2012 12:53:55 +0000
Subject: [PATCH]   * GetTickCount(64) implementation for OS/2 added

git-svn-id: trunk@23239 -
---
 rtl/os2/sysutils.pp | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/rtl/os2/sysutils.pp b/rtl/os2/sysutils.pp
index 4abd59ae73..30ca25b027 100644
--- a/rtl/os2/sysutils.pp
+++ b/rtl/os2/sysutils.pp
@@ -40,6 +40,8 @@ type
 {$DEFINE FPC_FEXPAND_UNC} (* UNC paths are supported *)
 {$DEFINE FPC_FEXPAND_DRIVES} (* Full paths begin with drive specification *)
 {$DEFINE FPC_FEXPAND_GETENV_PCHAR}
+{$DEFINE HAS_GETTICKCOUNT}
+{$DEFINE HAS_GETTICKCOUNT64}
 
 { Include platform independent implementation part }
 {$i sysutils.inc}
@@ -647,6 +649,13 @@ begin
  DosSleep (Milliseconds);
 end;
 
+function SysTimerTick: QWord;
+var
+  L: cardinal;
+begin
+  DosQuerySysInfo (svMsCount, svMsCount, L, 4);
+  SysTimerTick := L;
+end;
 
 function ExecuteProcess (const Path: AnsiString; const ComLine: AnsiString;Flags:TExecuteFlags=[]):
                                                                        integer;
@@ -809,6 +818,24 @@ begin
 end;
 
 
+function GetTickCount: LongWord;
+var
+  L: cardinal;
+begin
+  DosQuerySysInfo (svMsCount, svMsCount, L, 4);
+  GetTickCount := L;
+end;
+
+
+function GetTickCount64: QWord;
+var
+  L: cardinal;
+begin
+  DosQuerySysInfo (svMsCount, svMsCount, L, 4);
+  GetTickCount64 := L;
+end;
+
+
 
 {****************************************************************************
                               Initialization code