|
@@ -80,13 +80,14 @@ 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';
|
|
|
+ Function FpPause : cInt; cdecl external clib name 'pause';
|
|
|
{$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}
|
|
|
+{$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';
|