mlockunit.pas


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

unit mlockunit;

{$mode objfpc}{$H+}

interface

uses ctypes;

const _SC_PAGESIZE = 30;

function mlock(const addr: pointer; len: cint): cint; external 'libc';
function munlock(const addr: pointer; len: cint): cint; external 'libc';
function sysconf(name: cint): clong; external 'libc';

implementation

end.