paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 10:07:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

F_GetLk/SetLk have different values for sparc/sparc64

Browse Source 
git-svn-id: trunk@45829 -
This commit is contained in:
pierre 2020-07-22 23:15:03 +00:00
parent ed158f1e52
commit 9f60f5093d
3 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/linux/ostypes.inc
View File

@ -382,11 +382,20 @@ CONST
F_SetFd = 2; F_SetFd = 2;
F_GetFl = 3; F_GetFl = 3;
F_SetFl = 4; F_SetFl = 4;
{$if defined(cpusparc) or defined(cpusparc64)}
F_GetLk = 7;
F_SetLk = 8;
F_SetLkW = 9;
F_SetOwn = 5;
F_GetOwn = 6;
{$else}
F_GetLk = 5; F_GetLk = 5;
F_SetLk = 6; F_SetLk = 6;
F_SetLkW = 7; F_SetLkW = 7;
F_SetOwn = 8; F_SetOwn = 8;
F_GetOwn = 9; F_GetOwn = 9;
{$endif}
{ getrlimit/ugetrlimit resource parameter constants } { getrlimit/ugetrlimit resource parameter constants }
const const

7
tests/tbs/tb0561a.pp
View File

@ -8,9 +8,16 @@ program test;
Uses cthreads, Classes, SysUtils, BaseUnix; Uses cthreads, Classes, SysUtils, BaseUnix;
Const Fn = '/tmp/fpctest.lock'; Const Fn = '/tmp/fpctest.lock';
{$if defined(cpusparc) or defined(cpusparc64)}
F_RDLCK = 1;
F_WRLCK = 2;
F_UNLCK = 3;
{$else}
F_RDLCK = 0; F_RDLCK = 0;
F_WRLCK = 1; F_WRLCK = 1;
F_UNLCK = 2; F_UNLCK = 2;
{$endif}
Var F, I : Integer; Var F, I : Integer;
Region : FLock; Region : FLock;

6
tests/tbs/tb0561b.pp
View File

@ -10,9 +10,15 @@ Uses cthreads, Classes, SysUtils, BaseUnix;
support locking support locking
} }
Const Fn = '/tmp/fpctest.lock'; Const Fn = '/tmp/fpctest.lock';
{$if defined(cpusparc) or defined(cpusparc64)}
F_RDLCK = 1;
F_WRLCK = 2;
F_UNLCK = 3;
{$else}
F_RDLCK = 0; F_RDLCK = 0;
F_WRLCK = 1; F_WRLCK = 1;
F_UNLCK = 2; F_UNLCK = 2;
{$endif}
Var F, I : Integer; Var F, I : Integer;
Region : FLock; Region : FLock;