* sendfile support FreeBSD fpc_use_libc etc

git-svn-id: trunk@2531 -

.gitattributes

@@ -3699,6 +3699,7 @@ rtl/freebsd/bsdport.txt svneol=native#text/plain
 rtl/freebsd/console.pp svneol=native#text/plain
 rtl/freebsd/errno.inc svneol=native#text/plain
 rtl/freebsd/errnostr.inc -text
+rtl/freebsd/freebsd.pas -text
 rtl/freebsd/i386/bsyscall.inc svneol=native#text/plain
 rtl/freebsd/i386/cprt0.as -text
 rtl/freebsd/i386/gprt0.as -text

rtl/freebsd/freebsd.pas

@@ -0,0 +1,75 @@
+Unit FreeBSD;
+{
+   This file is part of the Free Pascal run time library.
+   (c) 2005 by Marco van de Voort
+   member of the Free Pascal development team.
+   based on the sendfile conversion of Ales Katona 30.01.2006
+
+   See the file COPYING.FPC, included in this distribution,
+   for details about the copyright.
+
+   Unit for FreeBSD specific calls. Calls may move to "BSD" unit in time,
+   if turns out that more BSDs include them. 
+   
+   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.
+}
+
+{$IFDEF FPC}
+  {$PACKRECORDS C}
+  {$inline on}
+  {$Macro On}
+  {$ifdef FPC_USE_LIBC}
+     {$define directives:=cdecl; external 'c';}
+  {$else}
+     {$define directives:=inline;}
+  {$endif}
+{$ENDIF}
+              
+interface
+
+uses
+  BaseUnix,Unix;
+
+const
+  SF_NODISKIO = $00000001;  // don't wait for disk IO, similar to non-blocking socket setting
+
+Type  
+  SF_HDTR = record
+    headers: PIOVec;   //* pointer to an array of header struct iovec's */
+    hdr_cnt: cint;         //* number of header iovec's */
+    trailers: PIOVec;     //* pointer to an array of trailer struct iovec's */
+    trl_cnt: cint;           //* number of trailer iovec's */
+  end;
+  TSF_HDTR = SF_HDTR; 
+  PSF_HDTR = ^TSF_HDTR;
+
+function sendfile(fd: cint; s: cint; Offset: TOff; nBytes: TSize;
+                    HDTR: PSF_HDTR; sBytes: POff; Flags: cint): cint; directives
+
+implementation
+
+Uses
+{$ifndef FPC_USE_LIBC}  SysCall; {$else} InitC; {$endif}
+
+{$IFNDEF FPC_USE_LIBC}  
+function SendFile(fd: cint; s: cint; Offset: TOff; nBytes: TSize;
+                  HDTR: PSF_HDTR; sBytes: POff; Flags: cint): cint;
+begin
+
+  SendFile:=Do_Syscall(syscall_nr_sendfile, fd, s, 
+ {$IFNDEF CPU64} 
+   {$IFDEF LITTLE_ENDIAN} // little endian is lo - hi
+      Lo(Offset), Hi(Offset), 
+   {$ELSE}  	          // big endian is hi - lo
+      Hi(Offset), Lo(Offset), 
+   {$ENDIF}
+ {$ELSE}  // 64-bit doesn't care. 
+    TSysParam(Offset),
+ {$ENDIF}
+    nBytes, TSysParam(HDTR), TSysParam(sBytes), Flags);
+end;
+{$ENDIF}
+
+end.