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

* Patch from Fuxin Zhang: Mips specific MAP_XXX constants

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

13
rtl/linux/oldlinux.pp
View File

@ -87,7 +87,11 @@ Const
{ Constansts for MMAP }
MAP_PRIVATE =2;
{$ifdef cpumips}
MAP_ANONYMOUS =$800;
{$else cpumips}
MAP_ANONYMOUS =$20;
{$endif cpumips}
{Constansts Termios/Ioctl (used in Do_IsDevice) }
IOCtl_TCGETS=$5401; // TCGETS is also in termios.inc, but the sysunix needs only this
@ -1526,11 +1530,20 @@ const
MAP_FIXED = $10; { Interpret addr exactly }
// MAP_ANONYMOUS = $20; { don't use a file }
{$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 }
{$else cpumips}
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}
type
tmmapargs=record