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

+ fpnanosleep for oscdeclh.inc

Browse Source 
- removed obsolete darwin remarks from bsd/ossysc.inc
This commit is contained in:
Jonas Maebe 2004-02-06 20:47:00 +00:00
parent 5290787578
commit 4e37beb962
2 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/bsd/ossysc.inc
View File

@ -526,15 +526,10 @@ end;
{$user BLA!}
Function FpNanoSleep(req : ptimespec;rem : ptimespec) : cint; [public, alias : 'FPC_SYSC_NANOSLEEP'];
begin
{$ifndef darwin}
FpNanoSleep:=Do_SysCall(syscall_nr_nanosleep,TSysParam(req),TSysParam(rem));
{$else not darwin}
{$warning: TODO: nanosleep!!!}
{$endif not darwin}
end;
function Fpgetcwd(pt:pchar; _size:size_t):pchar;[public, alias :'FPC_SYSC_GETCWD'];
{$ifndef darwin}
const intpathmax = 1024-4; // didn't use POSIX data in libc
// implementation.
var ept,bpt : pchar;
@ -583,9 +578,6 @@ begin
End;
Fpgetcwd:=pt;
end;
{$else not darwin}
{$i getcwd.inc}
{$endif darwin}
{$endif}
@ -624,7 +616,11 @@ end;
{
$Log$
Revision 1.16 2003-12-30 12:26:21 marco
Revision 1.17 2004-02-06 20:47:00 jonas
+ fpnanosleep for oscdeclh.inc
- removed obsolete darwin remarks from bsd/ossysc.inc
Revision 1.16 2003/12/30 12:26:21 marco
* FPC_USE_LIBC
Revision 1.15 2003/12/16 19:43:59 marco

8
rtl/unix/oscdeclh.inc
View File

@ -65,6 +65,7 @@ Type TGrpArr = Array [0..0] of TGid; { C style array workarounds}
function FpWrite (fd: cint;buf:pchar; nbytes : TSize): TSSize; cdecl; external clib name 'write';
procedure FpExit (status : cint); cdecl; external clib name '_exit';
function fpmmap (addr:pointer;len:size_t;prot:cint;flags:cint;fd:cint;ofs:off_t):pointer; cdecl; external clib name 'mmap';
function fpmunmap (addr:pointer;len:size_t):cint; cdecl; external clib name 'munmap';
function FpIOCtl (Handle:cint;Ndx: culong;Data: Pointer):cint; cdecl; external clib name 'ioctl';
Function FPSelect (N:cint;readfds,writefds,exceptfds:pfdSet;TimeOut:PTimeVal):cint; cdecl; external clib name 'select';
function fpgetenv (name : pchar):pchar; cdecl; external clib name 'getenv';
@ -84,10 +85,15 @@ 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 FPnanosleep (const rqtp: ptimespec; rmtp: ptimespec): cint; cdecl; external clib name 'nanosleep';
{
$Log$
Revision 1.7 2004-01-12 23:43:22 marco
Revision 1.8 2004-02-06 20:47:00 jonas
+ fpnanosleep for oscdeclh.inc
- removed obsolete darwin remarks from bsd/ossysc.inc
Revision 1.7 2004/01/12 23:43:22 marco
* some semi colons added
Revision 1.6 2004/01/04 21:05:01 jonas