From 5056b298649159424e6688bc224112010a5db8d6 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 18 Apr 2018 11:13:44 +0000
Subject: [PATCH] Fix arg types for pthread_create and pthread_key_create,
fixes test/textthr test failure for solaris
git-svn-id: trunk@38782 -
---
packages/pthreads/src/pthrsnos.inc | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/packages/pthreads/src/pthrsnos.inc b/packages/pthreads/src/pthrsnos.inc
index a3d0f1e72f..c1e6c81663 100644
--- a/packages/pthreads/src/pthrsnos.inc
+++ b/packages/pthreads/src/pthrsnos.inc
@@ -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';