From 4ef4408529e0af6f76cdfc0a630e37753f99f05d Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Fri, 11 Feb 2022 02:10:54 +0100
Subject: [PATCH] Asm-Dialog: fix for 3.2.2 / Issue #39645

---
 debugger/assemblerdlg.pp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/debugger/assemblerdlg.pp b/debugger/assemblerdlg.pp
index 5e5acf63fc..2cbac2e2ce 100644
--- a/debugger/assemblerdlg.pp
+++ b/debugger/assemblerdlg.pp
@@ -704,9 +704,14 @@ end;
 procedure TAssemblerDlg.popCopyAddrClick(Sender: TObject);
 var
   Entry: TAsmDlgLineEntry;
+  W: Integer;
 begin
+  if FDebugger = nil
+  then W := 16
+  else W := FDebugger.TargetWidth div 4;
+
   if GetLinMapEntryForLine(FSelectLine, Entry) then
-    Clipboard.AsText := '$'+IntToHex(Entry.Addr);
+    Clipboard.AsText := '$'+IntToHex(Entry.Addr, W);
 end;
 
 function TAssemblerDlg.FormatLine(ALine: TAsmDlgLineEntry; W: Integer) : String;