mirror of https://github.com/red-prig/fpPS4.git
moved to sys
This commit is contained in:
Pavel
parent
3dbab47637
commit
4cc4225b53
500
ps4_types.pas
500
ps4_types.pas
|
|
@ -1,500 +0,0 @@
|
|||
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.
|
||||
|
||||
Loading…
Reference in New Issue