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

* disabled some types in pthrlinux.inc because they already exist in unixtype

Browse Source 
git-svn-id: trunk@7173 -
This commit is contained in:
ivost 2007-04-26 07:54:41 +00:00
parent 29ffdefacb
commit 66d11ab637
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/base/pthreads/pthrlinux.inc
View File

@ -64,6 +64,7 @@ Const
PTHREAD_RWLOCK_PREFER_WRITER_NONRECURSIVE_NP = 2;
PTHREAD_RWLOCK_DEFAULT_NP = PTHREAD_RWLOCK_PREFER_WRITER_NP;
_SIGSET_NWORDS = 1024 div (8 * SizeOf(LongWord));
type
@ -79,13 +80,13 @@ type
PSize_t = ^Size_t;
// From scheduler.
{ already in unix type
timespec = record
tv_sec: cint;
tv_nsec: cint;
end;
TTimeSpec = timespec;
PTimeSpec = ^TTimeSpec;
PTimeSpec = ^TTimeSpec; }
// procedural types used in parameters to pthread functions
@ -94,9 +95,7 @@ type
TInitOnceProc = Procedure;cdecl;
TForkHandler = procedure; cdecl;
TThreadID = pthread_t;
PPTHREAD_T = ^PTHREAD_T;
PThreadID = ^TThreadID;
_PTHREAD_DESCR = Pointer;
TPTHREAD_DESCR = _PTHREAD_DESCR;