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.