diff --git a/debugger/cmdlinedebugger.pp b/debugger/cmdlinedebugger.pp index 11fae8f0f1..e550b60305 100644 --- a/debugger/cmdlinedebugger.pp +++ b/debugger/cmdlinedebugger.pp @@ -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) diff --git a/debugger/gdbmidebugger.pp b/debugger/gdbmidebugger.pp index 7bd388c516..62cf10a1d6 100644 --- a/debugger/gdbmidebugger.pp +++ b/debugger/gdbmidebugger.pp @@ -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 } { =========================================================================== }