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

* fixed ambiguity between pipe(2) with two params and pipe(3) with one that broke -dFPC_USE_LIBC

Browse Source 
(cherry picked from commit f341baeaa7)
This commit is contained in:
marcoonthegit 2022-08-22 13:22:57 +02:00
parent 9b2ba834a6
commit 3a399845e4
3 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/freebsd/unxfunc.inc
View File

@ -51,7 +51,7 @@ var
pip : tfildes;
flags : cint;
begin
assignPipe:=fppipe(pip, 0);
assignPipe:=fppipe(pip); // default parameter adds 0, if necessary. This abstracts between pipe(2) and pipe(3)
pipe_in:=pip[0];
pipe_out:=pip[1];
end;

1
rtl/unix/baseunix.pp
View File

@ -13,6 +13,7 @@
**********************************************************************}
Unit BaseUnix;
{$modeswitch defaultparameters} // on freebsd to make one (libc) and two parameter pipe transparent.
Interface
{$modeswitch out}

2
rtl/unix/bunxh.inc
View File

@ -35,7 +35,7 @@ Type TGrpArr = Array [0..0] of TGid; { C style array workarounds}
Function FpChown (path : pChar; owner : TUid; group : TGid): cInt;
Function FpUtime (path : pChar; times : putimbuf): cInt;
{$if defined(freebsd)}
Function FpPipe (var fildes : tfildes; flags : cInt):cInt;
Function FpPipe (var fildes : tfildes; flags : cInt=0):cInt;
{$else}
Function FpPipe (var fildes : tfildes):cInt;
{$endif}