From 073f3095cfd3f453053c86152df84c246aadc0aa Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Fri, 15 Mar 2024 22:16:54 +0100
Subject: [PATCH] Debugger: assembler, fix rangecheck or wrong behaviour if
 debugger is nil

---
 ide/packages/idedebugger/assemblerdlg.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ide/packages/idedebugger/assemblerdlg.pp b/ide/packages/idedebugger/assemblerdlg.pp
index 62d71348e0..3caa9f82f2 100644
--- a/ide/packages/idedebugger/assemblerdlg.pp
+++ b/ide/packages/idedebugger/assemblerdlg.pp
@@ -949,7 +949,7 @@ begin
   actCurrentInstr.Enabled := HasDisassembler and (FLocation <> 0);
   actGotoAddr.Enabled := HasDisassembler and (StrToQWordDef(EditGotoAddr.Text, 0) <> 0);
   actCopy.Enabled := HasDisassembler;
-  popCopyAddr.Enabled := GetLinMapEntryForLine(FSelectLine, dummy);
+  popCopyAddr.Enabled := HasDisassembler and GetLinMapEntryForLine(FSelectLine, dummy);
   actStepOverInstr.Enabled := HasDisassembler;
   actStepIntoInstr.Enabled := HasDisassembler;
 end;