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

FpDebugger (native): Fix for setting a breakpoint on the current execution-point

Browse Source 
git-svn-id: trunk@46122 -
This commit is contained in:
joost 2014-09-03 20:16:53 +00:00
parent 142838fb9f
commit 851695cec4
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpdebug/fpdbgclasses.pp
View File

@ -648,6 +648,11 @@ function TDbgProcess.AddBreak(const ALocation: TDbgPtr): TDbgBreakpoint;
begin
Result := OSDbgClasses.DbgBreakpointClass.Create(Self, ALocation);
FBreakMap.Add(ALocation, Result);
if (GetInstructionPointerRegisterValue=ALocation) and not assigned(FCurrentBreakpoint) then
begin
FCurrentBreakpoint := Result;
Result.ResetBreak;
end;
end;
constructor TDbgProcess.Create(const AName: string; const AProcessID, AThreadID: Integer; AOnLog: TOnLog);