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

* Patch from Fuxin Zhang: Mips specific MAP_XXX constants

Browse Source 
git-svn-id: trunk@21529 -
This commit is contained in:
pierre 2012-06-07 23:04:51 +00:00
parent bd060f4627
commit 6a985f1ece
1 changed files with 15 additions and 1 deletions

16
rtl/linux/ostypes.inc
View File

@ -306,8 +306,22 @@ CONST
{$IFDEF FPC_IS_SYSTEM}
MAP_PRIVATE =2;
{$ENDIF}
MAP_ANONYMOUS =$20;
{$if defined(cpumips)}
MAP_ANONYMOUS = $800;
MAP_GROWSDOWN = $1000; { stack-like segment }
MAP_DENYWRITE = $2000; { ETXTBSY }
MAP_EXECUTABLE = $4000; { mark it as an executable }
MAP_LOCKED = $8000; { pages are locked }
MAP_NORESERVE = $4000; { don't check for reservations }
{$else}
MAP_ANONYMOUS = $20;
MAP_GROWSDOWN = $100; { stack-like segment }
MAP_DENYWRITE = $800; { ETXTBSY }
MAP_EXECUTABLE = $1000; { mark it as an executable }
MAP_LOCKED = $2000; { pages are locked }
MAP_NORESERVE = $4000; { don't check for reservations }
{$endif cpumips}
{ For File control mechanism }
F_GetFd = 1;