diff options
| author | Erich Eckner <git@eckner.net> | 2015-07-10 15:10:15 +0200 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2015-07-10 15:20:53 +0200 |
| commit | ffb35ffece4f0239cf9fcecbfba5329d7b5dc98d (patch) | |
| tree | bc07a061ee40ed18106cd5a13528d074d1228960 /mlockunit.pas | |
| parent | addd58de0c9311f791355231d53e4b280ff3537d (diff) | |
| download | units-ffb35ffece4f0239cf9fcecbfba5329d7b5dc98d.tar.xz | |
neue Dateien: matheunit.pas, mlockunit.pas, mystringlistunit.pas,
pseudohadamard.pas, randomunit.pas, systemunit.pas
Diffstat (limited to 'mlockunit.pas')
| -rw-r--r-- | mlockunit.pas | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/mlockunit.pas b/mlockunit.pas new file mode 100644 index 0000000..16598d6 --- /dev/null +++ b/mlockunit.pas @@ -0,0 +1,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. + |