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

DBG: Fix GetTickCound on unix

Browse Source 
git-svn-id: trunk@28497 -
This commit is contained in:
martin 2010-11-26 11:33:06 +00:00
parent 659adf9c29
commit 23252ff1fe
2 changed files with 2 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
debugger/cmdlinedebugger.pp
View File

@ -83,6 +83,7 @@ implementation
//////////////////////////////////////////////////
uses
LCLIntf,
{$IFdef MSWindows}
Windows,
{$ENDIF}
@ -91,13 +92,6 @@ uses
{$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)

9
debugger/gdbmidebugger.pp
View File

@ -40,7 +40,7 @@ interface
uses
Classes, SysUtils, Controls, Math, Variants, LCLProc, Dialogs, LazConf, DebugUtils,
Debugger, FileUtil, CmdLineDebugger, GDBTypeInfo, Maps,
Debugger, FileUtil, CmdLineDebugger, GDBTypeInfo, Maps, LCLIntf,
{$IFdef MSWindows}
Windows,
{$ENDIF}
@ -1236,13 +1236,6 @@ begin
end;
{$ENDIF}
// None windows
{$IFnDEF MSWindows}
function GetTickCount: DWORD;
begin
Result := round(Now*86400000) mod (High(DWord) + 1);
end;
{$ENDIF}
{ =========================================================================== }
{ Helpers }
{ =========================================================================== }