* Forgotten in commit 36662

git-svn-id: trunk@36683 -

.gitattributes

@@ -7045,6 +7045,7 @@ packages/pthreads/Makefile.fpc svneol=native#text/plain
 packages/pthreads/Makefile.fpc.fpcmake svneol=native#text/plain
 packages/pthreads/fpmake.pp svneol=native#text/plain
 packages/pthreads/src/pthraix.inc svneol=native#text/plain
+packages/pthreads/src/pthrandroid.inc svneol=native#text/plain
 packages/pthreads/src/pthrbeos.inc svneol=native#text/plain
 packages/pthreads/src/pthrbsd.inc svneol=native#text/plain
 packages/pthreads/src/pthreads.pp svneol=native#text/plain

packages/pthreads/src/pthrandroid.inc

@@ -0,0 +1,314 @@
+{
+   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.
+
+   Small modifications for Android, Copyright (c) 2017 by
+   Benjamin Rosseaux
+ 
+   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 = 'c';
+
+  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): Pointer; 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;
+