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

* Fix bug #0034499

Browse Source 
git-svn-id: trunk@40548 -
This commit is contained in:
michael 2018-12-14 10:00:44 +00:00
parent 0fafe640c5
commit d49510cc8c
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/unix/unix.pp
View File

@ -914,6 +914,8 @@ var
pl : ^cint;
begin
AssignStream:=-1;
if fpAccess(prog,X_OK)<>0 then
exit(-1);
if AssignPipe(streamin,pipo)=-1 Then
exit(-1);
if AssignPipe(pipi,streamout)=-1 Then
@ -985,7 +987,8 @@ var
pl: ^cint;
begin
AssignStream := -1;
if fpAccess(prog,X_OK)<>0 then
exit(-1);
// Assign pipes
if AssignPipe(StreamIn, PipeOut)=-1 Then
Exit(-1);