paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 06:38:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: asm win, fix range check

Browse Source
This commit is contained in:
Martin 2022-07-04 20:49:46 +02:00
parent 358a6955a0
commit 2835e63366
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
debugger/assemblerdlg.pp
View File

@ -590,6 +590,9 @@ function TAssemblerDlg.GetLinMapEntryForLine(ALine: Integer; out
AnEntry: TAsmDlgLineEntry): Boolean;
begin
AnEntry := Default(TAsmDlgLineEntry);
Result := ALine >= FTopLine;
if not Result then
exit;
ALine := ALine - FTopLine;
Result := (ALine > 0) and (ALine < length(FLineMap));
if Result then