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

* small rearrangements

Browse Source
This commit is contained in:
marco 2003-06-01 16:28:56 +00:00
parent 0525a73548
commit cc84ef0e7c
1 changed files with 6 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
rtl/linux/bunxmain.inc
View File

@ -22,37 +22,9 @@
{ $I ostypes.inc}
{$ifdef uselibc}
{$I oscdecl.inc}
{$I oscdeclh.inc}
{$else}
function fptime (var tloc:time_t): time_t; external name 'FPC_SYSC_TIME';
function fpopen (path: pchar; flags : cint; mode: TMode):cint; external name 'FPC_SYSC_OPEN';
function fpclose (fd : cint): cint; external name 'FPC_SYSC_CLOSE';
function fplseek (fd : cint; offset : TOff; whence : cint): TOff; external name 'FPC_SYSC_LSEEK';
function fpread (fd: cint; buf: pchar; nbytes : TSize): TSSize; external name 'FPC_SYSC_READ';
function fpwrite (fd: cint; buf:pchar; nbytes : TSize): TSSize; external name 'FPC_SYSC_WRITE';
function fpunlink (path: pchar): cint; external name 'FPC_SYSC_UNLINK';
function fprename (old : pchar; newpath: pchar): cint; external name 'FPC_SYSC_RENAME';
function fpstat (path: pchar; var buf : stat):cint; external name 'FPC_SYSC_STAT';
function fpchdir (path : pchar): cint; external name 'FPC_SYSC_CHDIR';
function fpmkdir (path : pchar; mode: TMode):cint; external name 'FPC_SYSC_MKDIR';
function fprmdir (path : pchar): cint; external name 'FPC_SYSC_RMDIR';
function fpopendir (dirname : pchar): pdir; external name 'FPC_SYSC_OPENDIR';
function fpclosedir (var dirp : dir): cint; external name 'FPC_SYSC_CLOSEDIR';
function fpreaddir (var dirp : dir) : pdirent; external name 'FPC_SYSC_READDIR';
procedure fpexit (status : cint); external name 'FPC_SYSC_EXIT';
function fpsigaction (sig: cint; act : psigactionrec; oact : psigactionrec): cint; external name 'FPC_SYSC_SIGACTION';
function fpftruncate (fd : cint; flength : TOff): cint; external name 'FPC_SYSC_FTRUNCATE';
function fpfstat (fd : cint; var sb : stat): cint; external name 'FPC_SYSC_FSTAT';
function fpfork : pid_t; external name 'FPC_SYSC_FORK';
// function fpexecve (path : pchar; argv : ppchar;envp: ppchar): cint; external name 'FPC_SYSC_EXECVE';
function fpwaitpid (pid : pid_t; var stat_loc : cint; options: cint): pid_t; external name 'FPC_SYSC_WAITPID';
function fpaccess (pathname : pchar; amode : cint): cint;external name 'FPC_SYSC_ACCESS';
function fpDup (fildes:cint):cint; external name 'FPC_SYSC_DUP';
function fpDup2 (fildes:cint;fildes2:cint):cint; external name 'FPC_SYSC_DUP2';
function geterrno : cint; external name 'FPC_SYS_GETERRNO';
procedure seterrno (i:cint); external name 'FPC_SYS_SETERRNO';
{$I sysdeclh.inc}
{$endif}
{$I bunxfunc.inc}
@ -60,7 +32,10 @@ procedure seterrno (i:cint); external name 'FPC_SYS_SETERRNO';
{
$Log$
Revision 1.2 2003-01-02 22:39:19 marco
Revision 1.3 2003-06-01 16:28:56 marco
* small rearrangements
Revision 1.2 2003/01/02 22:39:19 marco
* posmacro.inc was still include while it was already moved to bunxmacr.inc
fixed, will remove posmacro.inc shortly