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

* added futex constants to linux.pp (from futex.h)

Browse Source 
git-svn-id: trunk@6687 -
This commit is contained in:
ivost 2007-02-28 22:34:32 +00:00
parent 1a7f06aa7d
commit 9161a2967a
1 changed files with 39 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
rtl/linux/linux.pp
View File

@ -63,6 +63,40 @@ Const
CLONE_STOPPED = $02000000; // Start in stopped state.
FUTEX_WAIT = 0;
FUTEX_WAKE = 1;
FUTEX_FD = 2;
FUTEX_REQUEUE = 3;
FUTEX_CMP_REQUEUE = 4;
FUTEX_WAKE_OP = 5;
FUTEX_LOCK_PI = 6;
FUTEX_UNLOCK_PI = 7;
FUTEX_TRYLOCK_PI = 8;
FUTEX_OP_SET = 0; // *(int *)UADDR2 = OPARG;
FUTEX_OP_ADD = 1; // *(int *)UADDR2 += OPARG;
FUTEX_OP_OR = 2; // *(int *)UADDR2 |= OPARG;
FUTEX_OP_ANDN = 3; // *(int *)UADDR2 &= ~OPARG;
FUTEX_OP_XOR = 4; // *(int *)UADDR2 ^= OPARG;
FUTEX_OP_OPARG_SHIFT = 8; // Use (1 << OPARG) instead of OPARG.
FUTEX_OP_CMP_EQ = 0; // if (oldval == CMPARG) wake
FUTEX_OP_CMP_NE = 1; // if (oldval != CMPARG) wake
FUTEX_OP_CMP_LT = 2; // if (oldval < CMPARG) wake
FUTEX_OP_CMP_LE = 3; // if (oldval <= CMPARG) wake
FUTEX_OP_CMP_GT = 4; // if (oldval > CMPARG) wake
FUTEX_OP_CMP_GE = 5; // if (oldval >= CMPARG) wake
{ FUTEX_WAKE_OP will perform atomically
int oldval = *(int *)UADDR2;
*(int *)UADDR2 = oldval OP OPARG;
if (oldval CMP CMPARG)
wake UADDR2; }
function FUTEX_OP(op, oparg, cmp, cmparg: cint): cint; inline;
const
EPOLLIN = $01; { The associated file is available for read(2) operations. }
EPOLLPRI = $02; { There is urgent data available for read(2) operations. }
EPOLLOUT = $04; { The associated file is available for write(2) operations. }
@ -249,6 +283,11 @@ begin
{$endif cpum68k}
end;
function FUTEX_OP(op, oparg, cmp, cmparg: cint): cint; inline;
begin
FUTEX_OP := ((op and $F) shl 28) or ((cmp and $F) shl 24) or ((oparg and $FFF) shl 12) or (cmparg and $FFF);
end;
function epoll_create(size: cint): cint;
begin
epoll_create := do_syscall(syscall_nr_epoll_create,tsysparam(size));