paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 08:30:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix arg types for pthread_create and pthread_key_create, fixes test/textthr test failure for solaris

Browse Source 
git-svn-id: trunk@38782 -
This commit is contained in:
pierre 2018-04-18 11:13:44 +00:00
parent dbc0dd81fd
commit 5056b29864
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/pthreads/src/pthrsnos.inc
View File

@ -188,6 +188,7 @@ const
PTHREAD_BARRIER_SERIAL_THREAD = -(2);
type
_Voidpfp = function(_para1:pointer) : pointer;cdecl;
_Voidfp = procedure (_para1:pointer);cdecl;
_fp = procedure;cdecl;
@ -225,7 +226,7 @@ function pthread_attr_setschedparam(_RESTRICT_KYWD1:Ppthread_attr_t; _RESTRICT_K
(* 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:_Voidfp ; _RESTRICT_KYWD3:pointer):longint;cdecl;external External_library name 'pthread_create';
function pthread_create(_RESTRICT_KYWD1:Ppthread_t; _RESTRICT_KYWD2:Ppthread_attr_t; _para3:_Voidpfp ; _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';
@ -239,7 +240,7 @@ function pthread_setcancelstate(_para1:longint; _para2:Plongint):longint;cdecl;e
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_create(_para1:Ppthread_key_t; _para2:_Voidpfp):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';