From 5111f33390771cfe2688e23f39d929530d83b7c9 Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Wed, 6 Nov 2024 13:00:06 +0100
Subject: [PATCH] Debugger: If asm stepping stops in source (e.g. asm-step over
 hits breakpoint / or step ends at known source) then update source-editor.
 Fix regression from issue #40415 f051d0bd65f3add6a49924bd41fbe1936cea7022

---
 ide/debugmanager.pas | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/ide/debugmanager.pas b/ide/debugmanager.pas
index 9eeec86a78..0737e02991 100644
--- a/ide/debugmanager.pas
+++ b/ide/debugmanager.pas
@@ -1770,18 +1770,20 @@ begin
 
   // jump editor to execution line
   Flags := [jfAddJumpPoint, jfSearchVirtualFullPath];
-  if (FCurrentBreakPoint = nil) or (FCurrentBreakPoint.AutoContinueTime = 0)
-  then include(Flags, jfFocusEditor);
+  if ( (not FAsmStepping) or (FDialogs[ddtAssembler] = nil) or
+       (not FDialogs[ddtAssembler].IsVisible) or (not FDialogs[ddtAssembler].Active)
+     ) and
+     ( (FCurrentBreakPoint = nil) or (FCurrentBreakPoint.AutoContinueTime = 0) )
+  then
+    include(Flags, jfFocusEditor);
   i := SrcLine;
   if (Editor <> nil) then
     i := Editor.DebugToSourceLine(i);
-  if not (FAsmStepping and (FDialogs[ddtAssembler] <> nil) and
-     FDialogs[ddtAssembler].IsVisible and FDialogs[ddtAssembler].Active )
-  then
-    if MainIDE.DoJumpToCodePosition(nil,nil,NewSource,1,i,-1,-1,-1,Flags)<>mrOk
-    then exit;
   FAsmStepping := False;
 
+  if MainIDE.DoJumpToCodePosition(nil,nil,NewSource,1,i,-1,-1,-1,Flags)<>mrOk
+  then exit;
+
   // mark execution line
   if (Editor = nil) and (SourceEditorManager <> nil) then
     Editor := SourceEditorManager.ActiveEditor;