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.