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

+ Definitions and utility functions for executable ELF files

Browse Source 
git-svn-id: trunk@21441 -
This commit is contained in:
sergei 2012-05-31 09:23:35 +00:00
parent 1c271251f8
commit 14d66a64a4
1 changed files with 99 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

99
compiler/ogelf.pas
View File

@ -243,6 +243,16 @@ implementation
sh_addralign : longint;
sh_entsize : longint;
end;
TElf32proghdr=packed record
p_type : longword;
p_offset : longword;
p_vaddr : longword;
p_paddr : longword;
p_filesz : longword;
p_memsz : longword;
p_flags : longword;
p_align : longword;
end;
TElf32reloc=packed record
address : longint;
info : longint; { bit 0-7: type, 8-31: symbol }
@ -255,6 +265,12 @@ implementation
st_other : byte;
st_shndx : word;
end;
TElf32Dyn=packed record
d_tag: longword;
case integer of
0: (d_val: longword);
1: (d_ptr: longword);
end;
telf64header=packed record
@ -289,6 +305,16 @@ implementation
sh_addralign : qword;
sh_entsize : qword;
end;
telf64proghdr=packed record
p_type : longword;
p_offset : longword;
p_vaddr : qword;
p_paddr : qword;
p_filesz : qword;
p_memsz : qword;
p_flags : qword;
p_align : qword;
end;
telf64reloc=packed record
address : qword;
info : qword; { bit 0-31: type, 32-63: symbol }
@ -302,6 +328,12 @@ implementation
st_value : qword;
st_size : qword;
end;
TElf64Dyn=packed record
d_tag: qword;
case integer of
0: (d_val: qword);
1: (d_ptr: qword);
end;
{$ifdef cpu64bitaddr}
@ -309,11 +341,15 @@ implementation
telfreloc = telf64reloc;
telfsymbol = telf64symbol;
telfsechdr = telf64sechdr;
telfproghdr = telf64proghdr;
telfdyn = telf64dyn;
{$else cpu64bitaddr}
telfheader = telf32header;
telfreloc = telf32reloc;
telfsymbol = telf32symbol;
telfsechdr = telf32sechdr;
telfproghdr = telf32proghdr;
telfdyn = telf32dyn;
{$endif cpu64bitaddr}
@ -363,6 +399,42 @@ implementation
end;
function MayBeSwapHeader(h : telf32proghdr) : telf32proghdr;
begin
result:=h;
if source_info.endian<>target_info.endian then
with h do
begin
result.p_align:=swapendian(p_align);
result.p_filesz:=swapendian(p_filesz);
result.p_flags:=swapendian(p_flags);
result.p_memsz:=swapendian(p_memsz);
result.p_offset:=swapendian(p_offset);
result.p_paddr:=swapendian(p_paddr);
result.p_type:=swapendian(p_type);
result.p_vaddr:=swapendian(p_vaddr);
end;
end;
function MayBeSwapHeader(h : telf64proghdr) : telf64proghdr;
begin
result:=h;
if source_info.endian<>target_info.endian then
with h do
begin
result.p_align:=swapendian(p_align);
result.p_filesz:=swapendian(p_filesz);
result.p_flags:=swapendian(p_flags);
result.p_memsz:=swapendian(p_memsz);
result.p_offset:=swapendian(p_offset);
result.p_paddr:=swapendian(p_paddr);
result.p_type:=swapendian(p_type);
result.p_vaddr:=swapendian(p_vaddr);
end;
end;
function MaybeSwapSecHeader(h : telf32sechdr) : telf32sechdr;
begin
result:=h;
@ -451,10 +523,35 @@ implementation
begin
result.address:=swapendian(address);
result.info:=swapendian(info);
result.addend:=swapendian(addend);
end;
end;
function MaybeSwapElfDyn(h : telf32dyn) : telf32dyn;
begin
result:=h;
if source_info.endian<>target_info.endian then
with h do
begin
result.d_tag:=swapendian(d_tag);
result.d_val:=swapendian(d_val);
end;
end;
function MaybeSwapElfDyn(h : telf64dyn) : telf64dyn;
begin
result:=h;
if source_info.endian<>target_info.endian then
with h do
begin
result.d_tag:=swapendian(d_tag);
result.d_val:=swapendian(d_val);
end;
end;
{****************************************************************************
Helpers
****************************************************************************}
@ -495,6 +592,8 @@ implementation
include(aoptions,oso_write)
else
include(aoptions,oso_readonly);
if Ashflags and SHF_EXECINSTR<>0 then
include(aoptions,oso_executable);
end;