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

* move the FUTEX down so uses doesn't get in the way

Browse Source 
git-svn-id: trunk@7974 -
This commit is contained in:
Almindor 2007-07-07 09:23:18 +00:00
parent 5baca0cfd3
commit f71c886752
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/linux/linux.pp
View File

@ -228,11 +228,6 @@ function epoll_wait(epfd: cint; events: pepoll_event; maxevents, timeout: cint):
implementation
// FUTEX_OP is a macro, doesn't exist in libC as function
function FUTEX_OP(op, oparg, cmp, cmparg: cint): cint; {$ifdef SYSTEMINLINE}inline;{$endif}
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;
{$ifndef FPC_USE_LIBC}
uses Syscall;
@ -260,4 +255,11 @@ begin
end;
{$endif}
// FUTEX_OP is a macro, doesn't exist in libC as function
function FUTEX_OP(op, oparg, cmp, cmparg: cint): cint; {$ifdef SYSTEMINLINE}inline;{$endif}
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;
end.