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

+ add splice and sync_file_range linux-only syscalls

Browse Source 
git-svn-id: trunk@12107 -
This commit is contained in:
micha 2008-11-15 15:43:52 +00:00
parent 341cec908d
commit d7e90f9e48
2 changed files with 36 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
rtl/linux/linux.pp
View File

@ -22,7 +22,7 @@ unit Linux;
interface
uses
BaseUnix;//, ctypes;
BaseUnix, unixtype;
type
TSysInfo = record
@ -312,14 +312,21 @@ const
function vmsplice (fdout: cInt; iov: PIOVec; count: size_t; flags: cuInt): cInt; {$ifdef FPC_USE_LIBC} cdecl; external name 'vmsplice'; {$ENDIF}
{* Splice two files together. *}
// NOTE: offin and offout should be "off64_t" but we don't have that type. It's an "always 64 bit offset" so I use cint64
function splice (fdin: cInt; offin: cInt64; fdout: cInt;
offout: cInt64; len: size_t; flags: cuInt): cInt; {$ifdef FPC_USE_LIBC} cdecl; external name 'splice'; {$ENDIF}
function splice (fdin: cInt; offin: off64_t; fdout: cInt;
offout: off64_t; len: size_t; flags: cuInt): cInt; {$ifdef FPC_USE_LIBC} cdecl; external name 'splice'; {$ENDIF}
function tee(fd_in: cInt; fd_out: cInt; len: size_t; flags: cuInt): cInt; {$ifdef FPC_USE_LIBC} cdecl; external name 'tee'; {$ENDIF}
{$endif} // x86
const
{ flags for sync_file_range }
SYNC_FILE_RANGE_WAIT_BEFORE = 1;
SYNC_FILE_RANGE_WRITE = 2;
SYNC_FILE_RANGE_WAIT_AFTER = 4;
function sync_file_range(fd: cInt; offset, nbytes: off64_t; flags: cuInt): cInt; {$ifdef FPC_USE_LIBC} cdecl; external name 'sync_file_range'; {$ENDIF}
implementation
@ -446,13 +453,14 @@ end;
function vmsplice (fdout: cInt; iov: PIOVec; count: size_t; flags: cuInt): cInt;
begin
vmsplice := do_syscall(syscall_nr_vmsplice, TSysParam(fdout), TSysParam(iov), TSysParam(count), TSysParam(flags));
vmsplice := do_syscall(syscall_nr_vmsplice, TSysParam(fdout), TSysParam(iov),
TSysParam(count), TSysParam(flags));
end;
function splice (fdin: cInt; offin: cint64; fdout: cInt; offout: cint64; len: size_t; flags: cuInt): cInt;
function splice (fdin: cInt; offin: off64_t; fdout: cInt; offout: off64_t; len: size_t; flags: cuInt): cInt;
begin
splice := do_syscall(syscall_nr_splice, TSysParam(fdin), TSysParam(offin), TSysParam(fdout), TSysParam(offout),
TSysParam(len), TSysParam(flags));
splice := do_syscall(syscall_nr_splice, TSysParam(fdin), TSysParam(@offin),
TSysParam(fdout), TSysParam(@offout), TSysParam(len), TSysParam(flags));
end;
function tee(fd_in: cInt; fd_out: cInt; len: size_t; flags: cuInt): cInt;
@ -463,6 +471,22 @@ end;
{$endif} // x86
function sync_file_range(fd: cInt; offset: off64_t; nbytes: off64_t; flags: cuInt): cInt;
begin
{$ifdef cpu64}
sync_file_range := do_syscall(syscall_nr_sync_file_range, TSysParam(fd), TSysParam(offset),
TSysParam(nbytes), TSysParam(flags));
{$else}
{$if defined(cpupowerpc) or defined(cpuarm)}
sync_file_range := do_syscall(syscall_nr_sync_file_range2, TSysParam(fd), TSysParam(flags),
TSysParam(hi(offset)), TSysParam(lo(offset)), TSysParam(hi(nbytes)), TSysParam(lo(nbytes)));
{$else}
sync_file_range := do_syscall(syscall_nr_sync_file_range, TSysParam(fd), TSysParam(lo(offset)),
TSysParam(hi(offset)), TSysParam(lo(nbytes)), TSysParam(hi(nbytes)), TSysParam(flags));
{$endif}
{$endif}
end;
{$endif} // non-libc
{ FUTEX_OP is a macro, doesn't exist in libC as function}

4
rtl/linux/ptypes.inc
View File

@ -71,6 +71,10 @@ Type
TOff = off_t;
pOff = ^off_t;
off64_t = cint64;
TOff64 = off64_t;
pOff64 = ^off64_t;
pid_t = cint; { used as process identifier }
TPid = pid_t;
pPid = ^pid_t;