From ffb35ffece4f0239cf9fcecbfba5329d7b5dc98d Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Fri, 10 Jul 2015 15:10:15 +0200
Subject: neue Dateien:     matheunit.pas, mlockunit.pas, mystringlistunit.pas,
 pseudohadamard.pas, randomunit.pas, systemunit.pas

---
 mlockunit.pas | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 mlockunit.pas

(limited to 'mlockunit.pas')

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.
+
-- 
cgit v1.2.3-70-g09d2