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

* some functions are in different libraries under Solaris

Browse Source 
git-svn-id: trunk@2475 -
This commit is contained in:
florian 2006-02-07 22:37:35 +00:00
parent fd0f51c463
commit a7893f3be8
2 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/unix/oscdeclh.inc
View File

@ -79,7 +79,13 @@ Type TGrpArr = Array [0..0] of TGid; { C style array workarounds}
Function FpFcntl (fildes : cInt; cmd : cInt): cInt; cdecl; external clib name 'fcntl';
Function FpFcntl (fildes : cInt; cmd : cInt; arg :cInt): cInt; cdecl; external clib name 'fcntl';
Function FpFcntl (fildes : cInt; cmd : cInt; var arg : flock): cInt; cdecl external clib name 'fcntl';
{$ifdef solaris}
{$linklib md5}
{$linklib aio}
Function FPnanosleep (const rqtp: ptimespec; rmtp: ptimespec): cint; cdecl; external 'rt' name 'nanosleep';
{$else solaris}
Function FPnanosleep (const rqtp: ptimespec; rmtp: ptimespec): cint; cdecl; external clib name 'nanosleep';
{$endif solaris}
function fpNice (N:cint):cint; cdecl; external clib name 'nice';
Function fpGetPriority (Which,Who:cint):cint; cdecl; external clib name 'getpriority';
Function fpSetPriority (Which,Who,What:cint):cint; cdecl; external clib name 'setpriority';

9
rtl/unix/unxdeclh.inc
View File

@ -15,8 +15,15 @@
type filedesarray=array[0..1] of cint;
Function fStatFS(Fd:Longint;Var Info:tstatfs):cint; cdecl; external clib name 'fstatfs';
{$ifdef solaris}
{ libucb needs libelf }
{$linklib elf}
Function fpFlock (fd,mode : longint) : cint; cdecl; external 'ucb' name 'flock';
{$else solaris}
Function fpFlock (fd,mode : longint) : cint; cdecl; external clib name 'flock';
{$endif solaris}
Function fStatFS(Fd:Longint;Var Info:tstatfs):cint; cdecl; external clib name 'fstatfs';
Function fsync (fd : cint) : cint; cdecl; external clib name 'fsync';
Function StatFS (Path:pchar;Var Info:tstatfs):cint; cdecl; external clib name 'statfs';
function pipe (var fildes: filedesarray):cint; cdecl; external clib name 'pipe';