* pthreads moved

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@9948 3ad0048d-3df7-0310-abae-a5850022a9f2

5 files changed, 1524 insertions, 0 deletions

diff --git a/packages/pthreads/src/pthrbeos.inc b/packages/pthreads/src/pthrbeos.inc
new file mode 100644
index 0000000000..12758751ef
--- /dev/null
+++ b/packages/pthreads/src/pthrbeos.inc
@@ -0,0 +1,357 @@
+{
+   This file is part of the Free Pascal run time library.
+   Copyright (c) 1999-2000 by Michael Van Canneyt,
+   BSD parts (c) 2000 by Marco van de Voort
+   members of the Free Pascal development team.
+
+   New linux unit. Linux only calls only. Will be renamed to linux.pp
+   when 1.0.x support is killed off.
+
+   See the file COPYING.FPC, included in this distribution,
+   for details about the copyright.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY;without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+**********************************************************************}
+
+{
+  Automatically converted by H2Pas 0.99.15 from pthrwrk2.h
+}
+
+{$linklib pthread}      // The compiler changes this to c_r if needed.
+{$linklib c}            // (parameter -Xf)
+
+{$PACKRECORDS C}
+
+
+  {
+     Copyright (c) 1993, 1994 by Chris Provenzano, proven@mit.edu
+     Copyright (c) 1995-1998 by John Birrell <jb@cimlogic.com.au>
+     All rights reserved.
+
+     Redistribution and use in source and binary forms, with or without
+     modification, are permitted provided that the following conditions
+     are met:
+     1. Redistributions of source code must retain the above copyright
+        notice, this list of conditions and the following disclaimer.
+     2. Redistributions in binary form must reproduce the above copyright
+        notice, this list of conditions and the following disclaimer in the
+        documentation and/or other materials provided with the distribution.
+     3. All advertising materials mentioning features or use of this software
+        must display the following acknowledgement:
+      This product includes software developed by Chris Provenzano.
+     4. The name of Chris Provenzano may not be used to endorse or promote
+          products derived from this software without specific prior written
+          permission.
+
+     THIS SOFTWARE IS PROVIDED BY CHRIS PROVENZANO ``AS IS'' AND
+     ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+     IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+     ARE DISCLAIMED.  IN NO EVENT SHALL CHRIS PROVENZANO BE LIABLE FOR ANY
+     DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+     (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+     SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+     CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+     LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+     OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+     SUCH DAMAGE.
+
+     $FreeBSD: src/include/pthread.h,v 1.20.2.4 2003/05/27 18:18:01 jdp Exp $
+    }
+
+    {
+     Run-time invariant values:
+    }
+
+
+CONST ULONG_MAX= high(culong);
+
+type
+
+     psize_t   = ^size_t;
+     psigset_t = ^sigset_t;
+
+const
+    PTHREAD_MUTEX_NORMAL     = _PTHREAD_MUTEX_NORMAL;
+    PTHREAD_MUTEX_ERRORCHECK = _PTHREAD_MUTEX_ERRORCHECK;
+    PTHREAD_MUTEX_RECURSIVE  = _PTHREAD_MUTEX_RECURSIVE;
+
+     PTHREAD_MUTEX_DEFAULT    = _PTHREAD_MUTEX_NORMAL;
+     MUTEX_TYPE_FAST          = _PTHREAD_MUTEX_NORMAL;
+     MUTEX_TYPE_COUNTING_FAST = _PTHREAD_MUTEX_RECURSIVE;
+
+
+     PTHREAD_DESTRUCTOR_ITERATIONS = 4;
+     PTHREAD_KEYS_MAX              = _PTHREAD_KEYS_MAX;
+     PTHREAD_STACK_MIN             = _PTHREAD_STACK_MIN;
+     PTHREAD_THREADS_MAX           = ULONG_MAX;
+    {
+     Flags for threads and thread attributes.
+    }
+     PTHREAD_DETACHED              = $1;
+     PTHREAD_SCOPE_SYSTEM          = $2;
+     PTHREAD_INHERIT_SCHED         = $4;
+     PTHREAD_NOFLOAT               = $8;
+     PTHREAD_CREATE_DETACHED       = PTHREAD_DETACHED;
+     PTHREAD_CREATE_JOINABLE       = 0;
+     PTHREAD_SCOPE_PROCESS         = 0;
+     PTHREAD_EXPLICIT_SCHED        = 0;
+
+    {
+     Flags for read/write lock attributes
+    }
+     PTHREAD_PROCESS_PRIVATE       = 0;
+     PTHREAD_PROCESS_SHARED        = 1;
+    {
+     Flags for cancelling threads
+    }
+     PTHREAD_CANCEL_ENABLE         = 0;
+     PTHREAD_CANCEL_DISABLE        = 1;
+     PTHREAD_CANCEL_DEFERRED       = 0;
+     PTHREAD_CANCEL_ASYNCHRONOUS   = 2;
+     PTHREAD_CANCELED              = pointer(1);
+
+  {
+     Forward structure definitions.
+
+     These are mostly opaque to the user.
+    }
+
+  type
+{ from semaphore.h }
+
+     psem_t = ^sem_t;
+     TSemaphore         = sem_t;
+     PSemaphore   = ^TSemaphore;
+
+    {
+     Primitive system data type definitions required by P1003.1c.
+
+     Note that P1003.1c specifies that there are no defined comparison
+     or assignment operators for the types pthread_attr_t, pthread_cond_t,
+     pthread_condattr_t, pthread_mutex_t, pthread_mutexattr_t.
+    }
+
+     TThreadID = pthread_t;
+     PThreadID = ^TThreadID;
+     TThreadAttr = pthread_attr_t;
+     PThreadAttr = ^TThreadAttr;
+     TPthreadMutex = pthread_mutex_t;
+     PTpthreadmutex= ^TPthreadMutex;
+     TMutexAttribute = pthread_mutexattr_t;
+     PMutexAttribute = ^TMutexAttribute;
+     TPthreadCondattr = pthread_condattr_t;
+     PPthreadCondattr = ^TPthreadCondattr;
+
+{added, adjust these if hdr conv went wrong}
+     {from sched.h}
+
+     sched_param =  record
+                      sched_priority : cint;
+                    end;
+
+     {for pthread.h}
+     ppthread_attr_t            = ^pthread_attr_t;
+     ppthread_cond_t            = ^pthread_cond_t;
+     ppthread_condattr_t        = ^pthread_condattr_t;
+     ppthread_mutex_t           = ^pthread_mutex_t;
+     ppthread_t                 = ^pthread_t;
+     ppthread_key_t             = ^pthread_key_t;
+     ppthread_mutexattr_t       = ^pthread_mutexattr_t;
+     ppthread_rwlock_t          = ^pthread_rwlock_t;
+     ppthread_rwlockattr_t      = ^pthread_rwlockattr_t;
+     ppthread_once_t            = ^pthread_once_t;
+     psched_param               = ^sched_param;
+     TSchedParam = sched_param;
+     PSchedParam = ^TSchedParam;
+
+    {
+     Additional type definitions:
+
+     Note that P1003.1c reserves the prefixes pthread_ and PTHREAD_ for
+     use in header symbols.
+    }
+
+     pthread_addr_t             = packed record end;
+     pthread_startroutine_t     = procedure; cdecl;
+
+    {
+     Once definitions.
+    }
+     _pthread_once = record
+          state : cint;
+          mutex : pthread_mutex_t;
+       end;
+
+     pthread_once_t             = _pthread_once;
+
+    {
+     Flags for once initialization.
+    }
+
+  const
+     PTHREAD_NEEDS_INIT         = 0;
+     PTHREAD_DONE_INIT          = 1;
+  {
+     Static once initialization values.
+  }
+
+  { ????
+#define PTHREAD_ONCE_INIT   ( PTHREAD_NEEDS_INIT, NULL )
+  }
+
+
+      {
+        Static initialization values.
+      }
+       PTHREAD_MUTEX_INITIALIZER        = NIL;
+       PTHREAD_COND_INITIALIZER         = NIL;
+       PTHREAD_RWLOCK_INITIALIZER       = NIL;
+    {
+       Default attribute arguments (draft 4, deprecated).
+    }
+
+{$ifndef PTHREAD_KERNEL}
+    const
+       pthread_condattr_default         = NIL;
+       pthread_mutexattr_default        = NIL;
+       pthread_attr_default             = NiL;
+{$endif}
+
+    const
+       PTHREAD_PRIO_NONE                = 0;
+       PTHREAD_PRIO_INHERIT             = 1;
+       PTHREAD_PRIO_PROTECT             = 2;
+
+    {
+       Thread function prototype definitions:
+      }
+
+function pthread_attr_destroy (p : ppthread_attr_t ):cint; cdecl; external;
+
+function pthread_attr_getstack (p : ppthread_attr_t; stackaddr : ppointer;
+                        stacksize : psize_t):cint; cdecl; external;
+
+function pthread_attr_getstacksize(_para1:Ppthread_attr_t; _para2:Psize_t):cint;cdecl; external;
+function pthread_attr_getstackaddr(_para1:Ppthread_attr_t; _para2:Ppointer):cint;cdecl;external;
+function pthread_attr_getdetachstate(_para1:Ppthread_attr_t; _para2:Pcint):cint;cdecl; external;
+function pthread_attr_init(_para1:Ppthread_attr_t):cint;cdecl;external;
+function pthread_attr_setstack(_para1:Ppthread_attr_t; _para2:pointer; _para3:size_t):cint;cdecl;external;
+function pthread_attr_setstacksize(_para1:Ppthread_attr_t; _para2:size_t):cint;cdecl;external;
+function pthread_attr_setstackaddr(_para1:Ppthread_attr_t; _para2:pointer):cint;cdecl;external;
+function pthread_attr_setdetachstate(_para1:Ppthread_attr_t; _para2:cint):cint;cdecl;external;
+procedure pthread_cleanup_pop(_para1:cint);cdecl;external;
+
+type cleanuproutine= function (a:pointer):pointer;cdecl;
+
+procedure pthread_cleanup_push(_para1:cleanuproutine; routine_arg:pointer);cdecl;external;
+function pthread_condattr_destroy(_para1:Ppthread_condattr_t):cint;cdecl;external;
+function pthread_condattr_init(_para1:Ppthread_condattr_t):cint;cdecl;external;
+
+{$ifdef POSIX_THREAD_PROCESS_SHARED}
+function pthread_condattr_getpshared(_para1:Ppthread_condattr_t; _para2:Pcint):cint;cdecl;external;
+function pthread_condattr_setpshared(_para1:Ppthread_condattr_t; _para2:cint):cint;cdecl;external;
+{$endif}
+
+function pthread_cond_broadcast(_para1:Ppthread_cond_t):cint;cdecl;external;
+function pthread_cond_destroy(_para1:Ppthread_cond_t):cint;cdecl;external;
+function pthread_cond_init(_para1:Ppthread_cond_t; _para2:Ppthread_condattr_t):cint;cdecl;external;
+function pthread_cond_signal(_para1:Ppthread_cond_t):cint;cdecl;external;
+function pthread_cond_timedwait(_para1:Ppthread_cond_t; _para2:Ppthread_mutex_t; _para3:Ptimespec):cint;cdecl;external;
+function pthread_cond_wait(_para1:Ppthread_cond_t; _para2:Ppthread_mutex_t):cint;cdecl;external;
+type pthreadcreateroutine = function (p:pointer):pointer; cdecl;
+function pthread_create(_para1:Ppthread_t; _para2:Ppthread_attr_t; _para3:Pthreadcreateroutine; _para4:pointer):cint;cdecl;external;
+function pthread_detach(_para1:pthread_t):cint;cdecl;external;
+function pthread_equal(_para1:pthread_t; _para2:pthread_t):cint;cdecl;external;
+procedure pthread_exit  ( p: pointer); cdecl;external;  { __dead2}
+function pthread_getspecific(_para1:pthread_key_t):pointer;cdecl;external;
+function pthread_join(_para1:pthread_t; _para2:Ppointer):cint;cdecl;external;
+type pthreadkeycreateroutine = function (p:pointer):pointer; cdecl;
+function pthread_key_create(_para1:Ppthread_key_t; _para2:pthreadkeycreateroutine):cint;cdecl;external;
+function pthread_key_delete(_para1:pthread_key_t):cint;cdecl;external;
+function pthread_kill(_para1:pthread_t; _para2:cint):cint;cdecl;external;
+function pthread_mutexattr_init(_para1:Ppthread_mutexattr_t):cint;cdecl;external;
+function pthread_mutexattr_destroy(_para1:Ppthread_mutexattr_t):cint;cdecl;external;
+function pthread_mutexattr_gettype(_para1:Ppthread_mutexattr_t; _para2:Pcint):cint;cdecl;external;
+function pthread_mutexattr_settype(_para1:Ppthread_mutexattr_t; _para2:cint):cint;cdecl;external;
+
+function pthread_mutex_destroy(_para1:Ppthread_mutex_t):cint;cdecl;external;
+function pthread_mutex_init(_para1:Ppthread_mutex_t; _para2:Ppthread_mutexattr_t):cint;cdecl;external;
+function pthread_mutex_lock(_para1:Ppthread_mutex_t):cint;cdecl;external;
+function pthread_mutex_trylock(_para1:Ppthread_mutex_t):cint;cdecl;external;
+function pthread_mutex_unlock(_para1:Ppthread_mutex_t):cint;cdecl;external;
+type pthreadonceroutine = procedure (p:pointer); cdecl;
+function pthread_once(_para1:Ppthread_once_t; _para2:pthreadonceroutine ):cint;cdecl;external;
+function pthread_rwlock_destroy(_para1:Ppthread_rwlock_t):cint;cdecl;external;
+function pthread_rwlock_init(_para1:Ppthread_rwlock_t; _para2:Ppthread_rwlockattr_t):cint;cdecl;external;
+function pthread_rwlock_rdlock(_para1:Ppthread_rwlock_t):cint;cdecl;external;
+function pthread_rwlock_tryrdlock(_para1:Ppthread_rwlock_t):cint;cdecl;external;
+function pthread_rwlock_trywrlock(_para1:Ppthread_rwlock_t):cint;cdecl;external;
+function pthread_rwlock_unlock(_para1:Ppthread_rwlock_t):cint;cdecl;external;
+function pthread_rwlock_wrlock(_para1:Ppthread_rwlock_t):cint;cdecl;external;
+function pthread_rwlockattr_init(_para1:Ppthread_rwlockattr_t):cint;cdecl;external;
+function pthread_rwlockattr_getpshared(_para1:Ppthread_rwlockattr_t; _para2:Pcint):cint;cdecl;external;
+function pthread_rwlockattr_setpshared(_para1:Ppthread_rwlockattr_t; _para2:cint):cint;cdecl;external;
+function pthread_rwlockattr_destroy(_para1:Ppthread_rwlockattr_t):cint;cdecl;external;
+function pthread_self:pthread_t;cdecl;external;
+function pthread_setspecific(_para1:pthread_key_t; _para2:pointer):cint;cdecl;external;
+function pthread_sigmask(_para1:cint; _para2:Psigset_t; _para3:Psigset_t):cint;cdecl;external;
+function pthread_cancel(_para1:pthread_t):cint;cdecl;external;
+function pthread_setcancelstate(_para1:cint; _para2:Pcint):cint;cdecl;external;
+function pthread_setcanceltype(_para1:cint; _para2:Pcint):cint;cdecl;external;
+procedure pthread_testcancel;cdecl;external;
+function pthread_getprio(_para1:pthread_t):cint;cdecl;external;
+function pthread_setprio(_para1:pthread_t; _para2:cint):cint;cdecl;external;
+procedure pthread_yield;cdecl;external;
+
+{$ifdef POSIX_THREAD_PROCESS_SHARED}
+function pthread_mutexattr_getpshared(_para1:Ppthread_mutexattr_t; pshared:Pcint):cint;cdecl;external;
+function pthread_mutexattr_setpshared(_para1:Ppthread_mutexattr_t; pshared:cint):cint;cdecl;external;
+{$endif}
+
+function pthread_mutexattr_getprioceiling(_para1:Ppthread_mutexattr_t; _para2:Pcint):cint;cdecl;external;
+function pthread_mutexattr_setprioceiling(_para1:Ppthread_mutexattr_t; _para2:cint):cint;cdecl;external;
+function pthread_mutex_getprioceiling(_para1:Ppthread_mutex_t; _para2:Pcint):cint;cdecl;external;
+function pthread_mutex_setprioceiling(_para1:Ppthread_mutex_t; _para2:cint; _para3:Pcint):cint;cdecl;external;
+function pthread_mutexattr_getprotocol(_para1:Ppthread_mutexattr_t; _para2:Pcint):cint;cdecl;external;
+function pthread_mutexattr_setprotocol(_para1:Ppthread_mutexattr_t; _para2:cint):cint;cdecl;external;
+function pthread_attr_getinheritsched(_para1:Ppthread_attr_t; _para2:Pcint):cint;cdecl;external;
+function pthread_attr_getschedparam(_para1:Ppthread_attr_t; _para2:Psched_param):cint;cdecl;external;
+function pthread_attr_getschedpolicy(_para1:Ppthread_attr_t; _para2:Pcint):cint;cdecl;external;
+function pthread_attr_getscope(_para1:Ppthread_attr_t; _para2:Pcint):cint;cdecl;external;
+function pthread_attr_setinheritsched(_para1:Ppthread_attr_t; _para2:cint):cint;cdecl;external;
+function pthread_attr_setschedparam(_para1:Ppthread_attr_t; _para2:Psched_param):cint;cdecl;external;
+function pthread_attr_setschedpolicy(_para1:Ppthread_attr_t; _para2:cint):cint;cdecl;external;
+function pthread_attr_setscope(_para1:Ppthread_attr_t; _para2:cint):cint;cdecl;external;
+function pthread_getschedparam(pthread:pthread_t; _para2:Pcint; _para3:Psched_param):cint;cdecl;external;
+function pthread_setschedparam(_para1:pthread_t; _para2:cint; _para3:Psched_param):cint;cdecl;external;
+function pthread_getconcurrency:cint;cdecl;external;
+function pthread_setconcurrency(_para1:cint):cint;cdecl;external;
+function pthread_attr_setfloatstate(_para1:Ppthread_attr_t; _para2:cint):cint;cdecl;external;
+function pthread_attr_getfloatstate(_para1:Ppthread_attr_t; _para2:Pcint):cint;cdecl;external;
+
+{ semaphore.h }
+
+
+  function sem_init(__sem:Psem_t; __pshared:cint;__value:dword):cint;cdecl; external;
+  function sem_destroy(__sem:Psem_t):cint;cdecl;external ;
+  function sem_close(__sem:Psem_t):cint;cdecl;external ;
+  function sem_unlink(__name:Pchar):cint;cdecl;external ;
+  function sem_wait(__sem:Psem_t):cint;cdecl;external ;
+  function sem_trywait(__sem:Psem_t):cint;cdecl;external ;
+  function sem_post(__sem:Psem_t):cint;cdecl;external ;
+  function sem_getvalue(__sem:Psem_t; __sval:Pcint):cint;cdecl;external;
+
+
+  function sem_init(var __sem: sem_t; __pshared:cint; __value:dword):cint cdecl;external;
+  function sem_destroy(var __sem: sem_t):cint;cdecl;external;
+  function sem_close(var __sem: sem_t):cint;cdecl;external;
+  function sem_wait(var __sem: sem_t):cint;cdecl;external;
+  function sem_trywait(var __sem: sem_t):cint;cdecl;external;
+  function sem_post(var __sem: sem_t):cint;cdecl;external;
+  function sem_getvalue(var __sem: sem_t; var __sval:cint):cint;cdecl;external;
+
+
+
diff --git a/packages/pthreads/src/pthrbsd.inc b/packages/pthreads/src/pthrbsd.inc
new file mode 100644
index 0000000000..876bc94b3d
--- /dev/null
+++ b/packages/pthreads/src/pthrbsd.inc
@@ -0,0 +1,356 @@
+{
+   This file is part of the Free Pascal run time library.
+   Copyright (c) 1999-2000 by Michael Van Canneyt,
+   BSD parts (c) 2000 by Marco van de Voort
+   members of the Free Pascal development team.
+
+   New linux unit. Linux only calls only. Will be renamed to linux.pp
+   when 1.0.x support is killed off.
+
+   See the file COPYING.FPC, included in this distribution,
+   for details about the copyright.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY;without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+**********************************************************************}
+
+{
+  Automatically converted by H2Pas 0.99.15 from pthrwrk2.h
+}
+
+{$linklib pthread}      // The compiler changes this to c_r if needed.
+{$linklib c}            // (parameter -Xf)
+
+{$PACKRECORDS C}
+
+
+  {
+     Copyright (c) 1993, 1994 by Chris Provenzano, proven@mit.edu
+     Copyright (c) 1995-1998 by John Birrell <jb@cimlogic.com.au>
+     All rights reserved.
+
+     Redistribution and use in source and binary forms, with or without
+     modification, are permitted provided that the following conditions
+     are met:
+     1. Redistributions of source code must retain the above copyright
+        notice, this list of conditions and the following disclaimer.
+     2. Redistributions in binary form must reproduce the above copyright
+        notice, this list of conditions and the following disclaimer in the
+        documentation and/or other materials provided with the distribution.
+     3. All advertising materials mentioning features or use of this software
+        must display the following acknowledgement:
+      This product includes software developed by Chris Provenzano.
+     4. The name of Chris Provenzano may not be used to endorse or promote
+          products derived from this software without specific prior written
+          permission.
+
+     THIS SOFTWARE IS PROVIDED BY CHRIS PROVENZANO ``AS IS'' AND
+     ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+     IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+     ARE DISCLAIMED.  IN NO EVENT SHALL CHRIS PROVENZANO BE LIABLE FOR ANY
+     DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+     (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+     SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+     CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+     LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+     OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+     SUCH DAMAGE.
+
+     $FreeBSD: src/include/pthread.h,v 1.20.2.4 2003/05/27 18:18:01 jdp Exp $
+    }
+
+    {
+     Run-time invariant values:
+    }
+
+
+CONST ULONG_MAX= high(culong);
+
+type
+
+     psize_t   = ^size_t;
+     psigset_t = ^sigset;
+
+const
+    PTHREAD_MUTEX_NORMAL     = _PTHREAD_MUTEX_NORMAL;
+    PTHREAD_MUTEX_ERRORCHECK = _PTHREAD_MUTEX_ERRORCHECK;
+    PTHREAD_MUTEX_RECURSIVE  = _PTHREAD_MUTEX_RECURSIVE;
+
+     PTHREAD_MUTEX_DEFAULT    = _PTHREAD_MUTEX_NORMAL;
+     MUTEX_TYPE_FAST          = _PTHREAD_MUTEX_NORMAL;
+     MUTEX_TYPE_COUNTING_FAST = _PTHREAD_MUTEX_RECURSIVE;
+
+
+     PTHREAD_DESTRUCTOR_ITERATIONS = 4;
+     PTHREAD_KEYS_MAX              = _PTHREAD_KEYS_MAX;
+     PTHREAD_STACK_MIN             = _PTHREAD_STACK_MIN;
+     PTHREAD_THREADS_MAX           = ULONG_MAX;
+    {
+     Flags for threads and thread attributes.
+    }
+     PTHREAD_DETACHED              = $1;
+     PTHREAD_SCOPE_SYSTEM          = $2;
+     PTHREAD_INHERIT_SCHED         = $4;
+     PTHREAD_NOFLOAT               = $8;
+     PTHREAD_CREATE_DETACHED       = PTHREAD_DETACHED;
+     PTHREAD_CREATE_JOINABLE       = 0;
+     PTHREAD_SCOPE_PROCESS         = 0;
+     PTHREAD_EXPLICIT_SCHED        = 0;
+
+    {
+     Flags for read/write lock attributes
+    }
+     PTHREAD_PROCESS_PRIVATE       = 0;
+     PTHREAD_PROCESS_SHARED        = 1;
+    {
+     Flags for cancelling threads
+    }
+     PTHREAD_CANCEL_ENABLE         = 0;
+     PTHREAD_CANCEL_DISABLE        = 1;
+     PTHREAD_CANCEL_DEFERRED       = 0;
+     PTHREAD_CANCEL_ASYNCHRONOUS   = 2;
+     PTHREAD_CANCELED              = pointer(1);
+
+  {
+     Forward structure definitions.
+
+     These are mostly opaque to the user.
+    }
+
+  type
+{ from semaphore.h }
+
+     psem_t = ^sem_t;
+     TSemaphore         = sem_t;
+     PSemaphore   = ^TSemaphore;
+
+    {
+     Primitive system data type definitions required by P1003.1c.
+
+     Note that P1003.1c specifies that there are no defined comparison
+     or assignment operators for the types pthread_attr_t, pthread_cond_t,
+     pthread_condattr_t, pthread_mutex_t, pthread_mutexattr_t.
+    }
+
+     TThreadID = pthread_t;
+     PThreadID = ^TThreadID;
+     TThreadAttr = pthread_attr_t;
+     PThreadAttr = ^TThreadAttr;
+     TPthreadMutex = pthread_mutex_t;
+     PTpthreadmutex= ^TPthreadMutex;
+     TMutexAttribute = pthread_mutexattr_t;
+     PMutexAttribute = ^TMutexAttribute;
+     TPthreadCondattr = pthread_condattr_t;
+     PPthreadCondattr = ^TPthreadCondattr;
+
+{added, adjust these if hdr conv went wrong}
+     {from sched.h}
+
+     sched_param =  record
+                      sched_priority : cint;
+                    end;
+
+     {for pthread.h}
+     ppthread_attr_t            = ^pthread_attr_t;
+     ppthread_cond_t            = ^pthread_cond_t;
+     ppthread_condattr_t        = ^pthread_condattr_t;
+     ppthread_mutex_t           = ^pthread_mutex_t;
+     ppthread_t                 = ^pthread_t;
+     ppthread_key_t             = ^pthread_key_t;
+     ppthread_mutexattr_t       = ^pthread_mutexattr_t;
+     ppthread_rwlock_t          = ^pthread_rwlock_t;
+     ppthread_rwlockattr_t      = ^pthread_rwlockattr_t;
+     ppthread_once_t            = ^pthread_once_t;
+     psched_param               = ^sched_param;
+     TSchedParam = sched_param;
+     PSchedParam = ^TSchedParam;
+
+    {
+     Additional type definitions:
+
+     Note that P1003.1c reserves the prefixes pthread_ and PTHREAD_ for
+     use in header symbols.
+    }
+
+     pthread_addr_t             = packed record end;
+     pthread_startroutine_t     = procedure; cdecl;
+
+    {
+     Once definitions.
+    }
+     _pthread_once = record
+          state : cint;
+          mutex : pthread_mutex_t;
+       end;
+
+     pthread_once_t             = _pthread_once;
+
+    {
+     Flags for once initialization.
+    }
+
+  const
+     PTHREAD_NEEDS_INIT         = 0;
+     PTHREAD_DONE_INIT          = 1;
+  {
+     Static once initialization values.
+  }
+
+  { ????
+#define PTHREAD_ONCE_INIT   ( PTHREAD_NEEDS_INIT, NULL )
+  }
+
+
+      {
+        Static initialization values.
+      }
+       PTHREAD_MUTEX_INITIALIZER        = NIL;
+       PTHREAD_COND_INITIALIZER         = NIL;
+       PTHREAD_RWLOCK_INITIALIZER       = NIL;
+    {
+       Default attribute arguments (draft 4, deprecated).
+    }
+
+{$ifndef PTHREAD_KERNEL}
+    const
+       pthread_condattr_default         = NIL;
+       pthread_mutexattr_default        = NIL;
+       pthread_attr_default             = NiL;
+{$endif}
+
+    const
+       PTHREAD_PRIO_NONE                = 0;
+       PTHREAD_PRIO_INHERIT             = 1;
+       PTHREAD_PRIO_PROTECT             = 2;
+
+    {
+       Thread function prototype definitions:
+      }
+
+function pthread_attr_destroy (p : ppthread_attr_t ):cint; cdecl; external;
+
+function pthread_attr_getstack (p : ppthread_attr_t; stackaddr : ppointer;
+                        stacksize : psize_t):cint; cdecl; external;
+
+function pthread_attr_getstacksize(_para1:Ppthread_attr_t; _para2:Psize_t):cint;cdecl; external;
+function pthread_attr_getstackaddr(_para1:Ppthread_attr_t; _para2:Ppointer):cint;cdecl;external;
+function pthread_attr_getdetachstate(_para1:Ppthread_attr_t; _para2:Pcint):cint;cdecl; external;
+function pthread_attr_init(_para1:Ppthread_attr_t):cint;cdecl;external;
+function pthread_attr_setstack(_para1:Ppthread_attr_t; _para2:pointer; _para3:size_t):cint;cdecl;external;
+function pthread_attr_setstacksize(_para1:Ppthread_attr_t; _para2:size_t):cint;cdecl;external;
+function pthread_attr_setstackaddr(_para1:Ppthread_attr_t; _para2:pointer):cint;cdecl;external;
+function pthread_attr_setdetachstate(_para1:Ppthread_attr_t; _para2:cint):cint;cdecl;external;
+procedure pthread_cleanup_pop(_para1:cint);cdecl;external;
+
+type cleanuproutine= function (a:pointer):pointer;cdecl;
+
+procedure pthread_cleanup_push(_para1:cleanuproutine; routine_arg:pointer);cdecl;external;
+function pthread_condattr_destroy(_para1:Ppthread_condattr_t):cint;cdecl;external;
+function pthread_condattr_init(_para1:Ppthread_condattr_t):cint;cdecl;external;
+
+{$ifdef POSIX_THREAD_PROCESS_SHARED}
+function pthread_condattr_getpshared(_para1:Ppthread_condattr_t; _para2:Pcint):cint;cdecl;external;
+function pthread_condattr_setpshared(_para1:Ppthread_condattr_t; _para2:cint):cint;cdecl;external;
+{$endif}
+
+function pthread_cond_broadcast(_para1:Ppthread_cond_t):cint;cdecl;external;
+function pthread_cond_destroy(_para1:Ppthread_cond_t):cint;cdecl;external;
+function pthread_cond_init(_para1:Ppthread_cond_t; _para2:Ppthread_condattr_t):cint;cdecl;external;
+function pthread_cond_signal(_para1:Ppthread_cond_t):cint;cdecl;external;
+function pthread_cond_timedwait(_para1:Ppthread_cond_t; _para2:Ppthread_mutex_t; _para3:Ptimespec):cint;cdecl;external;
+function pthread_cond_wait(_para1:Ppthread_cond_t; _para2:Ppthread_mutex_t):cint;cdecl;external;
+type pthreadcreateroutine = function (p:pointer):pointer; cdecl;
+function pthread_create(_para1:Ppthread_t; _para2:Ppthread_attr_t; _para3:Pthreadcreateroutine; _para4:pointer):cint;cdecl;external;
+function pthread_detach(_para1:pthread_t):cint;cdecl;external;
+function pthread_equal(_para1:pthread_t; _para2:pthread_t):cint;cdecl;external;
+procedure pthread_exit  ( p: pointer); cdecl;external;  { __dead2}
+function pthread_getspecific(_para1:pthread_key_t):pointer;cdecl;external;
+function pthread_join(_para1:pthread_t; _para2:Ppointer):cint;cdecl;external;
+type pthreadkeycreateroutine = function (p:pointer):pointer; cdecl;
+function pthread_key_create(_para1:Ppthread_key_t; _para2:pthreadkeycreateroutine):cint;cdecl;external;
+function pthread_key_delete(_para1:pthread_key_t):cint;cdecl;external;
+function pthread_kill(_para1:pthread_t; _para2:cint):cint;cdecl;external;
+function pthread_mutexattr_init(_para1:Ppthread_mutexattr_t):cint;cdecl;external;
+function pthread_mutexattr_destroy(_para1:Ppthread_mutexattr_t):cint;cdecl;external;
+function pthread_mutexattr_gettype(_para1:Ppthread_mutexattr_t; _para2:Pcint):cint;cdecl;external;
+function pthread_mutexattr_settype(_para1:Ppthread_mutexattr_t; _para2:cint):cint;cdecl;external;
+
+function pthread_mutex_destroy(_para1:Ppthread_mutex_t):cint;cdecl;external;
+function pthread_mutex_init(_para1:Ppthread_mutex_t; _para2:Ppthread_mutexattr_t):cint;cdecl;external;
+function pthread_mutex_lock(_para1:Ppthread_mutex_t):cint;cdecl;external;
+function pthread_mutex_trylock(_para1:Ppthread_mutex_t):cint;cdecl;external;
+function pthread_mutex_unlock(_para1:Ppthread_mutex_t):cint;cdecl;external;
+type pthreadonceroutine = procedure (p:pointer); cdecl;
+function pthread_once(_para1:Ppthread_once_t; _para2:pthreadonceroutine ):cint;cdecl;external;
+function pthread_rwlock_destroy(_para1:Ppthread_rwlock_t):cint;cdecl;external;
+function pthread_rwlock_init(_para1:Ppthread_rwlock_t; _para2:Ppthread_rwlockattr_t):cint;cdecl;external;
+function pthread_rwlock_rdlock(_para1:Ppthread_rwlock_t):cint;cdecl;external;
+function pthread_rwlock_tryrdlock(_para1:Ppthread_rwlock_t):cint;cdecl;external;
+function pthread_rwlock_trywrlock(_para1:Ppthread_rwlock_t):cint;cdecl;external;
+function pthread_rwlock_unlock(_para1:Ppthread_rwlock_t):cint;cdecl;external;
+function pthread_rwlock_wrlock(_para1:Ppthread_rwlock_t):cint;cdecl;external;
+function pthread_rwlockattr_init(_para1:Ppthread_rwlockattr_t):cint;cdecl;external;
+function pthread_rwlockattr_getpshared(_para1:Ppthread_rwlockattr_t; _para2:Pcint):cint;cdecl;external;
+function pthread_rwlockattr_setpshared(_para1:Ppthread_rwlockattr_t; _para2:cint):cint;cdecl;external;
+function pthread_rwlockattr_destroy(_para1:Ppthread_rwlockattr_t):cint;cdecl;external;
+function pthread_self:pthread_t;cdecl;external;
+function pthread_setspecific(_para1:pthread_key_t; _para2:pointer):cint;cdecl;external;
+function pthread_sigmask(_para1:cint; _para2:Psigset_t; _para3:Psigset_t):cint;cdecl;external;
+function pthread_cancel(_para1:pthread_t):cint;cdecl;external;
+function pthread_setcancelstate(_para1:cint; _para2:Pcint):cint;cdecl;external;
+function pthread_setcanceltype(_para1:cint; _para2:Pcint):cint;cdecl;external;
+procedure pthread_testcancel;cdecl;external;
+function pthread_getprio(_para1:pthread_t):cint;cdecl;external;
+function pthread_setprio(_para1:pthread_t; _para2:cint):cint;cdecl;external;
+procedure pthread_yield;cdecl;external;
+
+{$ifdef POSIX_THREAD_PROCESS_SHARED}
+function pthread_mutexattr_getpshared(_para1:Ppthread_mutexattr_t; pshared:Pcint):cint;cdecl;external;
+function pthread_mutexattr_setpshared(_para1:Ppthread_mutexattr_t; pshared:cint):cint;cdecl;external;
+{$endif}
+
+function pthread_mutexattr_getprioceiling(_para1:Ppthread_mutexattr_t; _para2:Pcint):cint;cdecl;external;
+function pthread_mutexattr_setprioceiling(_para1:Ppthread_mutexattr_t; _para2:cint):cint;cdecl;external;
+function pthread_mutex_getprioceiling(_para1:Ppthread_mutex_t; _para2:Pcint):cint;cdecl;external;
+function pthread_mutex_setprioceiling(_para1:Ppthread_mutex_t; _para2:cint; _para3:Pcint):cint;cdecl;external;
+function pthread_mutexattr_getprotocol(_para1:Ppthread_mutexattr_t; _para2:Pcint):cint;cdecl;external;
+function pthread_mutexattr_setprotocol(_para1:Ppthread_mutexattr_t; _para2:cint):cint;cdecl;external;
+function pthread_attr_getinheritsched(_para1:Ppthread_attr_t; _para2:Pcint):cint;cdecl;external;
+function pthread_attr_getschedparam(_para1:Ppthread_attr_t; _para2:Psched_param):cint;cdecl;external;
+function pthread_attr_getschedpolicy(_para1:Ppthread_attr_t; _para2:Pcint):cint;cdecl;external;
+function pthread_attr_getscope(_para1:Ppthread_attr_t; _para2:Pcint):cint;cdecl;external;
+function pthread_attr_setinheritsched(_para1:Ppthread_attr_t; _para2:cint):cint;cdecl;external;
+function pthread_attr_setschedparam(_para1:Ppthread_attr_t; _para2:Psched_param):cint;cdecl;external;
+function pthread_attr_setschedpolicy(_para1:Ppthread_attr_t; _para2:cint):cint;cdecl;external;
+function pthread_attr_setscope(_para1:Ppthread_attr_t; _para2:cint):cint;cdecl;external;
+function pthread_getschedparam(pthread:pthread_t; _para2:Pcint; _para3:Psched_param):cint;cdecl;external;
+function pthread_setschedparam(_para1:pthread_t; _para2:cint; _para3:Psched_param):cint;cdecl;external;
+function pthread_getconcurrency:cint;cdecl;external;
+function pthread_setconcurrency(_para1:cint):cint;cdecl;external;
+function pthread_attr_setfloatstate(_para1:Ppthread_attr_t; _para2:cint):cint;cdecl;external;
+function pthread_attr_getfloatstate(_para1:Ppthread_attr_t; _para2:Pcint):cint;cdecl;external;
+
+{ semaphore.h }
+
+
+  function sem_init(__sem:Psem_t; __pshared:cint;__value:dword):cint;cdecl; external;
+  function sem_destroy(__sem:Psem_t):cint;cdecl;external ;
+  function sem_close(__sem:Psem_t):cint;cdecl;external ;
+  function sem_unlink(__name:Pchar):cint;cdecl;external ;
+  function sem_wait(__sem:Psem_t):cint;cdecl;external ;
+  function sem_trywait(__sem:Psem_t):cint;cdecl;external ;
+  function sem_post(__sem:Psem_t):cint;cdecl;external ;
+  function sem_getvalue(__sem:Psem_t; __sval:Pcint):cint;cdecl;external;
+
+
+  function sem_init(var __sem: sem_t; __pshared:cint; __value:dword):cint cdecl;external;
+  function sem_destroy(var __sem: sem_t):cint;cdecl;external;
+  function sem_close(var __sem: sem_t):cint;cdecl;external;
+  function sem_wait(var __sem: sem_t):cint;cdecl;external;
+  function sem_trywait(var __sem: sem_t):cint;cdecl;external;
+  function sem_post(var __sem: sem_t):cint;cdecl;external;
+  function sem_getvalue(var __sem: sem_t; var __sval:cint):cint;cdecl;external;
+
+
diff --git a/packages/pthreads/src/pthreads.pp b/packages/pthreads/src/pthreads.pp
new file mode 100644
index 0000000000..008bbd1258
--- /dev/null
+++ b/packages/pthreads/src/pthreads.pp
@@ -0,0 +1,48 @@
+{
+   This file is part of the Free Pascal run time library.
+   Copyright (c) 1999-2000 by Michael Van Canneyt,
+   BSD parts (c) 2000 by Marco van de Voort
+   members of the Free Pascal development team.
+
+   See the file COPYING.FPC, included in this distribution,
+   for details about the copyright.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY;without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+**********************************************************************}
+
+unit pthreads;
+
+interface
+
+{$mode objfpc}
+{$PACKRECORDS C}
+
+{$ifdef BSD}
+uses initc,BaseUnix, unixtype;
+{$i pthrbsd.inc}
+{$else}
+ {$ifdef linux}
+ uses initc,unixtype;
+ {$i pthrlinux.inc}
+ {$else}
+
+  {$ifdef sunos}
+  uses initc,unixtype;
+  {$i pthrsnos.inc}
+  {$else}
+   {$ifdef beos}
+   uses initc, baseunix, unixtype;
+   {$i pthrbeos.inc}
+   {$else}
+    {$error operating system not detected}
+   {$endif}
+  {$endif}
+ {$endif}
+{$endif}
+
+implementation
+
+end.
diff --git a/packages/pthreads/src/pthrlinux.inc b/packages/pthreads/src/pthrlinux.inc
new file mode 100644
index 0000000000..d68974dd27
--- /dev/null
+++ b/packages/pthreads/src/pthrlinux.inc
@@ -0,0 +1,404 @@
+{
+   This file is part of the Free Pascal run time library.
+   Copyright (c) 1999-2000 by Michael Van Canneyt,
+   members of the Free Pascal development team.
+
+   See the file COPYING.FPC, included in this distribution,
+   for details about the copyright.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY;without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+**********************************************************************}
+
+  (*
+  #define PTHREAD_MUTEX_INITIALIZER {0, 0, 0, PTHREAD_MUTEX_TIMED_NP, __LOCK_INITIALIZER}
+  #define PTHREAD_COND_INITIALIZER {__LOCK_INITIALIZER, 0}
+   *)
+
+  { Values for attributes.   }
+
+Const
+  LibThreads = 'pthread';
+
+  PTHREAD_MUTEX_TIMED_NP      = _PTHREAD_MUTEX_TIMED_NP;
+  PTHREAD_MUTEX_RECURSIVE_NP  = _PTHREAD_MUTEX_RECURSIVE_NP;
+  PTHREAD_MUTEX_ERRORCHECK_NP = _PTHREAD_MUTEX_ERRORCHECK_NP;
+  PTHREAD_MUTEX_ADAPTIVE_NP   = _PTHREAD_MUTEX_ADAPTIVE_NP;
+
+  PTHREAD_MUTEX_NORMAL     = PTHREAD_MUTEX_TIMED_NP;
+  PTHREAD_MUTEX_RECURSIVE  = PTHREAD_MUTEX_RECURSIVE_NP;
+  PTHREAD_MUTEX_ERRORCHECK = PTHREAD_MUTEX_ERRORCHECK_NP;
+  PTHREAD_MUTEX_DEFAULT    = PTHREAD_MUTEX_NORMAL;
+  PTHREAD_MUTEX_FAST_NP    = PTHREAD_MUTEX_ADAPTIVE_NP;
+
+  PTHREAD_CREATE_JOINABLE = 0;
+  PTHREAD_CREATE_DETACHED = 1;
+
+  PTHREAD_INHERIT_SCHED   = 0;
+  PTHREAD_EXPLICIT_SCHED  = 1;
+
+  PTHREAD_SCOPE_SYSTEM    = 0;
+  PTHREAD_SCOPE_PROCESS   = 1;
+
+  NONRECURSIVE  = 0;
+  RECURSIVE     = 1;
+
+  PTHREAD_PROCESS_PRIVATE = 0;
+  PTHREAD_PROCESS_SHARED  = 1;
+
+  PTHREAD_ONCE_INIT = 0;
+
+  PTHREAD_CANCEL_ENABLE  = 0;
+  PTHREAD_CANCEL_DISABLE = 1;
+
+  PTHREAD_CANCEL_DEFERRED     = 0;
+  PTHREAD_CANCEL_ASYNCHRONOUS = 1;
+
+  PTHREAD_CANCELED = Pointer(-1);
+  PTHREAD_BARRIER_SERIAL_THREAD = -1;
+
+  PTHREAD_RWLOCK_PREFER_READER_NP = 0;
+  PTHREAD_RWLOCK_PREFER_WRITER_NP = 1;
+  PTHREAD_RWLOCK_PREFER_WRITER_NONRECURSIVE_NP = 2;
+  PTHREAD_RWLOCK_DEFAULT_NP = PTHREAD_RWLOCK_PREFER_WRITER_NP;
+
+
+  _SIGSET_NWORDS  = 1024 div (8 * SizeOf(LongWord));
+
+type
+   __sigset_t = record
+     __val: packed array[0.._SIGSET_NWORDS-1] of LongWord;
+   end;
+   P__sigset_t = ^__sigset_t;
+   TSigset = __sigset_t;
+   PSigset = ^TSigset;
+
+type
+  // inserted.
+  PSize_t = ^Size_t;
+
+  // From scheduler.
+{ already in unix type
+  timespec =  record
+    tv_sec: cint;
+    tv_nsec: cint;
+  end;
+  TTimeSpec = timespec;
+  PTimeSpec = ^TTimeSpec; }
+
+  // procedural types used in parameters to pthread functions
+
+  TStartRoutine = function (_para1:pointer): cint; cdecl;
+  TKeyValueDestructor = procedure(ValueInKey: Pointer); cdecl;
+  TInitOnceProc = Procedure;cdecl;
+  TForkHandler = procedure; cdecl;
+
+  PPTHREAD_T = ^PTHREAD_T;
+
+  _PTHREAD_DESCR = Pointer;
+  TPTHREAD_DESCR = _PTHREAD_DESCR;
+  PPTHREAD_DESCR = ^TPTHREAD_DESCR;
+  P_PTHREAD_DESCR = ^_PTHREAD_DESCR;
+
+  sched_param = record
+    sched_priority: cint;
+  end;
+  Psched_param = ^sched_param;
+  TSchedParam = sched_param;
+  PSchedParam = ^TSchedParam;
+
+  ppthread_attr_t = ^pthread_attr_t;
+  TThreadAttr = pthread_attr_t;
+  PThreadAttr = ^TThreadAttr;
+
+  p_pthread_fastlock = ^_pthread_fastlock;
+  TPthreadFastlock = _pthread_fastlock;
+  PPthreadFastlock = ^TPthreadFastlock;
+
+  PPTHREAD_MUTEX_T = ^PTHREAD_MUTEX_T;
+  TPthreadMutex = PTHREAD_MUTEX_T;
+  PPthreadMutex = ^TPthreadMutex;
+
+  TMutexAttribute = pthread_mutexattr_t;
+  PMutexAttribute = ^TMutexAttribute;
+  PPTHREAD_MUTEXATTR_T = ^pthread_mutexattr_t;
+
+  TPThreadCleanupRoutine = procedure (_para1:pointer);cdecl;
+
+  PPthreadCleanupBuffer = ^_pthread_cleanup_buffer;
+  p_pthread_cleanup_buffer = ^_pthread_cleanup_buffer;
+  _pthread_cleanup_buffer = {packed} record
+    __routine: TPThreadCleanupRoutine;    { Function to call.  }
+    __arg: Pointer;                       { Its argument.  }
+    __canceltype: cint;                { Saved cancellation type. }
+    __prev: p_pthread_Cleanup_Buffer;        { Chaining of cleanup functions.  }
+  end;
+  TPthreadCleanupBuffer = _pthread_cleanup_buffer;
+
+{ Alread in ptypes, bug 7454
+  pthread_cond_t = record
+    __c_lock: _pthread_fastlock;
+    __c_waiting: _pthread_descr;
+  end;
+}
+  PPthread_cond_t = ^pthread_cond_t;
+  TCondVar = pthread_cond_t;
+  PCondVar = ^TCondVar;
+
+  pthread_condattr_t = record
+    __dummy: cint;
+  end;
+  Ppthread_condattr_t = ^pthread_condattr_t;
+  TPthreadCondattr = pthread_condattr_t;
+  PPthreadCondattr = ^TPthreadCondattr;
+
+  ppthread_key_t = ^pthread_key_t;
+  TPThreadKey = pthread_key_t;
+  PPThreadKey = ^TPThreadKey;
+
+  pthread_once_t = cint;
+  Ppthread_once_t = ^pthread_once_t;
+  TPThreadOnce = pthread_once_t;
+  PPThreadOnce = ^pthread_once_t;
+
+  TSemLock = _pthread_fastlock;
+  PSemLock = ^TSemLock;
+
+  psem_t = ^sem_t;
+  TSemaphore = sem_t;
+  PSemaphore = ^TSemaphore;
+
+  ppthread_rwlock_t = ^pthread_rwlock_t;
+  TPthreadRWlock = pthread_rwlock_t;
+  PPthreadRWlock = ^TPthreadRWlock;
+
+  ppthread_rwlockattr_t = ^pthread_rwlockattr_t;
+  TPthreadRWlockAttribute = pthread_rwlockattr_t;
+  PPthreadRWlockAttribute = ^TPthreadRWlockAttribute;
+
+  pthread_spinlock_t = cint;
+  ppthread_spinlock_t = ^pthread_spinlock_t;
+  TPthreadSpinlock = pthread_spinlock_t;
+  PTPthreadSpinlock = ^TPthreadSpinlock;
+
+  pthread_barrier_t = record
+    __ba_lock: _pthread_fastlock;
+    __ba_required: cint;
+    __ba_present: cint;
+    __ba_waiting: _pthread_descr;
+  end;
+  ppthread_barrier_t = ^pthread_barrier_t;
+  TPthreadBarrier = pthread_barrier_t;
+  PPthreadBarrier = ^TPthreadBarrier;
+
+  pthread_barrierattr_t = record
+    __pshared: cint;
+  end;
+  ppthread_barrierattr_t = ^pthread_barrierattr_t;
+  TPthreadBarrierAttribute = pthread_barrierattr_t;
+  PPthreadBarrierAttribute = ^TPthreadBarrierAttribute;
+
+{ ---------------------------------------------------------------------
+    Raw function prototypes
+  ---------------------------------------------------------------------}
+
+
+  function pthread_create(__thread:Ppthread_t; __attr:Ppthread_attr_t; __start_routine:TStartRoutine; __arg:pointer):cint;cdecl; external libthreads;
+  function pthread_self:pthread_t;cdecl; external libthreads;
+  function pthread_equal(__thread1:pthread_t; __thread2:pthread_t):cint;cdecl; external libthreads;
+  procedure pthread_exit(__retval:pointer);cdecl; external libthreads;
+  function pthread_join(__th:pthread_t; __thread_return:Ppointer):cint;cdecl; external libthreads;
+  function pthread_detach(__th:pthread_t):cint;cdecl; external libthreads;
+  function pthread_attr_init(__attr:Ppthread_attr_t):cint;cdecl; external libthreads;
+  function pthread_attr_destroy(__attr:Ppthread_attr_t):cint;cdecl; external libthreads;
+  function pthread_attr_setdetachstate(__attr:Ppthread_attr_t; __detachstate:cint):cint;cdecl; external libthreads;
+  function pthread_attr_getdetachstate(__attr:Ppthread_attr_t; __detachstate:pcint):cint;cdecl; external libthreads;
+  function pthread_attr_setschedparam(__attr:Ppthread_attr_t; __param:Psched_param):cint;cdecl; external libthreads;
+  function pthread_attr_getschedparam(__attr:Ppthread_attr_t; __param:Psched_param):cint;cdecl; external libthreads;
+  function pthread_attr_setschedpolicy(__attr:Ppthread_attr_t; __policy:cint):cint;cdecl; external libthreads;
+  function pthread_attr_getschedpolicy(__attr:Ppthread_attr_t; __policy:pcint):cint;cdecl; external libthreads;
+  function pthread_attr_setinheritsched(__attr:Ppthread_attr_t; __inherit:cint):cint;cdecl; external libthreads;
+  function pthread_attr_getinheritsched(__attr:Ppthread_attr_t; __inherit:pcint):cint;cdecl; external libthreads;
+  function pthread_attr_setscope(__attr:Ppthread_attr_t; __scope:cint):cint;cdecl; external libthreads;
+  function pthread_attr_getscope(__attr:Ppthread_attr_t; __scope:pcint):cint;cdecl; external libthreads;
+  function pthread_attr_setstackaddr(__attr:Ppthread_attr_t; __stackaddr:pointer):cint;cdecl; external libthreads;
+  function pthread_attr_getstackaddr(__attr:Ppthread_attr_t; __stackaddr:Ppointer):cint;cdecl; external libthreads;
+  function pthread_attr_setstacksize(__attr:Ppthread_attr_t; __stacksize:size_t):cint;cdecl; external libthreads;
+  function pthread_attr_getstacksize(__attr:Ppthread_attr_t; __stacksize:Psize_t):cint;cdecl; external libthreads;
+  function pthread_attr_getguardsize(__attr:Ppthread_attr_t; Guardsize: Psize_t): cint; cdecl;external libthreads;
+  function pthread_attr_setguardsize(__attr:Ppthread_attr_t; Guardsize: Psize_t): cint; cdecl;external libthreads;
+  function pthread_setschedparam(__target_thread:pthread_t; __policy:cint; __param:Psched_param):cint;cdecl; external libthreads;
+  function pthread_getschedparam(__target_thread:pthread_t; __policy:pcint; __param:Psched_param):cint;cdecl; external libthreads;
+  function pthread_getconcurrency: cint; cdecl;external libthreads;
+  function pthread_setconcurrency(Level: cint): cint; cdecl;external libthreads;
+  function pthread_yield(): cint; cdecl;external libthreads;
+  function pthread_mutex_init(__mutex:Ppthread_mutex_t; __mutex_attr:Ppthread_mutexattr_t):cint;cdecl; external libthreads;
+  function pthread_mutex_destroy(__mutex:Ppthread_mutex_t):cint;cdecl; external libthreads;
+  function pthread_mutex_trylock(__mutex:Ppthread_mutex_t):cint;cdecl; external libthreads;
+  function pthread_mutex_lock(__mutex:Ppthread_mutex_t):cint;cdecl; external libthreads;
+  function pthread_mutex_unlock(__mutex:Ppthread_mutex_t):cint;cdecl; external libthreads;
+  function pthread_mutexattr_init(__attr:Ppthread_mutexattr_t):cint;cdecl; external libthreads;
+  function pthread_mutexattr_destroy(__attr:Ppthread_mutexattr_t):cint;cdecl; external libthreads;
+  function pthread_mutexattr_getpshared(__attr:Ppthread_mutexattr_t; __pshared:pcint):cint;cdecl; external libthreads;
+  function pthread_mutexattr_setpshared(__attr:Ppthread_mutexattr_t; __pshared:cint):cint;cdecl; external libthreads;
+  function pthread_mutexattr_settype(__attr: Ppthread_mutexattr_t; Kind: cint): cint; cdecl;external libthreads;
+  function pthread_mutexattr_gettype(__attr: Ppthread_mutexattr_t; var Kind: cint): cint; cdecl;external libthreads;
+  function pthread_cond_init(__cond:Ppthread_cond_t; __cond_attr:Ppthread_condattr_t):cint;cdecl; external libthreads;
+  function pthread_cond_destroy(__cond:Ppthread_cond_t):cint;cdecl; external libthreads;
+  function pthread_cond_signal(__cond:Ppthread_cond_t):cint;cdecl; external libthreads;
+  function pthread_cond_broadcast(__cond:Ppthread_cond_t):cint;cdecl; external libthreads;
+  function pthread_cond_wait(__cond:Ppthread_cond_t; __mutex:Ppthread_mutex_t):cint;cdecl; external libthreads;
+  function pthread_cond_timedwait(__cond:Ppthread_cond_t; __mutex:Ppthread_mutex_t; __abstime:Ptimespec):cint;cdecl; external libthreads;
+  function pthread_condattr_init(__attr:Ppthread_condattr_t):cint;cdecl; external libthreads;
+  function pthread_condattr_destroy(__attr:Ppthread_condattr_t):cint;cdecl; external libthreads;
+  function pthread_condattr_getpshared(__attr:Ppthread_condattr_t; __pshared:pcint):cint;cdecl; external libthreads;
+  function pthread_condattr_setpshared(__attr:Ppthread_condattr_t; __pshared:cint):cint;cdecl; external libthreads;
+  function pthread_rwlock_init(__rwlock:Ppthread_rwlock_t; __attr:Ppthread_rwlockattr_t):cint;cdecl; external libthreads;
+  function pthread_rwlock_destroy(__rwlock:Ppthread_rwlock_t):cint;cdecl;external libthreads;
+  function pthread_rwlock_rdlock(__rwlock:Ppthread_rwlock_t):cint;cdecl;external libthreads;
+  function pthread_rwlock_tryrdlock(__rwlock:Ppthread_rwlock_t):cint;cdecl;external libthreads;
+  function pthread_rwlock_timedrdlock(__rwlock:Ppthread_rwlock_t; __abstime:Ptimespec):cint;cdecl;external libthreads;
+  function pthread_rwlock_wrlock(__rwlock:Ppthread_rwlock_t):cint;cdecl;external libthreads;
+  function pthread_rwlock_trywrlock(__rwlock:Ppthread_rwlock_t):cint;cdecl; external libthreads;
+  function pthread_rwlock_timedwrlock(__rwlock:Ppthread_rwlock_t; __abstime:Ptimespec):cint;cdecl;external libthreads;
+  function pthread_rwlock_unlock(__rwlock:Ppthread_rwlock_t):cint;cdecl;external libthreads;
+  function pthread_rwlockattr_init(__attr:Ppthread_rwlockattr_t):cint;cdecl;external libthreads;
+  function pthread_rwlockattr_destroy(__attr:Ppthread_rwlockattr_t):cint;cdecl;external libthreads;
+  function pthread_rwlockattr_getpshared(__attr:Ppthread_rwlockattr_t; __pshared:pcint):cint;cdecl;external libthreads;
+  function pthread_rwlockattr_setpshared(__attr:Ppthread_rwlockattr_t; __pshared:cint):cint;cdecl;external libthreads;
+  function pthread_rwlockattr_getkind_np(__attr:Ppthread_rwlockattr_t; __pref:pcint):cint;cdecl;external libthreads;
+  function pthread_rwlockattr_setkind_np(__attr:Ppthread_rwlockattr_t; __pref:cint):cint;cdecl;external libthreads;
+  function pthread_spin_init(__lock:Ppthread_spinlock_t; __pshared:cint):cint;cdecl;external libthreads;
+  function pthread_spin_destroy(__lock:Ppthread_spinlock_t):cint;cdecl;external libthreads;
+  function pthread_spin_lock(__lock:Ppthread_spinlock_t):cint;cdecl;external libthreads;
+  function pthread_spin_trylock(__lock:Ppthread_spinlock_t):cint;cdecl;external libthreads;
+  function pthread_spin_unlock(__lock:Ppthread_spinlock_t):cint;cdecl;external libthreads;
+  function pthread_barrier_init(__barrier:Ppthread_barrier_t; __attr:Ppthread_barrierattr_t; __count:dword):cint;cdecl;external libthreads;
+  function pthread_barrier_destroy(__barrier:Ppthread_barrier_t):cint;cdecl;external libthreads;
+  function pthread_barrierattr_init(__attr:Ppthread_barrierattr_t):cint;cdecl;external libthreads;
+  function pthread_barrierattr_destroy(__attr:Ppthread_barrierattr_t):cint;cdecl;external libthreads;
+  function pthread_barrierattr_getpshared(__attr:Ppthread_barrierattr_t; __pshared:pcint):cint;cdecl;external libthreads;
+  function pthread_barrierattr_setpshared(__attr:Ppthread_barrierattr_t; __pshared:cint):cint;cdecl;external libthreads;
+  function pthread_barrier_wait(__barrier:Ppthread_barrier_t):cint;cdecl;external libthreads;
+  function pthread_key_create(__key:Ppthread_key_t; __destr_function :TKeyValueDestructor):cint;cdecl; external libthreads;
+  function pthread_key_delete(__key:pthread_key_t):cint;cdecl; external libthreads;
+  function pthread_setspecific(__key:pthread_key_t; __pointer:pointer):cint;cdecl; external libthreads;
+  function pthread_getspecific(__key:pthread_key_t):pointer;cdecl; external libthreads;
+  function pthread_once(__once_control:Ppthread_once_t; __init_routine:Tprocedure ):cint;cdecl; external libthreads;
+  function pthread_setcancelstate(__state:cint; __oldstate:pcint):cint;cdecl; external libthreads;
+  function pthread_setcanceltype(__type:cint; __oldtype:pcint):cint;cdecl; external libthreads;
+  function pthread_cancel(__thread:pthread_t):cint;cdecl; external libthreads;
+  procedure pthread_testcancel;cdecl; external libthreads;
+  procedure _pthread_cleanup_push(__buffer:P_pthread_cleanup_buffer; __routine:TPthreadCleanupRoutine; __arg:pointer);cdecl; external libthreads;
+  procedure _pthread_cleanup_pop(__buffer:P_pthread_cleanup_buffer; __execute:cint);cdecl; external libthreads;
+  function pthread_atfork(__prepare:TforkHandler ; __parent:TForkHandler ; __child: TForkHandler ):cint;cdecl; external libthreads;
+  procedure pthread_kill_other_threads_np;cdecl; external libthreads;
+  procedure __pthread_initialize; cdecl; external libthreads;
+  function pthread_sigmask(__how:cint; __newmask:P__sigset_t; __oldmask:P__sigset_t):cint;cdecl; external libthreads;
+  function pthread_kill(__thread:pthread_t; __signo:cint):cint;cdecl; external libthreads;
+
+  function sem_init(__sem:Psem_t; __pshared:cint; __value:dword):cint;cdecl;external libthreads;
+  function sem_destroy(__sem:Psem_t):cint;cdecl;external libthreads;
+  function sem_close(__sem:Psem_t):cint;cdecl;external libthreads;
+  function sem_unlink(__name:Pchar):cint;cdecl;external libthreads;
+  function sem_wait(__sem:Psem_t):cint;cdecl;external libthreads;
+  function sem_trywait(__sem:Psem_t):cint;cdecl;external libthreads;
+  function sem_post(__sem:Psem_t):cint;cdecl;external libthreads;
+  function sem_getvalue(__sem:Psem_t; __sval:pcint):cint;cdecl;external libthreads;
+  function sem_timedwait(__sem: Psem_t; __abstime: Ptimespec):cint;cdecl; external libthreads;
+
+{ ---------------------------------------------------------------------
+     Overloaded versions with var args instead of pointers
+  ---------------------------------------------------------------------}
+
+  function pthread_create(var __thread:pthread_t; var __attr: pthread_attr_t; __start_routine:TStartRoutine; __arg:pointer):cint;cdecl; external libthreads;
+  function pthread_join(__th:pthread_t; var __thread_return:pointer):cint;cdecl; external libthreads;
+  function pthread_attr_init(var __attr: pthread_attr_t):cint;cdecl; external libthreads;
+  function pthread_attr_destroy(var __attr: pthread_attr_t):cint;cdecl; external libthreads;
+  function pthread_attr_setdetachstate(var __attr: pthread_attr_t; __detachstate:cint):cint;cdecl; external libthreads;
+  function pthread_attr_getdetachstate(var __attr: pthread_attr_t; var __detachstate:cint):cint;cdecl; external libthreads;
+  function pthread_attr_setschedparam(var __attr: pthread_attr_t; const __param: sched_param):cint;cdecl; external libthreads;
+  function pthread_attr_getschedparam(var __attr: pthread_attr_t; var __param: sched_param):cint;cdecl; external libthreads;
+  function pthread_attr_setschedpolicy(var __attr: pthread_attr_t; __policy:cint):cint;cdecl; external libthreads;
+  function pthread_attr_getschedpolicy(var __attr: pthread_attr_t; var __policy:cint):cint;cdecl; external libthreads;
+  function pthread_attr_setinheritsched(var __attr: pthread_attr_t; __inherit:cint):cint;cdecl; external libthreads;
+  function pthread_attr_getinheritsched(var __attr: pthread_attr_t; var __inherit: cint):cint;cdecl; external libthreads;
+  function pthread_attr_setscope(var __attr: pthread_attr_t; __scope:cint):cint;cdecl; external libthreads;
+  function pthread_attr_getscope(var __attr: pthread_attr_t; var __scope: cint):cint;cdecl; external libthreads;
+  function pthread_attr_setstackaddr(var __attr: pthread_attr_t; __stackaddr:pointer):cint;cdecl; external libthreads;
+  function pthread_attr_getstackaddr(var __attr: pthread_attr_t; var __stackaddr:pointer):cint;cdecl; external libthreads;
+  function pthread_attr_setstacksize(var __attr: pthread_attr_t; __stacksize:size_t):cint;cdecl; external libthreads;
+  function pthread_attr_getstacksize(var __attr: pthread_attr_t; var __stacksize: size_t):cint;cdecl; external libthreads;
+  function pthread_attr_getguardsize(var __attr: pthread_attr_t; var Guardsize: Cardinal): cint; cdecl;external libthreads;
+  function pthread_attr_setguardsize(var __attr: pthread_attr_t; Guardsize: Cardinal): cint; cdecl;external libthreads;
+  function pthread_setschedparam(__target_thread:pthread_t; __policy:cint; const __param: sched_param):cint;cdecl; external libthreads;
+  function pthread_getschedparam(__target_thread:pthread_t; var __policy: cint; var __param: sched_param):cint;cdecl; external libthreads;
+  function pthread_mutex_init(var __mutex: pthread_mutex_t; var __mutex_attr: pthread_mutexattr_t):cint;cdecl; external libthreads;
+  function pthread_mutex_destroy(var __mutex: pthread_mutex_t):cint;cdecl; external libthreads;
+  function pthread_mutex_trylock(var __mutex: pthread_mutex_t):cint;cdecl; external libthreads;
+  function pthread_mutex_lock(var __mutex: pthread_mutex_t):cint;cdecl; external libthreads;
+  function pthread_mutex_unlock(var __mutex: pthread_mutex_t):cint;cdecl; external libthreads;
+  function pthread_mutexattr_init(var __attr: pthread_mutexattr_t):cint;cdecl; external libthreads;
+  function pthread_mutexattr_destroy(var __attr: pthread_mutexattr_t):cint;cdecl; external libthreads;
+  function pthread_mutexattr_getpshared(var __attr: pthread_mutexattr_t; var __pshared: cint):cint;cdecl; external libthreads;
+  function pthread_mutexattr_setpshared(var __attr: pthread_mutexattr_t; __pshared:cint):cint;cdecl; external libthreads;
+  function pthread_mutexattr_settype(var __attr: pthread_mutexattr_t; Kind: cint): cint; cdecl;external libthreads;
+  function pthread_mutexattr_gettype(var __attr: pthread_mutexattr_t; var Kind: cint): cint; cdecl;external libthreads;
+  function pthread_cond_init(var __cond: pthread_cond_t;var __cond_attr: pthread_condattr_t):cint;cdecl; external libthreads;
+  function pthread_cond_destroy(var __cond: pthread_cond_t):cint;cdecl; external libthreads;
+  function pthread_cond_signal(var __cond: pthread_cond_t):cint;cdecl; external libthreads;
+  function pthread_cond_broadcast(var __cond: pthread_cond_t):cint;cdecl; external libthreads;
+  function pthread_cond_wait(var __cond: pthread_cond_t; var __mutex: pthread_mutex_t):cint;cdecl; external libthreads;
+  function pthread_cond_timedwait(var __cond: pthread_cond_t; var __mutex: pthread_mutex_t; var __abstime: timespec):cint;cdecl; external libthreads;
+  function pthread_condattr_init(var __attr: pthread_condattr_t):cint;cdecl; external libthreads;
+  function pthread_condattr_destroy(var __attr: pthread_condattr_t):cint;cdecl; external libthreads;
+  function pthread_condattr_getpshared(var __attr: pthread_condattr_t; var __pshared:cint):cint;cdecl; external libthreads;
+  function pthread_condattr_setpshared(var __attr: pthread_condattr_t; __pshared:cint):cint;cdecl; external libthreads;
+  function pthread_rwlock_init(var __rwlock: pthread_rwlock_t; var __attr: pthread_rwlockattr_t):cint;cdecl; external libthreads;
+  function pthread_rwlock_destroy(var __rwlock: pthread_rwlock_t):cint;cdecl;external libthreads;
+  function pthread_rwlock_rdlock(var __rwlock: pthread_rwlock_t):cint;cdecl;external libthreads;
+  function pthread_rwlock_tryrdlock(var __rwlock: pthread_rwlock_t):cint;cdecl;external libthreads;
+  function pthread_rwlock_timedrdlock(var __rwlock: pthread_rwlock_t; __abstime:Ptimespec):cint;cdecl;external libthreads;
+  function pthread_rwlock_wrlock(var __rwlock: pthread_rwlock_t):cint;cdecl;external libthreads;
+  function pthread_rwlock_trywrlock(var __rwlock: pthread_rwlock_t):cint;cdecl; external libthreads;
+  function pthread_rwlock_timedwrlock(var __rwlock: pthread_rwlock_t; __abstime:Ptimespec):cint;cdecl;external libthreads;
+  function pthread_rwlock_unlock(var __rwlock: pthread_rwlock_t):cint;cdecl;external libthreads;
+  function pthread_rwlockattr_init(var __attr: pthread_rwlockattr_t):cint;cdecl;external libthreads;
+  function pthread_rwlockattr_destroy(var __attr: pthread_rwlockattr_t):cint;cdecl;external libthreads;
+  function pthread_rwlockattr_getpshared(var __attr: pthread_rwlockattr_t; var __pshared: cint):cint;cdecl;external libthreads;
+  function pthread_rwlockattr_setpshared(var __attr: pthread_rwlockattr_t; __pshared:cint):cint;cdecl;external libthreads;
+  function pthread_rwlockattr_getkind_np(var __attr: pthread_rwlockattr_t; var __pref: cint):cint;cdecl;external libthreads;
+  function pthread_rwlockattr_setkind_np(var __attr: pthread_rwlockattr_t; __pref:cint):cint;cdecl;external libthreads;
+  function pthread_spin_init(var __lock: pthread_spinlock_t; __pshared:cint):cint;cdecl;external libthreads;
+  function pthread_spin_destroy(var __lock: pthread_spinlock_t):cint;cdecl;external libthreads;
+  function pthread_spin_lock(var __lock: pthread_spinlock_t):cint;cdecl;external libthreads;
+  function pthread_spin_trylock(var __lock: pthread_spinlock_t):cint;cdecl;external libthreads;
+  function pthread_spin_unlock(var __lock: pthread_spinlock_t):cint;cdecl;external libthreads;
+  function pthread_barrier_init(var __barrier: pthread_barrier_t;var __attr: pthread_barrierattr_t; __count:dword):cint;cdecl;external libthreads;
+  function pthread_barrier_destroy(var __barrier: pthread_barrier_t):cint;cdecl;external libthreads;
+  function pthread_barrierattr_init(var __attr: pthread_barrierattr_t):cint;cdecl;external libthreads;
+  function pthread_barrierattr_destroy(var __attr: pthread_barrierattr_t):cint;cdecl;external libthreads;
+  function pthread_barrierattr_getpshared(var __attr: pthread_barrierattr_t; var __pshared:cint):cint;cdecl;external libthreads;
+  function pthread_barrierattr_setpshared(var __attr: pthread_barrierattr_t; __pshared:cint):cint;cdecl;external libthreads;
+  function pthread_barrier_wait(var __barrier: pthread_barrier_t):cint;cdecl;external libthreads;
+  function pthread_key_create(var __key: pthread_key_t; __destr_function :TKeyValueDestructor):cint;cdecl; external libthreads;
+  function pthread_once(var __once_control: pthread_once_t; __init_routine:Tprocedure ):cint;cdecl; external libthreads;
+  function pthread_setcancelstate(__state:cint; var __oldstate:cint):cint;cdecl; external libthreads;
+  function pthread_setcanceltype(__type:cint;var __oldtype:cint):cint;cdecl; external libthreads;
+
+  procedure _pthread_cleanup_push(var __buffer: _pthread_cleanup_buffer; __routine:TPthreadCleanupRoutine; __arg:pointer);cdecl; external libthreads;
+  procedure _pthread_cleanup_pop(var __buffer:_pthread_cleanup_buffer; __execute:cint);cdecl; external libthreads;
+  function pthread_sigmask(__how:cint; var __newmask:__sigset_t; var __oldmask:__sigset_t):cint;cdecl; external libthreads;
+
+  function sem_init(var __sem: sem_t; __pshared:cint; __value:dword):cint;cdecl;external libthreads;
+  function sem_destroy(var __sem: sem_t):cint;cdecl;external libthreads;
+  function sem_close(var __sem: sem_t):cint;cdecl;external libthreads;
+  function sem_wait(var __sem: sem_t):cint;cdecl;external libthreads;
+  function sem_timedwait(var __sem: sem_t; var __abstime: timespec):cint;cdecl; external libthreads;
+  function sem_trywait(var __sem: sem_t):cint;cdecl;external libthreads;
+  function sem_post(var __sem: sem_t):cint;cdecl;external libthreads;
+  function sem_getvalue(var __sem: sem_t; var __sval:cint):cint;cdecl;external libthreads;
+
+
diff --git a/packages/pthreads/src/pthrsnos.inc b/packages/pthreads/src/pthrsnos.inc
new file mode 100644
index 0000000000..7eb74ca949
--- /dev/null
+++ b/packages/pthreads/src/pthrsnos.inc
@@ -0,0 +1,359 @@
+{
+  Automatically converted by H2Pas 1.0.0 from pthread.h
+  The following command line parameters were used:
+    pthread.h
+    -D
+    -c
+    -s
+}
+
+type
+  { from sem.h }
+  sem_t       = cint;
+  psem_t          = ^sem_t;
+  TSemaphore  = sem_t;
+  PSemaphore  = ^TSemaphore;
+  
+const
+  External_library='c'; {Setup as you need}
+
+Type
+    ppthread_t           = ^pthread_t;
+    ppthread_key_t       = ^pthread_key_t;
+    ppthread_mutex_t     = ^pthread_mutex_t;
+    ppthread_attr_t      = ^pthread_attr_t;
+    __destr_func_t       = procedure (p :pointer);cdecl;
+    __startroutine_t     = function (p :pointer):pointer;cdecl;
+    ppthread_mutexattr_t = ^pthread_mutexattr_t;
+    ppthread_cond_t      = ^pthread_cond_t;
+    ppthread_condattr_t  = ^pthread_condattr_t;
+
+    {already in unixtype
+    pthread_t = culong
+    } 	    
+  
+    sched_param = record
+      __sched_priority: cint;
+    end;
+  
+    pthread_attr_t = record
+      __pthread_attrp : pointer;
+    end;
+
+{ already in unixtype  
+    pthread_mutex_t = record
+      __pthread_mutex_flags : record
+           __pthread_mutex_flag1 : word;
+           __pthread_mutex_flag2 : byte;
+           __pthread_mutex_ceiling : byte;
+           __pthread_mutex_type : word;
+           __pthread_mutex_magic : word;
+        end;
+
+      __pthread_mutex_lock : record
+          case longint of
+             0 : ( __pthread_mutex_lock64 : record
+                  __pthread_mutex_pad : array[0..7] of byte;
+               end );
+             1 : ( __pthread_mutex_lock32 : record
+                  __pthread_ownerpid : dword;
+                  __pthread_lockword : dword;
+               end );
+             2 : ( __pthread_mutex_owner64 : qword );
+          end;
+      __pthread_mutex_data : qword;
+    end;
+}  
+    pthread_spinlock_t = pthread_mutex_t;
+  
+{ already in unix type
+    pthread_mutexattr_t = record
+      __pthread_mutexattrp : pointer;
+    end;
+}
+  
+{ already in unix type
+    pthread_cond_t = record
+      __pthread_cond_flags : record
+        __pthread_cond_flag : array[0..3] of byte;
+        __pthread_cond_type : uint16_t;
+        __pthread_cond_magic : uint16_t;
+      end;
+      __pthread_cond_data : upad64_t;
+    end;
+
+  
+    pthread_condattr_t = record
+      __pthread_condattrp : pointer;
+    end;
+  
+    pthread_key_t = cuint;
+  
+    pthread_rwlock_t = record
+      __pthread_rwlock_readers : int32_t;
+      __pthread_rwlock_type : uint16_t;
+      __pthread_rwlock_magic : uint16_t;
+      __pthread_rwlock_mutex : pthread_mutex_t;
+      __pthread_rwlock_readercv : pthread_cond_t;
+      __pthread_rwlock_writercv : pthread_cond_t;
+    end;
+}  
+    pthread_rwlockattr_t = record
+      __pthread_rwlockattrp : pointer;
+    end;
+  
+    _once = record
+       __pthread_once_pad : array[0..3] of upad64_t;
+    end;
+    pthread_once_t = _once;
+  
+    pthread_barrier_t = record
+       __pthread_barrier_count : uint32_t;
+       __pthread_barrier_current : uint32_t;
+       __pthread_barrier_cycle : upad64_t;
+       __pthread_barrier_reserved : upad64_t;
+       __pthread_barrier_lock : pthread_mutex_t;
+       __pthread_barrier_cond : pthread_cond_t;
+    end;
+  
+    pthread_barrierattr_t = record
+       __pthread_barrierattrp : pointer;
+    end;
+    
+  P_cleanup_t  = ^_cleanup_t;
+  Pclockid_t  = ^clockid_t;
+  Plongint  = ^longint;
+  Ppthread_barrier_t  = ^pthread_barrier_t;
+  Ppthread_barrierattr_t  = ^pthread_barrierattr_t;
+  
+    
+  Ppthread_once_t  = ^pthread_once_t;
+  Ppthread_rwlock_t  = ^pthread_rwlock_t;
+  Ppthread_rwlockattr_t  = ^pthread_rwlockattr_t;
+  Ppthread_spinlock_t  = ^pthread_spinlock_t;
+  Psched_param  = ^sched_param;
+  Psize_t  = ^size_t;
+  Ptimespec  = ^timespec;
+
+   _cleanup = record
+        pthread_cleanup_pad : array[0..3] of uintptr_t;
+     end;
+   _cleanup_t = _cleanup;
+
+const
+   PTHREAD_CREATE_DETACHED = $40;   
+   PTHREAD_CREATE_JOINABLE = 0;   
+
+
+   PTHREAD_SCOPE_SYSTEM = $01;   
+   PTHREAD_SCOPE_PROCESS = 0;   
+
+
+   PTHREAD_INHERIT_SCHED = 1;   
+   PTHREAD_EXPLICIT_SCHED = 0;   
+
+
+   PTHREAD_PROCESS_SHARED = 1;   
+
+   PTHREAD_PROCESS_PRIVATE = 0;   
+   _DEFAULT_TYPE = PTHREAD_PROCESS_PRIVATE;   
+
+const
+   DEFAULT_TYPE = _DEFAULT_TYPE;   
+
+
+const
+  PTHREAD_MUTEX_NORMAL = $0;   
+  PTHREAD_MUTEX_ERRORCHECK = $2;   
+  PTHREAD_MUTEX_RECURSIVE = $4;   
+  PTHREAD_MUTEX_DEFAULT = PTHREAD_MUTEX_NORMAL;   
+  
+  PTHREAD_PRIO_NONE = $0;   
+  PTHREAD_PRIO_INHERIT = $10;   
+  PTHREAD_PRIO_PROTECT = $20;   
+  
+  PTHREAD_MUTEX_STALL_NP = $0;   
+  PTHREAD_MUTEX_ROBUST_NP = $40;   
+  
+  
+  PTHREAD_CANCEL_ENABLE = $00;   
+  PTHREAD_CANCEL_DISABLE = $01;   
+  PTHREAD_CANCEL_DEFERRED = $00;   
+  PTHREAD_CANCEL_ASYNCHRONOUS = $02;   
+  PTHREAD_CANCELED = pointer(-(19));
+
+  PTHREAD_ONCE_NOTDONE = 0;   
+  PTHREAD_ONCE_DONE = 1;   
+  
+  PTHREAD_BARRIER_SERIAL_THREAD = -(2);   
+
+type
+   _Voidfp = procedure (_para1:pointer);cdecl;
+  _fp = procedure;cdecl;
+  P_Voidfp = ^_Voidfp;
+
+
+procedure __pthread_cleanup_push(_para1:_Voidfp; _para2:pointer; _para3:caddr_t; _para4:P_cleanup_t);cdecl;external External_library name '__pthread_cleanup_push';
+procedure __pthread_cleanup_pop(_para1:longint; _para2:P_cleanup_t);cdecl;external External_library name '__pthread_cleanup_pop';
+function _getfp:caddr_t;cdecl;external External_library name '_getfp';
+
+function pthread_atfork(_para1:_fp ; _para2:_fp ; _para3:_fp ):longint;cdecl;external External_library name 'pthread_atfork';
+function pthread_attr_init(_para1:Ppthread_attr_t):longint;cdecl;external External_library name 'pthread_attr_init';
+function pthread_attr_destroy(_para1:Ppthread_attr_t):longint;cdecl;external External_library name 'pthread_attr_destroy';
+function pthread_attr_setstack(_para1:Ppthread_attr_t; _para2:pointer; _para3:size_t):longint;cdecl;external External_library name 'pthread_attr_setstack';
+(* Const before type ignored *)
+function pthread_attr_getstack(_RESTRICT_KYWD1:Ppthread_attr_t; _RESTRICT_KYWD2:Ppointer; _RESTRICT_KYWD3:Psize_t):longint;cdecl;external External_library name 'pthread_attr_getstack';
+function pthread_attr_setstacksize(_para1:Ppthread_attr_t; _para2:size_t):longint;cdecl;external External_library name 'pthread_attr_setstacksize';
+(* Const before type ignored *)
+function pthread_attr_getstacksize(_RESTRICT_KYWD1:Ppthread_attr_t; _RESTRICT_KYWD2:Psize_t):longint;cdecl;external External_library name 'pthread_attr_getstacksize';
+function pthread_attr_setstackaddr(_para1:Ppthread_attr_t; _para2:pointer):longint;cdecl;external External_library name 'pthread_attr_setstackaddr';
+(* Const before type ignored *)
+function pthread_attr_getstackaddr(_RESTRICT_KYWD1:Ppthread_attr_t; _RESTRICT_KYWD2:Ppointer):longint;cdecl;external External_library name 'pthread_attr_getstackaddr';
+function pthread_attr_setdetachstate(_para1:Ppthread_attr_t; _para2:longint):longint;cdecl;external External_library name 'pthread_attr_setdetachstate';
+(* Const before type ignored *)
+function pthread_attr_getdetachstate(_para1:Ppthread_attr_t; _para2:Plongint):longint;cdecl;external External_library name 'pthread_attr_getdetachstate';
+function pthread_attr_setscope(_para1:Ppthread_attr_t; _para2:longint):longint;cdecl;external External_library name 'pthread_attr_setscope';
+(* Const before type ignored *)
+function pthread_attr_getscope(_RESTRICT_KYWD1:Ppthread_attr_t; _RESTRICT_KYWD2:Plongint):longint;cdecl;external External_library name 'pthread_attr_getscope';
+function pthread_attr_setinheritsched(_para1:Ppthread_attr_t; _para2:longint):longint;cdecl;external External_library name 'pthread_attr_setinheritsched';
+(* Const before type ignored *)
+function pthread_attr_getinheritsched(_RESTRICT_KYWD1:Ppthread_attr_t; _RESTRICT_KYWD2:Plongint):longint;cdecl;external External_library name 'pthread_attr_getinheritsched';
+function pthread_attr_setschedpolicy(_para1:Ppthread_attr_t; _para2:longint):longint;cdecl;external External_library name 'pthread_attr_setschedpolicy';
+(* Const before type ignored *)
+function pthread_attr_getschedpolicy(_RESTRICT_KYWD1:Ppthread_attr_t; _RESTRICT_KYWD2:Plongint):longint;cdecl;external External_library name 'pthread_attr_getschedpolicy';
+(* Const before type ignored *)
+function pthread_attr_setschedparam(_RESTRICT_KYWD1:Ppthread_attr_t; _RESTRICT_KYWD2:Psched_param):longint;cdecl;external External_library name 'pthread_attr_setschedparam';
+(* Const before type ignored *)
+function pthread_attr_getschedparam(_RESTRICT_KYWD1:Ppthread_attr_t; _RESTRICT_KYWD2:Psched_param):longint;cdecl;external External_library name 'pthread_attr_getschedparam';
+(* Const before type ignored *)
+function pthread_create(_RESTRICT_KYWD1:Ppthread_t; _RESTRICT_KYWD2:Ppthread_attr_t; _para3:P_Voidfp ; _RESTRICT_KYWD3:pointer):longint;cdecl;external External_library name 'pthread_create';
+function pthread_once(_para1:Ppthread_once_t; _para2:_fp ):longint;cdecl;external External_library name 'pthread_once';
+function pthread_join(_para1:pthread_t; _para2:Ppointer):longint;cdecl;external External_library name 'pthread_join';
+function pthread_detach(_para1:pthread_t):longint;cdecl;external External_library name 'pthread_detach';
+procedure pthread_exit(_para1:pointer);cdecl;external External_library name 'pthread_exit';
+function pthread_cancel(_para1:pthread_t):longint;cdecl;external External_library name 'pthread_cancel';
+(* Const before type ignored *)
+function pthread_setschedparam(_para1:pthread_t; _para2:longint; _para3:Psched_param):longint;cdecl;external External_library name 'pthread_setschedparam';
+function pthread_getschedparam(_para1:pthread_t; _RESTRICT_KYWD1:Plongint; _RESTRICT_KYWD2:Psched_param):longint;cdecl;external External_library name 'pthread_getschedparam';
+function pthread_setschedprio(_para1:pthread_t; _para2:longint):longint;cdecl;external External_library name 'pthread_setschedprio';
+function pthread_setcancelstate(_para1:longint; _para2:Plongint):longint;cdecl;external External_library name 'pthread_setcancelstate';
+function pthread_setcanceltype(_para1:longint; _para2:Plongint):longint;cdecl;external External_library name 'pthread_setcanceltype';
+procedure pthread_testcancel;cdecl;external External_library name 'pthread_testcancel';
+function pthread_equal(_para1:pthread_t; _para2:pthread_t):longint;cdecl;external External_library name 'pthread_equal';
+function pthread_key_create(_para1:Ppthread_key_t; _para2:_Voidfp):longint;cdecl;external External_library name 'pthread_key_create';
+function pthread_key_delete(_para1:pthread_key_t):longint;cdecl;external External_library name 'pthread_key_delete';
+(* Const before type ignored *)
+function pthread_setspecific(_para1:pthread_key_t; _para2:pointer):longint;cdecl;external External_library name 'pthread_setspecific';
+function pthread_getspecific(_para1:pthread_key_t):pointer;cdecl;external External_library name 'pthread_getspecific';
+function pthread_self:pthread_t;cdecl;external External_library name 'pthread_self';
+
+function pthread_mutexattr_init(_para1:Ppthread_mutexattr_t):longint;cdecl;external External_library name 'pthread_mutexattr_init';
+function pthread_mutexattr_destroy(_para1:Ppthread_mutexattr_t):longint;cdecl;external External_library name 'pthread_mutexattr_destroy';
+function pthread_mutexattr_setpshared(_para1:Ppthread_mutexattr_t; _para2:longint):longint;cdecl;external External_library name 'pthread_mutexattr_setpshared';
+(* Const before type ignored *)
+function pthread_mutexattr_getpshared(_RESTRICT_KYWD1:Ppthread_mutexattr_t; _RESTRICT_KYWD2:Plongint):longint;cdecl;external External_library name 'pthread_mutexattr_getpshared';
+function pthread_mutexattr_setprotocol(_para1:Ppthread_mutexattr_t; _para2:longint):longint;cdecl;external External_library name 'pthread_mutexattr_setprotocol';
+(* Const before type ignored *)
+function pthread_mutexattr_getprotocol(_RESTRICT_KYWD1:Ppthread_mutexattr_t; _RESTRICT_KYWD2:Plongint):longint;cdecl;external External_library name 'pthread_mutexattr_getprotocol';
+function pthread_mutexattr_setprioceiling(_para1:Ppthread_mutexattr_t; _para2:longint):longint;cdecl;external External_library name 'pthread_mutexattr_setprioceiling';
+(* Const before type ignored *)
+function pthread_mutexattr_getprioceiling(_RESTRICT_KYWD1:Ppthread_mutexattr_t; _RESTRICT_KYWD2:Plongint):longint;cdecl;external External_library name 'pthread_mutexattr_getprioceiling';
+function pthread_mutexattr_setrobust_np(_para1:Ppthread_mutexattr_t; _para2:longint):longint;cdecl;external External_library name 'pthread_mutexattr_setrobust_np';
+(* Const before type ignored *)
+function pthread_mutexattr_getrobust_np(_RESTRICT_KYWD1:Ppthread_mutexattr_t; _RESTRICT_KYWD2:Plongint):longint;cdecl;external External_library name 'pthread_mutexattr_getrobust_np';
+(* Const before type ignored *)
+function pthread_mutex_init(_RESTRICT_KYWD1:Ppthread_mutex_t; _RESTRICT_KYWD2:Ppthread_mutexattr_t):longint;cdecl;external External_library name 'pthread_mutex_init';
+function pthread_mutex_consistent_np(_para1:Ppthread_mutex_t):longint;cdecl;external External_library name 'pthread_mutex_consistent_np';
+function pthread_mutex_destroy(_para1:Ppthread_mutex_t):longint;cdecl;external External_library name 'pthread_mutex_destroy';
+function pthread_mutex_lock(_para1:Ppthread_mutex_t):longint;cdecl;external External_library name 'pthread_mutex_lock';
+(* Const before type ignored *)
+function pthread_mutex_timedlock(_RESTRICT_KYWD1:Ppthread_mutex_t; _RESTRICT_KYWD2:Ptimespec):longint;cdecl;external External_library name 'pthread_mutex_timedlock';
+(* Const before type ignored *)
+function pthread_mutex_reltimedlock_np(_RESTRICT_KYWD1:Ppthread_mutex_t; _RESTRICT_KYWD2:Ptimespec):longint;cdecl;external External_library name 'pthread_mutex_reltimedlock_np';
+function pthread_mutex_unlock(_para1:Ppthread_mutex_t):longint;cdecl;external External_library name 'pthread_mutex_unlock';
+function pthread_mutex_trylock(_para1:Ppthread_mutex_t):longint;cdecl;external External_library name 'pthread_mutex_trylock';
+function pthread_mutex_setprioceiling(_RESTRICT_KYWD1:Ppthread_mutex_t; _para2:longint; _RESTRICT_KYWD2:Plongint):longint;cdecl;external External_library name 'pthread_mutex_setprioceiling';
+(* Const before type ignored *)
+function pthread_mutex_getprioceiling(_RESTRICT_KYWD1:Ppthread_mutex_t; _RESTRICT_KYWD2:Plongint):longint;cdecl;external External_library name 'pthread_mutex_getprioceiling';
+function pthread_condattr_init(_para1:Ppthread_condattr_t):longint;cdecl;external External_library name 'pthread_condattr_init';
+function pthread_condattr_destroy(_para1:Ppthread_condattr_t):longint;cdecl;external External_library name 'pthread_condattr_destroy';
+function pthread_condattr_setclock(_para1:Ppthread_condattr_t; _para2:clockid_t):longint;cdecl;external External_library name 'pthread_condattr_setclock';
+(* Const before type ignored *)
+function pthread_condattr_getclock(_RESTRICT_KYWD1:Ppthread_condattr_t; _RESTRICT_KYWD2:Pclockid_t):longint;cdecl;external External_library name 'pthread_condattr_getclock';
+function pthread_condattr_setpshared(_para1:Ppthread_condattr_t; _para2:longint):longint;cdecl;external External_library name 'pthread_condattr_setpshared';
+(* Const before type ignored *)
+function pthread_condattr_getpshared(_RESTRICT_KYWD1:Ppthread_condattr_t; _RESTRICT_KYWD2:Plongint):longint;cdecl;external External_library name 'pthread_condattr_getpshared';
+(* Const before type ignored *)
+function pthread_cond_init(_RESTRICT_KYWD1:Ppthread_cond_t; _RESTRICT_KYWD2:Ppthread_condattr_t):longint;cdecl;external External_library name 'pthread_cond_init';
+function pthread_cond_destroy(_para1:Ppthread_cond_t):longint;cdecl;external External_library name 'pthread_cond_destroy';
+function pthread_cond_broadcast(_para1:Ppthread_cond_t):longint;cdecl;external External_library name 'pthread_cond_broadcast';
+function pthread_cond_signal(_para1:Ppthread_cond_t):longint;cdecl;external External_library name 'pthread_cond_signal';
+function pthread_cond_wait(_RESTRICT_KYWD1:Ppthread_cond_t; _RESTRICT_KYWD2:Ppthread_mutex_t):longint;cdecl;external External_library name 'pthread_cond_wait';
+(* Const before type ignored *)
+function pthread_cond_timedwait(_RESTRICT_KYWD1:Ppthread_cond_t; _RESTRICT_KYWD2:Ppthread_mutex_t; _RESTRICT_KYWD3:Ptimespec):longint;cdecl;external External_library name 'pthread_cond_timedwait';
+(* Const before type ignored *)
+function pthread_cond_reltimedwait_np(_RESTRICT_KYWD1:Ppthread_cond_t; _RESTRICT_KYWD2:Ppthread_mutex_t; _RESTRICT_KYWD3:Ptimespec):longint;cdecl;external External_library name 'pthread_cond_reltimedwait_np';
+(* Const before type ignored *)
+function pthread_attr_getguardsize(_RESTRICT_KYWD1:Ppthread_attr_t; _RESTRICT_KYWD2:Psize_t):longint;cdecl;external External_library name 'pthread_attr_getguardsize';
+function pthread_attr_setguardsize(_para1:Ppthread_attr_t; _para2:size_t):longint;cdecl;external External_library name 'pthread_attr_setguardsize';
+function pthread_getconcurrency:longint;cdecl;external External_library name 'pthread_getconcurrency';
+function pthread_setconcurrency(_para1:longint):longint;cdecl;external External_library name 'pthread_setconcurrency';
+function pthread_mutexattr_settype(_para1:Ppthread_mutexattr_t; _para2:longint):longint;cdecl;external External_library name 'pthread_mutexattr_settype';
+(* Const before type ignored *)
+function pthread_mutexattr_gettype(_RESTRICT_KYWD1:Ppthread_mutexattr_t; _RESTRICT_KYWD2:Plongint):longint;cdecl;external External_library name 'pthread_mutexattr_gettype';
+(* Const before type ignored *)
+function pthread_rwlock_init(_RESTRICT_KYWD1:Ppthread_rwlock_t; _RESTRICT_KYWD2:Ppthread_rwlockattr_t):longint;cdecl;external External_library name 'pthread_rwlock_init';
+function pthread_rwlock_destroy(_para1:Ppthread_rwlock_t):longint;cdecl;external External_library name 'pthread_rwlock_destroy';
+function pthread_rwlock_rdlock(_para1:Ppthread_rwlock_t):longint;cdecl;external External_library name 'pthread_rwlock_rdlock';
+(* Const before type ignored *)
+function pthread_rwlock_timedrdlock(_RESTRICT_KYWD1:Ppthread_rwlock_t; _RESTRICT_KYWD2:Ptimespec):longint;cdecl;external External_library name 'pthread_rwlock_timedrdlock';
+(* Const before type ignored *)
+function pthread_rwlock_reltimedrdlock_np(_RESTRICT_KYWD1:Ppthread_rwlock_t; _RESTRICT_KYWD2:Ptimespec):longint;cdecl;external External_library name 'pthread_rwlock_reltimedrdlock_np';
+function pthread_rwlock_tryrdlock(_para1:Ppthread_rwlock_t):longint;cdecl;external External_library name 'pthread_rwlock_tryrdlock';
+function pthread_rwlock_wrlock(_para1:Ppthread_rwlock_t):longint;cdecl;external External_library name 'pthread_rwlock_wrlock';
+(* Const before type ignored *)
+function pthread_rwlock_timedwrlock(_RESTRICT_KYWD1:Ppthread_rwlock_t; _RESTRICT_KYWD2:Ptimespec):longint;cdecl;external External_library name 'pthread_rwlock_timedwrlock';
+(* Const before type ignored *)
+function pthread_rwlock_reltimedwrlock_np(_RESTRICT_KYWD1:Ppthread_rwlock_t; _RESTRICT_KYWD2:Ptimespec):longint;cdecl;external External_library name 'pthread_rwlock_reltimedwrlock_np';
+function pthread_rwlock_trywrlock(_para1:Ppthread_rwlock_t):longint;cdecl;external External_library name 'pthread_rwlock_trywrlock';
+function pthread_rwlock_unlock(_para1:Ppthread_rwlock_t):longint;cdecl;external External_library name 'pthread_rwlock_unlock';
+function pthread_rwlockattr_init(_para1:Ppthread_rwlockattr_t):longint;cdecl;external External_library name 'pthread_rwlockattr_init';
+function pthread_rwlockattr_destroy(_para1:Ppthread_rwlockattr_t):longint;cdecl;external External_library name 'pthread_rwlockattr_destroy';
+(* Const before type ignored *)
+function pthread_rwlockattr_getpshared(_RESTRICT_KYWD1:Ppthread_rwlockattr_t; _RESTRICT_KYWD2:Plongint):longint;cdecl;external External_library name 'pthread_rwlockattr_getpshared';
+function pthread_rwlockattr_setpshared(_para1:Ppthread_rwlockattr_t; _para2:longint):longint;cdecl;external External_library name 'pthread_rwlockattr_setpshared';
+function pthread_spin_init(_para1:Ppthread_spinlock_t; _para2:longint):longint;cdecl;external External_library name 'pthread_spin_init';
+function pthread_spin_destroy(_para1:Ppthread_spinlock_t):longint;cdecl;external External_library name 'pthread_spin_destroy';
+function pthread_spin_lock(_para1:Ppthread_spinlock_t):longint;cdecl;external External_library name 'pthread_spin_lock';
+function pthread_spin_trylock(_para1:Ppthread_spinlock_t):longint;cdecl;external External_library name 'pthread_spin_trylock';
+function pthread_spin_unlock(_para1:Ppthread_spinlock_t):longint;cdecl;external External_library name 'pthread_spin_unlock';
+function pthread_barrierattr_init(_para1:Ppthread_barrierattr_t):longint;cdecl;external External_library name 'pthread_barrierattr_init';
+function pthread_barrierattr_destroy(_para1:Ppthread_barrierattr_t):longint;cdecl;external External_library name 'pthread_barrierattr_destroy';
+function pthread_barrierattr_setpshared(_para1:Ppthread_barrierattr_t; _para2:longint):longint;cdecl;external External_library name 'pthread_barrierattr_setpshared';
+(* Const before type ignored *)
+function pthread_barrierattr_getpshared(_RESTRICT_KYWD1:Ppthread_barrierattr_t; _RESTRICT_KYWD2:Plongint):longint;cdecl;external External_library name 'pthread_barrierattr_getpshared';
+(* Const before type ignored *)
+function pthread_barrier_init(_RESTRICT_KYWD1:Ppthread_barrier_t; _RESTRICT_KYWD2:Ppthread_barrierattr_t; _para3:uint_t):longint;cdecl;external External_library name 'pthread_barrier_init';
+function pthread_barrier_destroy(_para1:Ppthread_barrier_t):longint;cdecl;external External_library name 'pthread_barrier_destroy';
+function pthread_barrier_wait(_para1:Ppthread_barrier_t):longint;cdecl;external External_library name 'pthread_barrier_wait';
+
+function sem_init(__sem:Psem_t; __pshared:cint;__value:cuint):cint;cdecl; external 'c' name 'sem_init';
+function sem_destroy(__sem:Psem_t):cint;cdecl;external 'c' name 'sem_destroy';
+function sem_close(__sem:Psem_t):cint;cdecl;external 'c'  name 'sem_close';
+function sem_unlink(__name:Pchar):cint;cdecl;external 'c' name 'sem_unlink';
+function sem_wait(__sem:Psem_t):cint;cdecl;external 'c'  name 'sem_wait';
+function sem_trywait(__sem:Psem_t):cint;cdecl;external 'c'  name 'sem_trywait';
+function sem_post(__sem:Psem_t):cint;cdecl;external 'c'  name 'sem_post';
+function sem_getvalue(__sem:Psem_t; __sval:Pcint):cint;cdecl;external 'c'  name 'sem_getvalue';
+
+type
+  { redefinitions }
+  TThreadAttr = pthread_attr_t;
+  PThreadAttr = ^TThreadAttr;
+
+  TMutexAttribute = pthread_mutexattr_t;
+  PMutexAttribute = ^TMutexAttribute;
+
+  TPthreadMutex = pthread_mutex_t;
+  PPthreadMutex = ^TPthreadMutex;
+