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

Debugger: Asm Window, display offset for symbols without line-info / display symbol, if there was no data for previous line

Browse Source
This commit is contained in:
Martin 2021-09-14 19:56:43 +02:00
parent 915126ea96
commit 05b1e7d170
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
debugger/assemblerdlg.pp
View File

@ -704,7 +704,10 @@ begin
[Format('%s:%u %s', [ALine.FileName, ALine.SourceLine, ALine.Statement]),
ALine.PasCode]);
end;
lmsFuncName: Result:= ALine.FileName + ' ' + ALine.Statement;
lmsFuncName: if ALine.SourceLine > 0 then
Result:= Format('%s+%u %s', [ALine.FileName, ALine.SourceLine, ALine.Statement])
else
Result:= ALine.FileName + ' ' + ALine.Statement;
end;
end;
@ -1026,7 +1029,8 @@ procedure TAssemblerDlg.UpdateLineDataEx(ALineMap: TAsmDlgLineEntries; AFirstLin
Result := (AItm^.FuncName <> '');
if Result
then Result := (AItm^.Offset = 0)
or ( (APrvItm <> nil) and (AItm^.FuncName <> APrvItm^.FuncName) );
or ( (APrvItm <> nil) and (AItm^.FuncName <> APrvItm^.FuncName) )
or (APrvItm = nil);
end;
end;