mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-30 09:34:03 +02:00
103 lines
4.5 KiB
PHP
103 lines
4.5 KiB
PHP
{
|
|
$Id$
|
|
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;
|
|
|
|
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_mutex_attr_t = ^pthread_mutexattr_t;
|
|
|
|
sem_t = cint;
|
|
psem_t = ^sem_t;
|
|
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_key_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_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:cint; 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_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 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;
|
|
|
|
|
|
|
|
{
|
|
$Log$
|
|
Revision 1.5 2004-09-10 15:15:45 marco
|
|
* small glitch fixes
|
|
|
|
Revision 1.4 2004/09/09 20:29:06 jonas
|
|
* fixed definition of pthread_mutex_t for non-linux targets (and for
|
|
linux as well, actually).
|
|
* base libpthread definitions are now in ptypes.inc, included in unixtype
|
|
They sometimes have an extra underscore in front of their name, in
|
|
case they were also exported by the packages/base/pthreads unit, so
|
|
they can keep their original name there
|
|
* cthreadds unit now imports systuils, because it uses exceptions (it
|
|
already did so before as well)
|
|
* fixed many linux definitions of libpthread functions in pthrlinux.inc
|
|
(integer -> cint etc)
|
|
+ added culonglong type to ctype.inc
|
|
|
|
Revision 1.3 2004/05/23 15:30:55 marco
|
|
* basicevent, still untested
|
|
|
|
Revision 1.2 2003/11/27 20:24:10 michael
|
|
+ Redefined ppthread_mutex_t
|
|
|
|
Revision 1.1 2003/11/18 22:33:42 marco
|
|
* moved from systhrds.pp
|
|
|
|
|
|
} |