From 6e3c6319c2835a152e20ebf5fba36023fbf798c7 Mon Sep 17 00:00:00 2001 From: pierre Date: Mon, 10 Oct 2011 22:19:11 +0000 Subject: [PATCH] * New file for cthreads unit support git-svn-id: trunk@19452 - --- .gitattributes | 1 + rtl/openbsd/pthread.inc | 122 ++++++++++++++++++++++++++++++++++++++++ 2 files changed, 123 insertions(+) create mode 100644 rtl/openbsd/pthread.inc diff --git a/.gitattributes b/.gitattributes index d61e4d789b..fd0780b6e7 100644 --- a/.gitattributes +++ b/.gitattributes @@ -7843,6 +7843,7 @@ rtl/openbsd/i386/prt0.as svneol=native#text/plain rtl/openbsd/i386/sighnd.inc svneol=native#text/plain rtl/openbsd/osdefs.inc svneol=native#text/plain rtl/openbsd/pmutext.inc svneol=native#text/plain +rtl/openbsd/pthread.inc -text svneol=unset#test/plain rtl/openbsd/ptypes.inc svneol=native#text/plain rtl/openbsd/signal.inc svneol=native#text/plain rtl/openbsd/syscalls.inc svneol=native#text/plain diff --git a/rtl/openbsd/pthread.inc b/rtl/openbsd/pthread.inc new file mode 100644 index 0000000000..3f97168d67 --- /dev/null +++ b/rtl/openbsd/pthread.inc @@ -0,0 +1,122 @@ +{ + This file is part of the Free Pascal run time library. + Copyright (c) 1999-2000 by Peter Vreman + member of the Free Pascal development team. + + See the file COPYING.FPC, included in this distribution, + for details about the copyright. + + This file contains a pthread.h headerconversion, + and should contain an interface to the threading library to be + used by systhrd, preferably in a somewhat compatible notation + (compared to the other OSes). + + As a start, I simply used libc_r + + 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. + + **********************************************************************} + +CONST PTHREAD_EXPLICIT_SCHED = 0; + PTHREAD_CREATE_DETACHED = 1; + PTHREAD_SCOPE_PROCESS = 0; + SEM_SAFE = 255; + + TYPE + ppthread_t = ^pthread_t; + ppthread_key_t = ^pthread_key_t; + ppthread_mutex_t= ^pthread_mutex_t; + ppthread_attr_t = ^pthread_attr_t; + ppthread_cond_t = ^pthread_cond_t; + ppthread_condattr_t = ^pthread_condattr_t; + + __destr_func_t = procedure (p :pointer);cdecl; + __startroutine_t= function (p :pointer):pointer;cdecl; + ppthread_mutexattr_t = ^pthread_mutexattr_t; + ppthread_mutex_attr_t = ^pthread_mutexattr_t; + +{ + From FreeBSD 8.2 sys/_semaphore.h + In OpenBSDD the structures are defined in + /usr/src/lib/libpthread/uthread/pthread_private.h +} + +(* +struct sem { +#define SEM_MAGIC ((u_int32_t) 0x09fa4012) + u_int32_t magic; + pthread_mutex_t lock; + pthread_cond_t gtzero; + u_int32_t count; + u_int32_t nwaiters; +#define SEM_USER (NULL) + semid_t semid; /* semaphore id if kernel (shared) semaphore */ + int syssem; /* 1 if kernel (shared) semaphore */ + LIST_ENTRY(sem) entry; + struct sem **backpointer; +}; *) + semid_t = pointer; + psem_t = ^sem_t; + ppsem_t = ^psem_t; + sem_t = record + magic : cuint32; + lock : pthread_mutex_t; + gtzero : pthread_cond_t; + count : cuint32; + nwaiters: cuint32; + { semid : semid_t; + sysse : cint; + entry : psem_t; + backpointer : ppsem_t; Those are not in pthread_private } + spare : array[0..SEM_SAFE] of char; + + end; + + TSemaphore = sem_t; + PSemaphore = ^TSemaphore; + +function pthread_getspecific (t : pthread_key_t):pointer; cdecl; external; +function pthread_setspecific (t : pthread_key_t;p:pointer):cint; cdecl; external; +function pthread_key_create (p : ppthread_key_t;f: __destr_func_t):cint; cdecl;external; +function pthread_attr_init (p : ppthread_attr_t):cint; cdecl; external; +function pthread_attr_setinheritsched(p : ppthread_attr_t;i:cint):cint; cdecl; external; +function pthread_attr_setscope (p : ppthread_attr_t;i:cint):cint;cdecl;external; +function pthread_attr_setdetachstate (p : ppthread_attr_t;i:cint):cint;cdecl;external; +function pthread_attr_setstacksize(p: ppthread_attr_t; stacksize: size_t):cint;cdecl;external; +function pthread_create ( p: ppthread_t;attr : ppthread_attr_t;f:__startroutine_t;arg:pointer):cint;cdecl;external; +procedure pthread_exit ( p: pointer); cdecl;external; +function pthread_self:pthread_t; cdecl;external; +function pthread_mutex_init (p:ppthread_mutex_t;o:ppthread_mutex_attr_t):cint; cdecl;external; +function pthread_mutex_destroy (p:ppthread_mutex_attr_t):cint; cdecl;external; +function pthread_mutex_lock (p:ppthread_mutex_attr_t):cint; cdecl;external; +function pthread_mutex_trylock (p:ppthread_mutex_attr_t):cint; cdecl;external; +function pthread_mutex_unlock (p:ppthread_mutex_attr_t):cint; cdecl;external; +function pthread_cancel(_para1:pthread_t):cint;cdecl;external; +function pthread_detach(_para1:pthread_t):cint;cdecl;external; +function pthread_join(_para1:pthread_t; _para2:Ppointer):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_broadcast(_para1:Ppthread_cond_t):cint;cdecl;external; +function pthread_cond_wait(_para1:Ppthread_cond_t;_para2:Ppthread_mutex_t):cint;cdecl;external; +function pthread_kill(__thread:pthread_t; __signo:cint):cint;cdecl;external; +function pthread_sigmask(how: cint; nset: psigset; oset: psigset): cint; cdecl; external; + +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 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_cond_timedwait(__cond:ppthread_cond_t; __mutex:ppthread_mutex_t; __abstime:ptimespec):longint;cdecl;external; + + +