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

DBG: only set breakpoint in begin/end Update

Browse Source 
git-svn-id: trunk@28334 -
This commit is contained in:
martin 2010-11-19 00:09:57 +00:00
parent 615a8734ce
commit 2c0fe507c3
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/debugmanager.pas
View File

@ -1083,7 +1083,8 @@ begin
if FManager.FDebugger <> nil
then begin
BP := FManager.FDebugger.BreakPoints.Add(ABreakpoint.Source, TManagedBreakPoint(ABreakpoint).DebugExeLine);
// create without source. it will be set in assign (but during Begin/EndUpdate)
BP := FManager.FDebugger.BreakPoints.Add('', 0);
BP.Assign(ABreakPoint);
end;
FManager.CreateSourceMarkForBreakPoint(ABreakpoint,nil);