mirror of
https://github.com/red-prig/fpPS4.git
synced 2024-11-23 06:19:57 +00:00
501 lines
14 KiB
ObjectPascal
501 lines
14 KiB
ObjectPascal
unit ps4_types;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses ctypes;
|
|
|
|
Const
|
|
ET_NONE =0;
|
|
ET_REL =1;
|
|
ET_EXEC =2;
|
|
ET_DYN =3;
|
|
ET_CORE =4;
|
|
ET_LOPROC=$ff00;
|
|
ET_HIPROC=$ffff;
|
|
|
|
EI_MAG0 = 0; // e_ident[] indexes
|
|
EI_MAG1 = 1;
|
|
EI_MAG2 = 2;
|
|
EI_MAG3 = 3;
|
|
EI_CLASS = 4;
|
|
EI_DATA = 5;
|
|
EI_VERSION = 6;
|
|
EI_OSABI = 7;
|
|
EI_PAD = 8;
|
|
|
|
ELFMAG =$464C457F;
|
|
SELFMAG=4;
|
|
|
|
ET_SCE_DYNEXEC=$FE10;
|
|
ET_SCE_DYNAMIC=$FE18;
|
|
EM_X86_64 =62; // AMD x86-64
|
|
|
|
EI_NIDENT=16;
|
|
|
|
PT_NULL =0;
|
|
PT_LOAD =1;
|
|
PT_DYNAMIC=2;
|
|
PT_INTERP =3;
|
|
PT_NOTE =4;
|
|
PT_SHLIB =5;
|
|
PT_PHDR =6;
|
|
PT_TLS =7; // Thread local storage segment
|
|
PT_LOOS =$60000000; // OS-specific
|
|
PT_HIOS =$6fffffff; // OS-specific
|
|
PT_LOPROC =$70000000;
|
|
PT_HIPROC =$7fffffff;
|
|
|
|
PT_GNU_EH_FRAME=$6474e550;
|
|
PT_GNU_STACK =$6474E551;
|
|
|
|
PT_SCE_RELA = $60000000;
|
|
PT_SCE_DYNLIBDATA = $61000000;
|
|
PT_SCE_PROCPARAM = $61000001;
|
|
PT_SCE_MODULE_PARAM = $61000002;
|
|
PT_SCE_RELRO = $61000010;
|
|
PT_SCE_COMMENT = $6FFFFF00;
|
|
PT_SCE_VERSION = $6FFFFF01;
|
|
|
|
// This is the info that is needed to parse the dynamic section of the file
|
|
DT_NULL = 0;
|
|
DT_NEEDED = 1;
|
|
DT_PLTRELSZ = 2;
|
|
DT_PLTGOT = 3;
|
|
DT_HASH = 4;
|
|
DT_STRTAB = 5;
|
|
DT_SYMTAB = 6;
|
|
DT_RELA = 7;
|
|
DT_RELASZ = 8;
|
|
DT_RELAENT = 9;
|
|
DT_STRSZ =10;
|
|
DT_SYMENT =11;
|
|
DT_INIT =12;
|
|
DT_FINI =13;
|
|
DT_SONAME =14;
|
|
DT_RPATH =15;
|
|
DT_SYMBOLIC =16;
|
|
DT_REL =17;
|
|
DT_RELSZ =18;
|
|
DT_RELENT =19;
|
|
DT_PLTREL =20;
|
|
DT_DEBUG =21;
|
|
DT_TEXTREL =22;
|
|
DT_JMPREL =23;
|
|
DT_BIND_NOW =24;
|
|
DT_INIT_ARRAY =25;
|
|
DT_FINI_ARRAY =26;
|
|
DT_INIT_ARRAYSZ =27;
|
|
DT_FINI_ARRAYSZ =28;
|
|
DT_RUNPATH =29;
|
|
DT_FLAGS =30;
|
|
DT_ENCODING =32;
|
|
DT_PREINIT_ARRAY =32;
|
|
DT_PREINIT_ARRAYSZ =33;
|
|
|
|
// Dynamic Section Types
|
|
DT_SCE_IDTABENTSZ =$61000005;
|
|
DT_SCE_FINGERPRINT =$61000007;
|
|
DT_SCE_FILENAME =$61000009;
|
|
DT_SCE_MODULE_INFO =$6100000D;
|
|
DT_SCE_NEEDED_MODULE =$6100000F;
|
|
DT_SCE_MODULE_ATTR =$61000011;
|
|
DT_SCE_EXPORT_LIB =$61000013;
|
|
DT_SCE_IMPORT_LIB =$61000015;
|
|
DT_SCE_EXPORT_LIB_ATTR =$61000017;
|
|
DT_SCE_IMPORT_LIB_ATTR =$61000019;
|
|
DT_SCE_STUB_MODULE_NAME =$6100001D;
|
|
DT_SCE_STUB_MODULE_VERSION =$6100001F;
|
|
DT_SCE_STUB_LIBRARY_NAME =$61000021;
|
|
DT_SCE_STUB_LIBRARY_VERSION =$61000023;
|
|
DT_SCE_HASH =$61000025;
|
|
DT_SCE_PLTGOT =$61000027;
|
|
DT_SCE_JMPREL =$61000029;
|
|
DT_SCE_PLTREL =$6100002B;
|
|
DT_SCE_PLTRELSZ =$6100002D;
|
|
DT_SCE_RELA =$6100002F;
|
|
DT_SCE_RELASZ =$61000031;
|
|
DT_SCE_RELAENT =$61000033;
|
|
DT_SCE_STRTAB =$61000035;
|
|
DT_SCE_STRSZ =$61000037;
|
|
DT_SCE_SYMTAB =$61000039;
|
|
DT_SCE_SYMENT =$6100003B;
|
|
DT_SCE_HASHSZ =$6100003D;
|
|
DT_SCE_SYMTABSZ =$6100003F;
|
|
DT_SCE_HIOS =$6FFFF000;
|
|
|
|
DF_ORIGIN =$1;
|
|
DF_SYMBOLIC =$2;
|
|
DF_TEXTREL =$4;
|
|
DF_BIND_NOW =$8;
|
|
DF_STATIC_TLS=$10;
|
|
|
|
SHT_SYMTAB=2;
|
|
SHT_STRTAB=3;
|
|
|
|
// Relocation types for AMD x86-64 architecture
|
|
R_X86_64_NONE = 0; // No reloc
|
|
R_X86_64_64 = 1; // Direct 64 bit
|
|
R_X86_64_PC32 = 2; // PC relative 32 bit signed
|
|
R_X86_64_GOT32 = 3; // 32 bit GOT entry
|
|
R_X86_64_PLT32 = 4; // 32 bit PLT address
|
|
R_X86_64_COPY = 5; // Copy symbol at runtime
|
|
R_X86_64_GLOB_DAT = 6; // Create GOT entry
|
|
R_X86_64_JUMP_SLOT = 7; // Create PLT entry
|
|
R_X86_64_RELATIVE = 8; // Adjust by program base
|
|
R_X86_64_GOTPCREL = 9; // 32 bit signed pc relative offset to GOT
|
|
R_X86_64_32 =10; // Direct 32 bit zero extended
|
|
R_X86_64_32S =11; // Direct 32 bit sign extended
|
|
R_X86_64_16 =12; // Direct 16 bit zero extended
|
|
R_X86_64_PC16 =13; // 16 bit sign extended pc relative
|
|
R_X86_64_8 =14; // Direct 8 bit sign extended
|
|
R_X86_64_PC8 =15; // 8 bit sign extended pc relative
|
|
R_X86_64_DTPMOD64 =16; // ID of module containing symbol
|
|
R_X86_64_DTPOFF64 =17; // Offset in module's TLS block
|
|
R_X86_64_TPOFF64 =18; // Offset in initial TLS block
|
|
R_X86_64_TLSGD =19; // 32 bit signed PC relative offset
|
|
//to two GOT entries for GD symbol
|
|
R_X86_64_TLSLD =20; // 32 bit signed PC relative offset
|
|
//to two GOT entries for LD symbol
|
|
R_X86_64_DTPOFF32 =21; // Offset in TLS block
|
|
R_X86_64_GOTTPOFF =22; // 32 bit signed PC relative offset
|
|
//to GOT entry for IE symbol
|
|
R_X86_64_TPOFF32 =23; // Offset in initial TLS block
|
|
R_X86_64_PC64 =24; // PC relative 64 bit
|
|
R_X86_64_GOTOFF64 =25; // 64 bit offset to GOT
|
|
R_X86_64_GOTPC32 =26; // 32 bit signed pc relative offset to GOT
|
|
R_X86_64_GOT64 =27; // 64-bit GOT entry offset
|
|
R_X86_64_GOTPCREL64 =28; // 64-bit PC relative offset to GOT entry
|
|
R_X86_64_GOTPC64 =29; // 64-bit PC relative offset to GOT
|
|
R_X86_64_GOTPLT64 =30; // like GOT64, says PLT entry needed
|
|
R_X86_64_PLTOFF64 =31; // 64-bit GOT relative offset to PLT entry
|
|
R_X86_64_SIZE32 =32; // Size of symbol plus 32-bit addend
|
|
R_X86_64_SIZE64 =33; // Size of symbol plus 64-bit addend
|
|
R_X86_64_GOTPC32_TLSDESC =34; // GOT offset for TLS descriptor
|
|
R_X86_64_TLSDESC_CALL =35; // Marker for call through TLS descriptor
|
|
R_X86_64_TLSDESC =36; // TLS descriptor
|
|
R_X86_64_IRELATIVE =37; // Adjust indirectly by program base
|
|
R_X86_64_RELATIVE64 =38; // 64bit adjust by program base
|
|
R_X86_64_ORBIS_GOTPCREL_LOAD =40;
|
|
|
|
type
|
|
Elf64_Addr =cuint64;
|
|
Elf64_Half =cuint16;
|
|
Elf64_SHalf =cint64 ;
|
|
Elf64_Off =cuint64;
|
|
Elf64_Sword =cint32 ;
|
|
Elf64_Word =cuint32;
|
|
Elf64_Xword =cuint64;
|
|
Elf64_Sxword=cint64 ;
|
|
|
|
Pelf64_hdr=^elf64_hdr;
|
|
elf64_hdr=packed record
|
|
e_ident:Array[0..EI_NIDENT-1] of Byte; // ELF "magic number"
|
|
e_type :Elf64_Half;
|
|
e_machine :Elf64_Half;
|
|
e_version :Elf64_Word;
|
|
e_entry :Elf64_Addr; // Entry point virtual address from where the process starts executing.
|
|
e_phoff :Elf64_Off ; // Program header table file offset
|
|
e_shoff :Elf64_Off ; // Section header table file offset
|
|
e_flags :Elf64_Word;
|
|
e_ehsize :Elf64_Half;
|
|
e_phentsize:Elf64_Half;
|
|
e_phnum :Elf64_Half;
|
|
e_shentsize:Elf64_Half;
|
|
e_shnum :Elf64_Half;
|
|
e_shstrndx :Elf64_Half;
|
|
end;
|
|
|
|
const
|
|
PF_W=$2;
|
|
PF_R=$4;
|
|
PF_X=$1;
|
|
|
|
type
|
|
Pelf64_phdr=^elf64_phdr;
|
|
elf64_phdr=packed record
|
|
p_type :Elf64_Word ;
|
|
p_flags :Elf64_Word ;
|
|
p_offset:Elf64_Off ; // Segment file offset
|
|
p_vaddr :Elf64_Addr ; // Segment virtual address
|
|
p_paddr :Elf64_Addr ; // Segment physical address
|
|
p_filesz:Elf64_Xword; // Segment size in file
|
|
p_memsz :Elf64_Xword; // Segment size in memory
|
|
p_align :Elf64_Xword; // Segment alignment, file & memory
|
|
end;
|
|
|
|
elf64_shdr=packed record
|
|
sh_name :Elf64_Word ; // Section name, index in string tbl
|
|
sh_type :Elf64_Word ; // Type of section
|
|
sh_flags :Elf64_Xword; // Miscellaneous section attributes
|
|
sh_addr :Elf64_Addr ; // Section virtual addr at execution
|
|
sh_offset :Elf64_Off ; // Section file offset
|
|
sh_size :Elf64_Xword; // Size of section in bytes
|
|
sh_link :Elf64_Word ; // Index of another section
|
|
sh_info :Elf64_Word ; // Additional section information
|
|
sh_addralign:Elf64_Xword; // Section alignment
|
|
sh_entsize :Elf64_Xword; // Entry size if section holds table
|
|
end;
|
|
|
|
PElf64_Dyn=^Elf64_Dyn;
|
|
Elf64_Dyn=packed record
|
|
d_tag:Elf64_Sxword; // entry tag value
|
|
d_un:packed record
|
|
Case Byte of
|
|
0:(d_val:Elf64_Xword);
|
|
1:(d_ptr:Elf64_Addr);
|
|
end;
|
|
end;
|
|
|
|
Pelf64_rela=^elf64_rela;
|
|
elf64_rela=packed record
|
|
r_offset:Elf64_Addr; // Location at which to apply the action
|
|
r_info:Elf64_Xword; // index and type of relocation
|
|
r_addend:Elf64_Sxword; // Constant addend used to compute value
|
|
end;
|
|
|
|
Pelf64_sym=^elf64_sym;
|
|
elf64_sym=packed record
|
|
st_name :Elf64_Word; // Symbol name, index in string tbl
|
|
st_info :Byte; // Type and binding attributes
|
|
st_other:Byte; // No defined meaning, 0
|
|
st_shndx:Elf64_Half; // Associated section index
|
|
st_value:Elf64_Addr; // Value of the symbol
|
|
st_size :Elf64_Xword; // Associated symbol size
|
|
end;
|
|
|
|
const
|
|
self_magic=$1D3D154F;
|
|
|
|
type
|
|
Pself_header=^Tself_header;
|
|
Tself_header=packed record
|
|
Magic:DWORD; //Magic 4F 15 3D 1D
|
|
Unknown:DWORD; //Unknown Always 00 01 01 12
|
|
Content_Type:Byte; //Content Type 1 on Self, 4 on PUP Entry
|
|
Program_Type:Byte; //Program Type
|
|
Padding:Word; //Padding
|
|
Header_Size:Word; //Header Size
|
|
Sign_Size:Word; //Signature Size Metadata Size?
|
|
Size_of:DWORD; //Size of SELF
|
|
Padding2:DWORD; //Padding
|
|
Num_Segments:Word; //Number of Segments
|
|
Unknown2:Word; //Unknown Always 0x22
|
|
Padding3:DWORD; //Padding
|
|
end;
|
|
|
|
const
|
|
SF_ORDR = $1; // ordered?
|
|
SF_ENCR = $2; // encrypted
|
|
SF_SIGN = $4; // signed
|
|
SF_DFLG = $8; // deflated
|
|
SF_BFLG = $800; // block segment
|
|
|
|
type
|
|
Pself_segment=^Tself_segment;
|
|
Tself_segment=packed record
|
|
flags,
|
|
offset,
|
|
encrypted_compressed_size, //fileSz
|
|
decrypted_decompressed_size:QWORD; //memSz
|
|
end;
|
|
|
|
Tself_spec=packed record
|
|
AuthorityID:QWORD;
|
|
Program_Type:QWORD;
|
|
Version1:QWORD;
|
|
Version2:QWORD;
|
|
Content_ID:array[0..31] of Byte;
|
|
Digest_SHA_256:array[0..31] of Byte;
|
|
end;
|
|
|
|
const
|
|
SCE_DBG_MAX_NAME_LENGTH = 256;
|
|
SCE_DBG_MAX_SEGMENTS = 4;
|
|
SCE_DBG_NUM_FINGERPRINT = 20;
|
|
|
|
type
|
|
TKernelModuleSegmentInfo=packed record
|
|
address:Pointer;
|
|
size:DWORD;
|
|
prot:Integer; //PF_
|
|
end;
|
|
|
|
PKernelModuleInfo=^TKernelModuleInfo;
|
|
TKernelModuleInfo=packed record
|
|
size:QWORD; //Size of this structure
|
|
name:array[0..SCE_DBG_MAX_NAME_LENGTH-1] of AnsiChar; //module name
|
|
segmentInfo:array[0..SCE_DBG_MAX_SEGMENTS-1] of TKernelModuleSegmentInfo;
|
|
segmentCount:DWORD;
|
|
fingerprint:array[0..SCE_DBG_NUM_FINGERPRINT-1] of Byte;
|
|
end;
|
|
|
|
TModuleValue=packed record
|
|
case Byte of
|
|
0:(value:Int64);
|
|
1:(name_offset:DWORD;
|
|
version_minor:Byte;
|
|
version_major:Byte;
|
|
id:Word);
|
|
end;
|
|
|
|
TLibraryValue=packed record
|
|
case Byte of
|
|
0:(value:Int64);
|
|
1:(name_offset:DWORD;
|
|
version_minor:Byte;
|
|
version_major:Byte;
|
|
id:Word);
|
|
end;
|
|
|
|
PsceModuleParam=^TsceModuleParam;
|
|
TsceModuleParam=packed record
|
|
Size:QWORD;
|
|
Magic:QWORD;
|
|
SDK_version:QWORD;
|
|
end;
|
|
|
|
PTLS_index=^TLS_index;
|
|
TLS_index=packed record
|
|
ti_moduleid :QWORD;
|
|
ti_tlsoffset:QWORD;
|
|
end;
|
|
|
|
PPS4StartupParams=^TPS4StartupParams;
|
|
TPS4StartupParams=packed record
|
|
argc:Integer;
|
|
align:Integer;
|
|
argv:array[0..1] of Pointer;
|
|
end;
|
|
|
|
Const
|
|
PHYSICAL_PAGE_SIZE=$1000;
|
|
GRANULAR_PAGE_SIZE=$10000;
|
|
LOGICAL_PAGE_SIZE =$4000;
|
|
|
|
STB_LOCAL =0;
|
|
STB_GLOBAL=1;
|
|
STB_WEAK =2;
|
|
|
|
STT_NOTYPE =0 ;
|
|
STT_OBJECT =1 ;
|
|
STT_FUN =2 ;
|
|
STT_SECTION =3 ;
|
|
STT_FILE =4 ;
|
|
STT_COMMON =5 ;
|
|
STT_TLS =6;
|
|
STT_LOOS =10;
|
|
STT_HIOS =12;
|
|
STT_LOPRO =13;
|
|
STT_SPARC_REGISTER=13;
|
|
STT_HIPROC =15;
|
|
|
|
STV_DEFAULT =0;
|
|
STV_INTERNAL =1;
|
|
STV_HIDDEN =2;
|
|
STV_PROTECTED =3;
|
|
|
|
SHN_UNDEF=0;
|
|
|
|
function ELF64_R_SYM(i:QWORD):DWORD; inline;
|
|
function ELF64_R_TYPE(i:QWORD):DWORD; inline;
|
|
function ELF64_ST_BIND(i:Byte):Byte; inline;
|
|
function ELF64_ST_TYPE(i:Byte):Byte; inline;
|
|
function ELF64_ST_VISIBILITY(i:Byte):Byte; inline;
|
|
|
|
function AlignUp(addr:PtrUInt;alignment:PtrUInt):PtrUInt; inline;
|
|
function AlignUp(addr:Pointer;alignment:PtrUInt):Pointer; inline;
|
|
function AlignDw(addr:PtrUInt;alignment:PtrUInt):PtrUInt; inline;
|
|
function AlignDw(addr:Pointer;alignment:PtrUInt):Pointer; inline;
|
|
function IsAlign(Addr:Pointer;Alignment:PtrUInt):Boolean; inline;
|
|
function IsAlign(Addr:PtrUInt;Alignment:PtrUInt):Boolean; inline;
|
|
|
|
type
|
|
Ptimespec=^timespec;
|
|
timespec=packed record
|
|
tv_sec:Int64; /// seconds
|
|
tv_nsec:Int64; /// nanoseconds
|
|
end;
|
|
|
|
timeval = record
|
|
tv_sec: int64;
|
|
tv_usec: int64; //microsecond
|
|
end;
|
|
Ptimeval=^timeval;
|
|
|
|
timezone = record
|
|
tz_minuteswest:Integer;
|
|
tz_dsttime:Integer;
|
|
end;
|
|
Ptimezone=^timezone;
|
|
|
|
TMemChunk=packed record
|
|
pAddr:Pointer;
|
|
nSize:Int64;
|
|
end;
|
|
|
|
implementation
|
|
|
|
function ELF64_R_SYM(i:QWORD):DWORD; inline;
|
|
begin
|
|
Result:=i shr 32;
|
|
end;
|
|
|
|
function ELF64_R_TYPE(i:QWORD):DWORD; inline;
|
|
begin
|
|
Result:=i and $ffffffff;
|
|
end;
|
|
|
|
function ELF64_ST_BIND(i:Byte):Byte; inline;
|
|
begin
|
|
Result:=i shr 4;
|
|
end;
|
|
|
|
function ELF64_ST_TYPE(i:Byte):Byte; inline;
|
|
begin
|
|
Result:=i and $f;
|
|
end;
|
|
|
|
function ELF64_ST_VISIBILITY(i:Byte):Byte; inline;
|
|
begin
|
|
Result:=i and 3;
|
|
end;
|
|
|
|
function AlignUp(addr:PtrUInt;alignment:PtrUInt):PtrUInt; inline;
|
|
var
|
|
tmp:PtrUInt;
|
|
begin
|
|
if (alignment=0) then Exit(addr);
|
|
tmp:=addr+PtrUInt(alignment-1);
|
|
Result:=tmp-(tmp mod alignment)
|
|
end;
|
|
|
|
function AlignUp(addr:Pointer;alignment:PtrUInt):Pointer; inline;
|
|
begin
|
|
Result:=Pointer(Align(PtrUInt(addr),alignment));
|
|
end;
|
|
|
|
function AlignDw(addr:PtrUInt;alignment:PtrUInt):PtrUInt; inline;
|
|
begin
|
|
Result:=addr-(addr mod alignment)
|
|
end;
|
|
|
|
function AlignDw(addr:Pointer;alignment:PtrUInt):Pointer; inline;
|
|
begin
|
|
Result:=Pointer(AlignDw(PtrUInt(addr),alignment));
|
|
end;
|
|
|
|
function IsAlign(Addr:Pointer;Alignment:PtrUInt):Boolean; inline;
|
|
begin
|
|
Result:=(PtrUInt(addr) mod alignment)=0;
|
|
end;
|
|
|
|
function IsAlign(Addr:PtrUInt;Alignment:PtrUInt):Boolean; inline;
|
|
begin
|
|
Result:=(addr mod alignment)=0;
|
|
end;
|
|
|
|
end.
|
|
|