paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 17:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed fplseek declaration for linux

Browse Source 
git-svn-id: trunk@5145 -
This commit is contained in:
Jonas Maebe 2006-11-01 12:32:40 +00:00
parent 4fb0d13138
commit e4acf70c58
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/unix/bunxh.inc
View File

@ -85,7 +85,11 @@ Type TGrpArr = Array [0..0] of TGid; { C style array workarounds}
Function FpPWrite (fd : cInt; buf:pChar; nbytes : TSize; offset:Toff): TSSize;
function FpWriteV (fd: cint; const iov : piovec; iovcnt : cint):TSSize;
{$ifndef linux}
Function FpLseek (fd : cInt; offset : TOff; whence : cInt): TOff; external name 'FPC_SYSC_LSEEK';
{$else linux}
Function FpLseek (fd : cInt; offset : TOff64; whence : cInt): TOff64; external name 'FPC_SYSC_LSEEK';
{$endif linux}
Function FpTime (var tloc : TTime): TTime; external name 'FPC_SYSC_TIME';
Function FpFtruncate (fd : cInt; flength : TOff): cInt; external name 'FPC_SYSC_FTRUNCATE';
Function FPSigaction (sig: cInt; act : pSigActionRec; oact : pSigActionRec): cint; external name 'FPC_SYSC_SIGACTION';