paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 14:39:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: assembler, fix rangecheck or wrong behaviour if debugger is nil

Browse Source
This commit is contained in:
Martin 2024-03-15 22:16:54 +01:00
parent ec9335ef59
commit 073f3095cf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/packages/idedebugger/assemblerdlg.pp
View File

@ -949,7 +949,7 @@ begin
actCurrentInstr.Enabled := HasDisassembler and (FLocation <> 0); actCurrentInstr.Enabled := HasDisassembler and (FLocation <> 0);
actGotoAddr.Enabled := HasDisassembler and (StrToQWordDef(EditGotoAddr.Text, 0) <> 0); actGotoAddr.Enabled := HasDisassembler and (StrToQWordDef(EditGotoAddr.Text, 0) <> 0);
actCopy.Enabled := HasDisassembler; actCopy.Enabled := HasDisassembler;
popCopyAddr.Enabled := GetLinMapEntryForLine(FSelectLine, dummy); popCopyAddr.Enabled := HasDisassembler and GetLinMapEntryForLine(FSelectLine, dummy);
actStepOverInstr.Enabled := HasDisassembler; actStepOverInstr.Enabled := HasDisassembler;
actStepIntoInstr.Enabled := HasDisassembler; actStepIntoInstr.Enabled := HasDisassembler;
end; end;