paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 10:19:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* elf64 support

Browse Source
This commit is contained in:
peter 2004-04-22 21:10:35 +00:00
parent 7f2e327975
commit 7083fbc825
1 changed files with 110 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

115
rtl/inc/lineinfo.pp
View File

@ -78,7 +78,11 @@ var
****************************************************************************}
{$if defined(netbsd) or defined(freebsd) or defined(linux) or defined(sunos)}
{$define ELF32}
{$ifdef cpu64}
{$define ELF64}
{$else}
{$define ELF32}
{$endif}
{$endif}
{$ifdef go32v2}
@ -339,9 +343,6 @@ begin
+ AoutHeader.DataSize
+ AoutHeader.TextRelocSize
+ AoutHeader.DataRelocSize;
(* I don't really know, where this "+ 4" comes from, *)
(* but it seems to be correct. :-) - TH *)
(* Maybe not PM *)
StabCnt := AoutHeader.SymbSize div SizeOf (TStab);
StabStrOfs := StabOfs + AoutHeader.SymbSize;
StabsFunctionRelative:=false;
@ -446,6 +447,100 @@ end;
{$endif ELF32}
{$ifdef ELF64}
function LoadElf64:boolean;
type
telf64header=packed record
magic0123 : longint;
file_class : byte;
data_encoding : byte;
file_version : byte;
padding : array[$07..$0f] of byte;
e_type : word;
e_machine : word;
e_version : longword;
e_entry : int64; // entrypoint
e_phoff : int64; // program header offset
e_shoff : int64; // sections header offset
e_flags : longword;
e_ehsize : word; // elf header size in bytes
e_phentsize : word; // size of an entry in the program header array
e_phnum : word; // 0..e_phnum-1 of entrys
e_shentsize : word; // size of an entry in sections header array
e_shnum : word; // 0..e_shnum-1 of entrys
e_shstrndx : word; // index of string section header
end;
telf64sechdr=packed record
sh_name : longword;
sh_type : longword;
sh_flags : int64;
sh_addr : int64;
sh_offset : int64;
sh_size : int64;
sh_link : longword;
sh_info : longword;
sh_addralign : int64;
sh_entsize : int64;
end;
var
elfheader : telf64header;
elfsec : telf64sechdr;
secnames : array[0..255] of char;
pname : pchar;
i : longint;
begin
processaddress := 0;
LoadElf64:=false;
stabofs:=-1;
stabstrofs:=-1;
{ read and check header }
if filesize(f)<sizeof(telf64header) then
exit;
blockread(f,elfheader,sizeof(telf64header));
{$ifdef ENDIAN_LITTLE}
if elfheader.magic0123<>$464c457f then
exit;
{$endif ENDIAN_LITTLE}
{$ifdef ENDIAN_BIG}
if elfheader.magic0123<>$7f454c46 then
exit;
{ this seems to be at least the case for m68k cpu PM }
{$ifdef cpum68k}
{StabsFunctionRelative:=false;}
{$endif cpum68k}
{$endif ENDIAN_BIG}
if elfheader.e_shentsize<>sizeof(telf64sechdr) then
exit;
{ read section names }
seek(f,elfheader.e_shoff+elfheader.e_shstrndx*cardinal(sizeof(telf64sechdr)));
blockread(f,elfsec,sizeof(telf64sechdr));
seek(f,elfsec.sh_offset);
blockread(f,secnames,sizeof(secnames));
{ read section info }
seek(f,elfheader.e_shoff);
for i:=1to elfheader.e_shnum do
begin
blockread(f,elfsec,sizeof(telf64sechdr));
pname:=@secnames[elfsec.sh_name];
if (pname[4]='b') and
(pname[1]='s') and
(pname[2]='t') then
begin
if (pname[5]='s') and
(pname[6]='t') then
stabstrofs:=elfsec.sh_offset
else
begin
stabofs:=elfsec.sh_offset;
stabcnt:=elfsec.sh_size div sizeof(tstab);
end;
end;
end;
LoadElf64:=(stabofs<>-1) and (stabstrofs<>-1);
end;
{$endif ELF64}
{$ifdef beos}
{$i osposixh.inc}
@ -605,6 +700,13 @@ begin
exit;
end;
{$endif}
{$ifdef ELF64}
if LoadElf64 then
begin
OpenStabs:=true;
exit;
end;
{$endif}
{$ifdef Beos}
if LoadElf32Beos then
begin
@ -781,7 +883,10 @@ finalization
end.
{
$Log$
Revision 1.21 2004-04-22 19:43:43 peter
Revision 1.22 2004-04-22 21:10:35 peter
* elf64 support
Revision 1.21 2004/04/22 19:43:43 peter
* fix 64bit address printing
Revision 1.20 2004/02/06 20:17:12 daniel