paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 07:59:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

DBG: Fix GetTickCound on unix

Browse Source 
git-svn-id: trunk@28496 -
This commit is contained in:
martin 2010-11-26 11:29:19 +00:00
parent 07c762d4a0
commit 659adf9c29
2 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
debugger/cmdlinedebugger.pp
View File

@ -90,7 +90,14 @@ uses
Unix,BaseUnix,
{$ENDIF}
SysUtils;
{$IFnDEF MSWindows}
function GetTickCount: DWORD;
begin
Result := round(Now*86400000) mod (High(DWord) + 1);
end;
{$ENDIF}
{------------------------------------------------------------------------------
Function: WaitForHandles
Params: AHandles: A set of handles to wait for (max 32)

7
debugger/gdbmidebugger.pp
View File

@ -1236,6 +1236,13 @@ begin
end;
{$ENDIF}
// None windows
{$IFnDEF MSWindows}
function GetTickCount: DWORD;
begin
Result := round(Now*86400000) mod (High(DWord) + 1);
end;
{$ENDIF}
{ =========================================================================== }
{ Helpers }
{ =========================================================================== }