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

fpdebug: clean up

Browse Source 
git-svn-id: trunk@60347 -
This commit is contained in:
mattias 2019-02-06 08:19:51 +00:00
parent 0891ad2fce
commit 68aeaf0590
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpdebug/fpdbgclasses.pp
View File

@ -1800,8 +1800,6 @@ end;
constructor TFpInternalBreakpoint.Create(const AProcess: TDbgProcess; constructor TFpInternalBreakpoint.Create(const AProcess: TDbgProcess;
const ALocation: TDBGPtrArray); const ALocation: TDBGPtrArray);
var
i: Integer;
begin begin
FProcess := AProcess; FProcess := AProcess;
FLocation := ALocation; FLocation := ALocation;
@ -1817,9 +1815,6 @@ end;
function TFpInternalBreakpoint.Hit(const AThreadID: Integer; function TFpInternalBreakpoint.Hit(const AThreadID: Integer;
ABreakpointAddress: TDBGPtr): Boolean; ABreakpointAddress: TDBGPtr): Boolean;
var
Thread: TDbgThread;
i: Integer;
begin begin
Result := False; Result := False;
if //FProcess.FBreakMap.HasId(ABreakpointAddress) and if //FProcess.FBreakMap.HasId(ABreakpointAddress) and