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

* GetCurrentThreadId implemented

Browse Source
This commit is contained in:
peter 2003-10-01 20:53:08 +00:00
parent 77a55d2b9b
commit 6f6630bd46
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/unix/systhrds.pp
View File

@ -87,6 +87,7 @@ function pthread_attr_setscope (p : ppthread_attr_t;i:cint):cint;cdecl;ext
function pthread_attr_setdetachstate (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; 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; 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_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_destroy (p:ppthread_mutex_attr_t):cint; cdecl;external;
function pthread_mutex_lock (p:ppthread_mutex_attr_t):cint; cdecl;external; function pthread_mutex_lock (p:ppthread_mutex_attr_t):cint; cdecl;external;
@ -303,7 +304,7 @@ CONST
function GetCurrentThreadHandle : dword; function GetCurrentThreadHandle : dword;
begin begin
{$Warning ThreadGetPriority needs to be implemented} GetCurrentThreadHandle:=dword(pthread_self);
end; end;
@ -384,7 +385,10 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.13 2003-09-20 12:38:29 marco Revision 1.14 2003-10-01 20:53:08 peter
* GetCurrentThreadId implemented
Revision 1.13 2003/09/20 12:38:29 marco
* FCL now compiles for FreeBSD with new 1.1. Now Linux. * FCL now compiles for FreeBSD with new 1.1. Now Linux.
Revision 1.12 2003/09/16 13:17:03 marco Revision 1.12 2003/09/16 13:17:03 marco