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

FpDebug: Parse the symbol-table from elf-executables

Browse Source 
git-svn-id: trunk@45858 -
This commit is contained in:
joost 2014-07-13 20:59:00 +00:00
parent c2a0094609
commit 113cc3749d
1 changed files with 81 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

81
components/fpdebug/fpimgreaderelf.pas
View File

@ -33,6 +33,7 @@ interface
uses
Classes, SysUtils,
FpImgReaderBase,
fpDbgSymTable,
FpImgReaderElfTypes, LCLProc; // these files are part of
@ -76,6 +77,7 @@ type
class function UserName: AnsiString; override;
constructor Create(ASource: TDbgFileLoader; OwnSource: Boolean); override;
destructor Destroy; override;
procedure ParseSymbolTable(AFpSymbolInfo: TfpSymbolList); override;
//function GetSectionInfo(const SectionName: AnsiString; var Size: int64): Boolean; override;
//function GetSectionData(const SectionName: AnsiString; Offset, Size: Int64; var Buf: array of byte): Int64; override;
@ -83,6 +85,36 @@ type
implementation
type
TElf32symbol=record
st_name : longword;
st_value : longword;
st_size : longword;
st_info : byte; { bit 0-3: type, 4-7: bind }
st_other : byte;
st_shndx : word;
end;
PElf32symbolArray = ^TElf32symbolArray;
TElf32symbolArray = array[0..maxSmallint] of TElf32symbol;
TElf64symbol=record
st_name : longword;
st_info : byte; { bit 0-3: type, 4-7: bind }
st_other : byte;
st_shndx : word;
st_value : qword;
st_size : qword;
end;
PElf64symbolArray = ^TElf64symbolArray;
TElf64symbolArray = array[0..maxSmallint] of TElf64symbol;
const
// Symbol-map section name
_symbol = '.symtab';
_symbolstrings = '.strtab';
{ TElfFile }
function TElfFile.Load32BitFile(ALoader: TDbgFileLoader): Boolean;
@ -303,6 +335,55 @@ begin
inherited Destroy;
end;
procedure TElfDbgSource.ParseSymbolTable(AFpSymbolInfo: TfpSymbolList);
var
p: PDbgImageSection;
ps: PDbgImageSection;
SymbolArr32: PElf32symbolArray;
SymbolArr64: PElf64symbolArray;
SymbolStr: pointer;
i,j: integer;
SymbolCount: integer;
SymbolName: AnsiString;
begin
p := Section[_symbol];
ps := Section[_symbolstrings];
if assigned(p) and assigned(ps) then
begin
SymbolStr:=PDbgImageSectionEx(ps)^.Sect.RawData;
if Image64Bit then
begin
SymbolArr64:=PDbgImageSectionEx(p)^.Sect.RawData;
SymbolCount := PDbgImageSectionEx(p)^.Sect.Size div sizeof(TElf64symbol);
for i := 0 to SymbolCount-1 do
begin
begin
if SymbolArr64^[i].st_name<>0 then
begin
SymbolName:=pchar(SymbolStr+SymbolArr64^[i].st_name);
AfpSymbolInfo.AddObject(SymbolName, TObject(PtrUInt(SymbolArr64^[i].st_value+ImageBase)));
end;
end
end;
end
else
begin
SymbolArr32:=PDbgImageSectionEx(p)^.Sect.RawData;
SymbolCount := PDbgImageSectionEx(p)^.Sect.Size div sizeof(TElf32symbol);
for i := 0 to SymbolCount-1 do
begin
begin
if SymbolArr32^[i].st_name<>0 then
begin
SymbolName:=pchar(SymbolStr+SymbolArr32^[i].st_name);
AfpSymbolInfo.AddObject(SymbolName, TObject(PtrUInt(SymbolArr32^[i].st_value+ImageBase)));
end;
end
end;
end;
end;
end;
initialization
RegisterImageReaderClass( TElfDbgSource );