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

Debugger: Workaround to fix exe-line-indicators (blue dots) at debug start

Browse Source 
git-svn-id: trunk@38531 -
This commit is contained in:
martin 2012-09-05 17:00:19 +00:00
parent 1cc31824b0
commit 91d58f99ce
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
debugger/gdbmidebugger.pp
View File

@ -4558,6 +4558,7 @@ begin
FTheDebugger.FRunErrorBreak.SetByAddr(Self); FTheDebugger.FRunErrorBreak.SetByAddr(Self);
SetDebuggerState(dsInit); // triggers all breakpoints to be set. SetDebuggerState(dsInit); // triggers all breakpoints to be set.
Application.ProcessMessages; // workaround, allow source-editor to queue line info request (Async call)
if FTheDebugger.FBreakAtMain <> nil if FTheDebugger.FBreakAtMain <> nil
then begin then begin
CanContinue := False; CanContinue := False;