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

* fix AssignPipe for FreeBSD

Browse Source 
git-svn-id: trunk@11996 -
This commit is contained in:
Almindor 2008-10-30 12:42:13 +00:00
parent ecef0ed86a
commit 600da72d75
1 changed files with 8 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
rtl/freebsd/unxfunc.inc
View File

@ -48,23 +48,14 @@ Function AssignPipe(var pipe_in,pipe_out:cint):cint; [public, alias : 'FPC_SYSC_
If the operation was unsuccesful, linuxerror is set. If the operation was unsuccesful, linuxerror is set.
} }
var var
ret : longint; pip : tpipe;
errn : cint;
{$ifdef FPC_USE_LIBC}
fdis : array[0..1] of cint;
{$endif}
begin begin
{$ifndef FPC_USE_LIBC} {$ifdef FPC_USE_LIBC}
ret:=intAssignPipe(pipe_in,pipe_out,errn); assignpipe:=pipe(pip);
if ret=-1 Then {$else}
fpseterrno(errn); assignPipe:=fppipe(pip);
{$ELSE} {$endif}
fdis[0]:=pipe_in; pipe_in:=pip[0];
fdis[1]:=pipe_out; pipe_out:=pip[1];
ret:=pipe(fdis);
pipe_in:=fdis[0];
pipe_out:=fdis[1];
{$ENDIF}
AssignPipe:=ret;
end; end;