mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 12:36:15 +02:00
Debugger: Workaround to fix exe-line-indicators (blue dots) at debug start
git-svn-id: trunk@38531 -
This commit is contained in:
parent
1cc31824b0
commit
91d58f99ce
@ -4558,6 +4558,7 @@ begin
|
||||
FTheDebugger.FRunErrorBreak.SetByAddr(Self);
|
||||
|
||||
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
|
||||
then begin
|
||||
CanContinue := False;
|
||||
|
Loading…
Reference in New Issue
Block a user