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

FpDebug: Win32, Fix "Run (F9)" incorrectly triggered watch/stack updates while the app was still running (slowing execution).

Browse Source
This commit is contained in:
Martin 2022-01-13 18:20:13 +01:00
parent 220c850843
commit a92db946ec
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
View File

@ -3083,6 +3083,7 @@ begin
bplFpcSpecific, bplRtlRestoreContext, bplRtlUnwind, bplFpcSpecific, bplRtlRestoreContext, bplRtlUnwind,
{$ENDIF} {$ENDIF}
bplFpcExceptHandler ,bplFpcFinallyHandler, bplFpcLeaveHandler, bplFpcExceptHandler ,bplFpcFinallyHandler, bplFpcLeaveHandler,
bplSehW32Except, bplSehW32Finally,
{$ENDIF} {$ENDIF}
bplStepOut]); bplStepOut]);
@ -3092,6 +3093,7 @@ begin
{$IFDEF WIN64} , bplRtlRestoreContext, bplFpcSpecific {$ENDIF} {$IFDEF WIN64} , bplRtlRestoreContext, bplFpcSpecific {$ENDIF}
, bplFpcExceptHandler ,bplFpcFinallyHandler, bplFpcLeaveHandler , bplFpcExceptHandler ,bplFpcFinallyHandler, bplFpcLeaveHandler
{$ENDIF} {$ENDIF}
, bplSehW32Except, bplSehW32Finally
]); ]);
case st of case st of
@ -3104,6 +3106,7 @@ begin
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}
{$IFDEF WIN64} , bplFpcSpecific {$ENDIF} {$IFDEF WIN64} , bplFpcSpecific {$ENDIF}
, bplFpcExceptHandler ,bplFpcFinallyHandler, bplFpcLeaveHandler , bplFpcExceptHandler ,bplFpcFinallyHandler, bplFpcLeaveHandler
, bplSehW32Except, bplSehW32Finally
{$ENDIF} {$ENDIF}
]); ]);
end end