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

* Fix O_ constants for mips cpu

Browse Source 
git-svn-id: trunk@21630 -
This commit is contained in:
pierre 2012-06-17 12:40:14 +00:00
parent 007ea17f36
commit 61acf7de97
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/linux/ostypes.inc
View File

@ -245,7 +245,20 @@ CONST
O_DIRECTORY = $10000; O_DIRECTORY = $10000;
O_NOFOLLOW = $20000; O_NOFOLLOW = $20000;
O_DIRECT = $100000; O_DIRECT = $100000;
{$else cpusparc} {$else : not cpusparc}
{$ifdef cpumips}
O_CREAT = $100;
O_EXCL = $400;
O_NOCTTY = $800;
O_TRUNC = $200;
O_APPEND = $8;
O_NONBLOCK = $80;
O_NDELAY = O_NONBLOCK;
O_SYNC = $10;
O_DIRECT = $8000;
O_DIRECTORY = $10000;
O_NOFOLLOW = $20000;
{$else : not cpumips}
O_CREAT = $40; O_CREAT = $40;
O_EXCL = $80; O_EXCL = $80;
O_NOCTTY = $100; O_NOCTTY = $100;
@ -257,7 +270,8 @@ CONST
O_DIRECT = $4000; O_DIRECT = $4000;
O_DIRECTORY = $10000; O_DIRECTORY = $10000;
O_NOFOLLOW = $20000; O_NOFOLLOW = $20000;
{$endif cpusparc} {$endif not cpumips}
{$endif not cpusparc}
{$if defined(cpuarm) or defined(cpualpha) or defined(cpublackfin) or defined(cpum68k)} {$if defined(cpuarm) or defined(cpualpha) or defined(cpublackfin) or defined(cpum68k)}
O_LARGEFILE = $20000; O_LARGEFILE = $20000;