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

FPDebug: 64bit elf

Browse Source 
git-svn-id: trunk@43452 -
This commit is contained in:
martin 2013-11-17 17:28:04 +00:00
parent 19e8936d8e
commit c797ba368d
2 changed files with 55 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
components/fpdebug/fpimgreaderelf.pas
View File

@ -49,6 +49,7 @@ type
TElfFile = class(TObject)
protected
function Load32BitFile(ALoader: TDbgFileLoader): Boolean;
function Load64BitFile(ALoader: TDbgFileLoader): Boolean;
procedure AddSection(const name: AnsiString; FileOffset, Address, Size: Qword);
public
sections : array of TElfSection;
@ -97,8 +98,10 @@ begin
//ALoader.Position := hdr.e_shoff;
sz := hdr.e_shetsize * hdr.e_shnum;
if sz > LongWord(length(sect)*sizeof(Elf32_shdr)) then
if sz > LongWord(length(sect)*sizeof(Elf32_shdr)) then begin
debugln(['TElfFile.Load64BitFile Size of SectHdrs is ', sz, ' expected ', LongWord(length(sect)*sizeof(Elf32_shdr))]);
sz := LongWord(length(sect)*sizeof(Elf32_shdr));
end;
//ALoader.Read(sect[0], sz);
ALoader.Read(hdr.e_shoff, sz, @sect[0]);
@ -117,6 +120,45 @@ begin
end;
function TElfFile.Load64BitFile(ALoader: TDbgFileLoader): Boolean;
var
hdr : Elf64_Ehdr;
sect : array of Elf64_shdr;
i, j : integer;
nm : string;
sz : LongWord;
strs : array of byte;
begin
Result := ALoader.Read(0, sizeof(hdr), @hdr) = sizeof(hdr);
if not Result then Exit;
SetLength(sect, hdr.e_shnum);
//ALoader.Position := hdr.e_shoff;
sz := hdr.e_shentsize * hdr.e_shnum;
if sz > LongWord(length(sect)*sizeof(Elf64_shdr)) then begin
debugln(['TElfFile.Load64BitFile Size of SectHdrs is ', sz, ' expected ', LongWord(length(sect)*sizeof(Elf64_shdr))]);
sz := LongWord(length(sect)*sizeof(Elf64_shdr));
end;
//ALoader.Read(sect[0], sz);
ALoader.Read(hdr.e_shoff, sz, @sect[0]);
i := sect[hdr.e_shstrndx].sh_offset;
j := sect[hdr.e_shstrndx].sh_size;
SetLength(strs, j);
//ALoader.Position:=i;
//ALoader.Read(strs[0], j);
ALoader.Read(i, j, @strs[0]);
for i := 0 to hdr.e_shnum - 1 do
with sect[i] do begin
nm := PChar( @strs[sh_name] );
AddSection(nm, sh_offset, sh_address, sh_size );
end;
Result := False;
end;
procedure TElfFile.AddSection(const name: AnsiString; FileOffset, Address,
Size: Qword);
begin
@ -145,10 +187,17 @@ begin
(ident[EI_MAG3] = byte('F'));
if not Result then Exit;
Result := ident[EI_CLASS] = ELFCLASS32;
if not Result then Exit; //todo: 64-bit
Result := False;
Result := Load32BitFile(ALoader);
if ident[EI_CLASS] = ELFCLASS32 then begin
Result := Load32BitFile(ALoader);
exit;
end;
if ident[EI_CLASS] = ELFCLASS64 then begin
Result := Load64BitFile(ALoader);
exit;
end;
except
Result := false;

4
components/fpdebug/fpimgreaderelftypes.pas
View File

@ -117,14 +117,14 @@ type
e_version : Elf64_Word; { Object file version }
e_entry : Elf64_Addr; { Entry point address }
e_phoff : Elf64_Off; { Program header offset }
p_shoff : Elf64_Off; { Section header offset }
e_shoff : Elf64_Off; { Section header offset }
e_flags : Elf64_Word; { Processor-specific flags }
e_ehsize : Elf64_Half; { ELF header size }
e_phentsize : Elf64_Half; { Size of program header entry }
e_phun : Elf64_Half; { Number of program header entries }
e_shentsize : Elf64_Half; { Size of section header entry }
e_shnum : Elf64_Half; { Number of section header entries }
e_shstrnds : Elf64_Half; { Section name string table index }
e_shstrndx : Elf64_Half; { Section name string table index }
end;
PElf64_EHdr = ^Elf64_EHdr;