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

* Patch from Fuxin Zhang: Mips specific MAP_XXX constants

Browse Source 
git-svn-id: trunk@21531 -
This commit is contained in:
pierre 2012-06-07 23:05:27 +00:00
parent a9be2fd137
commit 160037eb9d
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/linux/linux.pp
View File

@ -189,11 +189,19 @@ const
KD_TEXT0 = 2; {obsolete} KD_TEXT0 = 2; {obsolete}
KD_TEXT1 = 3; {obsolete} KD_TEXT1 = 3; {obsolete}
{$ifdef cpumips}
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; not defined for linux/mips? }
{$else cpumips}
MAP_GROWSDOWN = $100; { stack-like segment } MAP_GROWSDOWN = $100; { stack-like segment }
MAP_DENYWRITE = $800; { ETXTBSY } MAP_DENYWRITE = $800; { ETXTBSY }
MAP_EXECUTABLE = $1000; { mark it as an executable } MAP_EXECUTABLE = $1000; { mark it as an executable }
MAP_LOCKED = $2000; { pages are locked } MAP_LOCKED = $2000; { pages are locked }
MAP_NORESERVE = $4000; { don't check for reservations } MAP_NORESERVE = $4000; { don't check for reservations }
{$endif cpumips}
type type
TCloneFunc = function(args:pointer):longint;cdecl; TCloneFunc = function(args:pointer):longint;cdecl;