mirror of https://github.com/red-prig/fpPS4.git
154 lines
4.2 KiB
Plaintext
154 lines
4.2 KiB
Plaintext
unit vm;
|
|
|
|
{$mode ObjFPC}{$H+}
|
|
{$CALLING SysV_ABI_CDecl}
|
|
|
|
interface
|
|
|
|
type
|
|
p_vm_offset_t=^vm_offset_t;
|
|
vm_offset_t =QWORD;
|
|
|
|
p_vm_ooffset_t=^vm_ooffset_t;
|
|
vm_ooffset_t=Int64;
|
|
|
|
vm_size_t =QWORD;
|
|
|
|
segsz_t =QWORD;
|
|
caddr_t =Pointer;
|
|
|
|
vm_inherit_t=type Byte;
|
|
|
|
p_vm_prot_t=^vm_prot_t;
|
|
vm_prot_t =type Byte;
|
|
|
|
p_vm_pindex_t=^vm_pindex_t;
|
|
vm_pindex_t =DWORD;
|
|
|
|
p_vm_paddr_t=^vm_paddr_t;
|
|
vm_paddr_t=DWORD;
|
|
|
|
p_vm_memattr_t=^vm_memattr_t;
|
|
vm_memattr_t=Byte;
|
|
|
|
const
|
|
VM_INHERIT_SHARE =vm_inherit_t(0);
|
|
VM_INHERIT_COPY =vm_inherit_t(1);
|
|
VM_INHERIT_NONE =vm_inherit_t(2);
|
|
VM_INHERIT_DEFAULT=VM_INHERIT_COPY;
|
|
|
|
VM_PROT_NONE =vm_prot_t($00);
|
|
VM_PROT_READ =vm_prot_t($01);
|
|
VM_PROT_WRITE =vm_prot_t($02);
|
|
VM_PROT_EXECUTE =vm_prot_t($04);
|
|
VM_PROT_COPY =vm_prot_t($08);
|
|
VM_PROT_GPU_READ =vm_prot_t($10);
|
|
VM_PROT_GPU_WRITE =vm_prot_t($20);
|
|
VM_PROT_GPU_ALL =vm_prot_t($30);
|
|
|
|
VM_PROT_ALL =(VM_PROT_READ or VM_PROT_WRITE or VM_PROT_EXECUTE or VM_PROT_GPU_ALL);
|
|
VM_PROT_RW =(VM_PROT_READ or VM_PROT_WRITE);
|
|
VM_PROT_RWX =(VM_PROT_READ or VM_PROT_WRITE or VM_PROT_EXECUTE);
|
|
VM_PROT_DEFAULT=VM_PROT_ALL;
|
|
|
|
const
|
|
//Return values from the VM routines.
|
|
KERN_SUCCESS =0;
|
|
KERN_INVALID_ADDRESS =1;
|
|
KERN_PROTECTION_FAILURE=2;
|
|
KERN_NO_SPACE =3;
|
|
KERN_INVALID_ARGUMENT =4;
|
|
KERN_FAILURE =5;
|
|
KERN_RESOURCE_SHORTAGE =6;
|
|
KERN_NOT_RECEIVER =7;
|
|
KERN_NO_ACCESS =8;
|
|
|
|
MAP_SHARED =$00001; // share changes
|
|
MAP_PRIVATE =$00002; // changes are private
|
|
MAP_FIXED =$00010; // map addr must be exactly as requested
|
|
MAP_NO_OVERWRITE =$00080; // don't overwrite memory with MAP_FIXED
|
|
MAP_VOID =$00100; // reserve addr
|
|
MAP_HASSEMAPHORE =$00200; // region may contain semaphores
|
|
MAP_STACK =$00400; // region grows down, like a stack
|
|
MAP_NOSYNC =$00800; // page to but do not sync underlying file
|
|
MAP_FILE =$00000; // map from file (default)
|
|
MAP_ANON =$01000; // allocated from memory, swap space
|
|
MAP_ANONYMOUS =MAP_ANON; // For compatibility.
|
|
MAP_SYSTEM =$02000;
|
|
MAP_ALLAVAILABLE =$04000;
|
|
MAP_NOCORE =$20000; // dont include these pages in a coredump
|
|
MAP_PREFAULT_READ=$40000; // prefault mapping for reading
|
|
MAP_SELF =$80000; // map decryped SELF file
|
|
|
|
MAP_ALIGNMENT_BIT =24;
|
|
MAP_ALIGNMENT_SHIFT=24;
|
|
MAP_ALIGNMENT_MASK =$ff shl MAP_ALIGNMENT_SHIFT;
|
|
MAP_ALIGNED_SUPER =$01 shl MAP_ALIGNMENT_SHIFT;
|
|
//MAP_ALIGNED(n) ((n) << MAP_ALIGNMENT_SHIFT)
|
|
|
|
MCL_CURRENT=$0001; // Lock only current memory
|
|
MCL_FUTURE =$0002; // Lock all future memory as well
|
|
|
|
MS_SYNC =$0000; // msync synchronously
|
|
MS_ASYNC =$0001; // return immediately
|
|
MS_INVALIDATE=$0002; // invalidate all cached data
|
|
|
|
//Advice to madvise
|
|
_MADV_NORMAL =0; // no further special treatment
|
|
_MADV_RANDOM =1; // expect random page references
|
|
_MADV_SEQUENTIAL=2; // expect sequential page references
|
|
_MADV_WILLNEED =3; // will need these pages
|
|
_MADV_DONTNEED =4; // dont need these pages
|
|
|
|
MADV_NORMAL =_MADV_NORMAL;
|
|
MADV_RANDOM =_MADV_RANDOM;
|
|
MADV_SEQUENTIAL=_MADV_SEQUENTIAL;
|
|
MADV_WILLNEED =_MADV_WILLNEED;
|
|
MADV_DONTNEED =_MADV_DONTNEED;
|
|
MADV_FREE = 5; // dont need these pages, and junk contents
|
|
MADV_NOSYNC = 6; // try to avoid flushes to physical media
|
|
MADV_AUTOSYNC = 7; // revert to default flushing strategy
|
|
MADV_NOCORE = 8; // do not include these pages in a core file
|
|
MADV_CORE = 9; // revert to including pages in a core file
|
|
MADV_PROTECT =10; // protect process from pageout kill
|
|
|
|
function is_gpu(prot:vm_prot_t):Boolean; inline;
|
|
function round_page(x:QWORD):QWORD; inline;
|
|
function trunc_page(x:QWORD):QWORD; inline;
|
|
function roundup(addr:QWORD;alignment:QWORD):QWORD; inline;
|
|
|
|
implementation
|
|
|
|
uses
|
|
vmparam;
|
|
|
|
function is_gpu(prot:vm_prot_t):Boolean; inline;
|
|
begin
|
|
Result:=(prot and VM_PROT_GPU_ALL)<>0;
|
|
end;
|
|
|
|
function round_page(x:QWORD):QWORD; inline;
|
|
begin
|
|
Result:=(x+PAGE_MASK) and (not PAGE_MASK);
|
|
end;
|
|
|
|
function trunc_page(x:QWORD):QWORD; inline;
|
|
begin
|
|
Result:=x and (not PAGE_MASK);
|
|
end;
|
|
|
|
function roundup(addr:QWORD;alignment:QWORD):QWORD; inline;
|
|
var
|
|
tmp:QWORD;
|
|
begin
|
|
if (alignment=0) then Exit(addr);
|
|
tmp:=addr+QWORD(alignment-1);
|
|
Result:=tmp-(tmp mod alignment)
|
|
end;
|
|
|
|
|
|
|
|
|
|
end.
|
|
|