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

FpDebug: On Linux read .dynsym if .symtab does not exist. If .symtab exists, then .dynsym should be a subset.

Browse Source
This commit is contained in:
Martin 2023-10-14 12:43:05 +02:00
parent 0525ede13b
commit 1db2f6aab4
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpdebug/fpimgreaderelf.pas
View File

@ -124,6 +124,8 @@ const
// Symbol-map section name
_symbol = '.symtab';
_symbolstrings = '.strtab';
_symboldyn = '.dynsym';
_symboldynstrings = '.dynstr';
{ TElfFile }
@ -474,6 +476,11 @@ begin
AfpSymbolInfo.SetAddressBounds(1, High(AFpSymbolInfo.HighAddr)); // always search / TODO: iterate all sections for bounds
p := Section[_symbol];
ps := Section[_symbolstrings];
if (p = nil) or (ps = nil) then begin
p := Section[_symboldyn];
ps := Section[_symboldynstrings];
end;
if assigned(p) and assigned(ps) then
begin
SymbolStr:=PDbgImageSectionEx(ps)^.Sect.RawData;