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

* changes due to the previous *BSD changes. Mainly moving constants from

Browse Source 
unix to systypes.inc (which acts as unxtypes.inc)
This commit is contained in:
marco 2003-11-19 11:46:55 +00:00
parent 5fbffcb2a7
commit 7b12dc7b86
3 changed files with 42 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/linux/ossysch.inc
View File

@ -15,17 +15,22 @@
**************************************************************************** ****************************************************************************
} }
Function Fpmmap(adr:pointer;len:size_t;prot:cint;flags:cint;fd:cint;off:off_t):pointer; external name 'FPC_SYSC_MMAP'; //Function Fpmmap(adr:pointer;len:size_t;prot:cint;flags:cint;fd:cint;off:off_t):pointer; external name 'FPC_SYSC_MMAP';
Function Fpmunmap(adr:pointer;len:size_t):cint; external name 'FPC_SYSC_MUNMAP'; //Function Fpmunmap(adr:pointer;len:size_t):cint; external name 'FPC_SYSC_MUNMAP';
//function fpgettimeofday(tp: ptimeval;tzp:ptimezone):cint; external name 'FPC_SYSC_GETTIMEOFDAY';
Function FpIOCtl(handle:cint;ndx:culong;Data: Pointer):cint; external name 'FPC_SYSC_IOCTL'; Function FpIOCtl(handle:cint;ndx:culong;Data: Pointer):cint; external name 'FPC_SYSC_IOCTL';
Function FpGetPid:pid_t; external name 'FPC_SYSC_GETPID'; Function FpGetPid:pid_t; external name 'FPC_SYSC_GETPID';
Function FpReadLink(name,linkname:pchar;maxlen:size_t):cint; external name 'FPC_SYSC_READLINK'; Function FpReadLink(name,linkname:pchar;maxlen:size_t):cint; external name 'FPC_SYSC_READLINK';
Function FpNanoSleep(req : ptimespec;rem : ptimespec):cint; external name 'FPC_SYSC_NANOSLEEP'; Function FpNanoSleep(req : ptimespec;rem : ptimespec):cint; external name 'FPC_SYSC_NANOSLEEP';
//function fpgettimeofday(tp: ptimeval;tzp:ptimezone):cint; external name 'FPC_SYSC_GETTIMEOFDAY';
{ {
$Log$ $Log$
Revision 1.5 2003-09-27 13:45:58 peter Revision 1.6 2003-11-19 11:46:55 marco
* changes due to the previous *BSD changes. Mainly moving constants from
unix to systypes.inc (which acts as unxtypes.inc)
Revision 1.5 2003/09/27 13:45:58 peter
* fpnanosleep exported in baseunix * fpnanosleep exported in baseunix
* fpnanosleep has pointer arguments to be C compliant * fpnanosleep has pointer arguments to be C compliant

10
rtl/linux/unixsysc.inc
View File

@ -14,9 +14,9 @@
**********************************************************************} **********************************************************************}
Function fdFlush (fd : cint) : cint; Function fsync (fd : cint) : cint;
begin begin
fdFlush := do_SysCall(syscall_nr_fsync, fd); fsync := do_SysCall(syscall_nr_fsync, fd);
end; end;
Function Flock (fd,mode : cint) : cint; Function Flock (fd,mode : cint) : cint;
@ -110,7 +110,11 @@ end;
{ {
$Log$ $Log$
Revision 1.20 2003-11-17 10:21:47 marco Revision 1.21 2003-11-19 11:46:55 marco
* changes due to the previous *BSD changes. Mainly moving constants from
unix to systypes.inc (which acts as unxtypes.inc)
Revision 1.20 2003/11/17 10:21:47 marco
* small fixes for changing unit unix again * small fixes for changing unit unix again
Revision 1.19 2003/11/17 10:05:51 marco Revision 1.19 2003/11/17 10:05:51 marco

26
rtl/linux/unxsysch.inc
View File

@ -1,3 +1,21 @@
{
$Id$
Copyright (c) 2002 by Marco van de Voort
deeper calls exported by unit unix
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
****************************************************************************
}
Function Fpmmap(adr:pointer;len:size_t;prot:cint;flags:cint;fd:cint;off:off_t):pointer; external name 'FPC_SYSC_MMAP';
Function Fpmunmap(adr:pointer;len:size_t):cint; external name 'FPC_SYSC_MUNMAP';
function fpgettimeofday(tp: ptimeval;tzp:ptimezone):cint; external name 'FPC_SYSC_GETTIMEOFDAY'; function fpgettimeofday(tp: ptimeval;tzp:ptimezone):cint; external name 'FPC_SYSC_GETTIMEOFDAY';
function fpNice(N:cint):cint; function fpNice(N:cint):cint;
@ -9,3 +27,11 @@ Function fpSymlink(oldname,newname:pchar):cint;
Function fpReadLink(name,linkname:pchar;maxlen:size_t):cint; Function fpReadLink(name,linkname:pchar;maxlen:size_t):cint;
Function fpReadLink(name:PathStr):PathStr; Function fpReadLink(name:PathStr):PathStr;
{
$Log$
Revision 1.4 2003-11-19 11:46:55 marco
* changes due to the previous *BSD changes. Mainly moving constants from
unix to systypes.inc (which acts as unxtypes.inc)
}