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

* removed inline flag from FUTEX_OP in linux.pp

Browse Source 
* added msync constants

git-svn-id: trunk@6691 -
This commit is contained in:
ivost 2007-03-01 14:20:34 +00:00
parent 3dacee1f38
commit 025b57815f
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/linux/linux.pp
View File

@ -94,7 +94,7 @@ Const
if (oldval CMP CMPARG)
wake UADDR2; }
function FUTEX_OP(op, oparg, cmp, cmparg: cint): cint; inline;
function FUTEX_OP(op, oparg, cmp, cmparg: cint): cint; {inline;}
const
EPOLLIN = $01; { The associated file is available for read(2) operations. }
@ -283,7 +283,7 @@ begin
{$endif cpum68k}
end;
function FUTEX_OP(op, oparg, cmp, cmparg: cint): cint; inline;
function FUTEX_OP(op, oparg, cmp, cmparg: cint): cint;
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;

5
rtl/unix/unix.pp
View File

@ -159,6 +159,11 @@ const
MAP_FIXED = $10; { Interpret addr exactly }
// MAP_ANONYMOUS = $20; { don't use a file }
{ Flags to `msync'. }
MS_ASYNC = 1; { Sync memory asynchronously. }
MS_SYNC = 4; { Synchronous memory sync. }
MS_INVALIDATE = 2; { Invalidate the caches. }
{$ifdef Linux}
MAP_GROWSDOWN = $100; { stack-like segment }
MAP_DENYWRITE = $800; { ETXTBSY }