From 3e9500c36b4fa2ae8439f09481753fa997ac754d Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Thu, 15 Apr 2010 13:43:18 +0000
Subject: [PATCH] Debugger: Fixed  execution-line, when changing units

git-svn-id: trunk@24631 -
---
 ide/debugmanager.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/ide/debugmanager.pas b/ide/debugmanager.pas
index a9e8bf0eae..26750acece 100644
--- a/ide/debugmanager.pas
+++ b/ide/debugmanager.pas
@@ -1713,6 +1713,8 @@ begin
   then exit;
 
   // mark execution line
+  if (Editor = nil) and (SourceEditorManager <> nil) then
+    Editor := SourceEditorManager.ActiveEditor;
   if Editor <> nil
   then begin
     if not Editor.HasExecutionMarks then