paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 19:52:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

Asm-Dialog: fix for 3.2.2 / Issue #39645

Browse Source
This commit is contained in:
Martin 2022-02-11 02:10:54 +01:00
parent deea0b1e74
commit 4ef4408529
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
debugger/assemblerdlg.pp
View File

@ -704,9 +704,14 @@ end;
procedure TAssemblerDlg.popCopyAddrClick(Sender: TObject); procedure TAssemblerDlg.popCopyAddrClick(Sender: TObject);
var var
Entry: TAsmDlgLineEntry; Entry: TAsmDlgLineEntry;
W: Integer;
begin begin
if FDebugger = nil
then W := 16
else W := FDebugger.TargetWidth div 4;
if GetLinMapEntryForLine(FSelectLine, Entry) then if GetLinMapEntryForLine(FSelectLine, Entry) then
Clipboard.AsText := '$'+IntToHex(Entry.Addr); Clipboard.AsText := '$'+IntToHex(Entry.Addr, W);
end; end;
function TAssemblerDlg.FormatLine(ALine: TAsmDlgLineEntry; W: Integer) : String; function TAssemblerDlg.FormatLine(ALine: TAsmDlgLineEntry; W: Integer) : String;