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

* fixed FpFcntl() for libc-based systems

Browse Source 
* fixed FpIoctl() for Linux/libc (it also uses varargs)

git-svn-id: trunk@12628 -
This commit is contained in:
Jonas Maebe 2009-01-29 15:38:17 +00:00
parent 1d43a5af55
commit 9b67b6469b
2 changed files with 37 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
rtl/unix/oscdecl.inc
View File

@ -16,12 +16,39 @@
***********************************************************************}
{$if defined(bsd) or defined(solaris)}
{ ********************************************************************* }
{ fpioctl }
{ ********************************************************************* }
function real_FpIOCtl (Handle:cint;Ndx: TIOCtlRequest):cint; cdecl; varargs; external clib name 'ioctl';
function FpIOCtl (Handle:cint;Ndx: TIOCtlRequest;Data: Pointer):cint;
begin
FpIOCtl:=real_FpIOCtl(Handle, Ndx, Data);
end;
{$endif bsd or solaris}
{ ********************************************************************* }
{ fpfcntl }
{ ********************************************************************* }
function real_FpFcntl (fildes : cInt; cmd : cInt): cInt; cdecl; varargs; external clib name 'fcntl';
Function FpFcntl (fildes : cInt; cmd : cInt): cInt;
begin
FpFcntl:=real_FpFcntl(fildes, cmd);
end;
Function FpFcntl (fildes : cInt; cmd : cInt; arg :cInt): cInt;
begin
FpFcntl:=real_FpFcntl(fildes, cmd, arg);
end;
Function FpFcntl (fildes : cInt; cmd : cInt; var arg : flock): cInt;
begin
FpFcntl:=real_FpFcntl(fildes, cmd, @arg);
end;

19
rtl/unix/oscdeclh.inc
View File

@ -75,14 +75,9 @@ const
procedure FpExit (status : cint); cdecl; external clib name '_exit';
function fpmmap (addr:pointer;len:size_t;prot:cint;flags:cint;fd:cint;ofs:off_t):pointer; cdecl; external clib name 'mmap'+suffix64bit;
function fpmunmap (addr:pointer;len:size_t):cint; cdecl; external clib name 'munmap';
{$if defined(bsd) or defined(solaris)}
{ The BSD/Solaris version has "..." as third parameter -> wrap for }
{ interface compatibility with Linux }
function FpIOCtl (Handle:cint;Ndx: TIOCtlRequest;Data: Pointer):cint;
{$ifdef FPC_IS_SYSTEM}forward;{$endif}
{$else bsd or solaris}
function FpIOCtl (Handle:cint;Ndx: TIOCtlRequest;Data: Pointer):cint; cdecl; external clib name 'ioctl';
{$endif bsd or solaris}
{ The libc version has "..." as third parameter -> wrap for }
{ interface compatibility with syscalls }
function FpIOCtl (Handle:cint;Ndx: TIOCtlRequest;Data: Pointer):cint; {$ifdef FPC_IS_SYSTEM}forward;{$endif}
{$ifdef beos}
{$ifdef haiku}
Function FPSelect (N:cint;readfds,writefds,exceptfds:pfdSet;TimeOut:PTimeVal):cint; cdecl; external 'network' name 'select';
@ -109,9 +104,11 @@ const
Function FpGetpgrp : TPid; cdecl;external clib name 'getpgrp';
Function FpSetsid : TPid; cdecl;external clib name 'setsid';
Function FpPipe (var fildes : tfildes):cInt; cdecl;external clib name 'pipe';
Function FpFcntl (fildes : cInt; cmd : cInt): cInt; cdecl; external clib name 'fcntl';
Function FpFcntl (fildes : cInt; cmd : cInt; arg :cInt): cInt; cdecl; external clib name 'fcntl';
Function FpFcntl (fildes : cInt; cmd : cInt; var arg : flock): cInt; cdecl; external clib name 'fcntl';
{ The libc version has "..." as third parameter -> wrap for }
{ interface compatibility with syscalls }
Function FpFcntl (fildes : cInt; cmd : cInt): cInt; {$ifdef FPC_IS_SYSTEM}forward;{$endif}
Function FpFcntl (fildes : cInt; cmd : cInt; arg :cInt): cInt; {$ifdef FPC_IS_SYSTEM}forward;{$endif}
Function FpFcntl (fildes : cInt; cmd : cInt; var arg : flock): cInt; {$ifdef FPC_IS_SYSTEM}forward;{$endif}
Function FpPause : cInt; cdecl; external clib name 'pause';
Function FpMkfifo (path: pchar; mode: tmode): cint; cdecl; external clib name 'mkfifo';
{$ifdef solaris}