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

* Fixed RunCommandIndir with poStderrToOutput

Browse Source 
git-svn-id: trunk@39620 -
This commit is contained in:
joost 2018-08-15 21:31:56 +00:00
parent cfab40fd74
commit 098464d260
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-process/src/process.pp
View File

@ -573,7 +573,8 @@ begin
// Get left output after end of execution // Get left output after end of execution
ReadInputStream(output,BytesRead,OutputLength,OutputString,250); ReadInputStream(output,BytesRead,OutputLength,OutputString,250);
setlength(outputstring,BytesRead); setlength(outputstring,BytesRead);
ReadInputStream(StdErr,StdErrBytesRead,StdErrLength,StdErrString,250); if assigned(stderr) then
ReadInputStream(StdErr,StdErrBytesRead,StdErrLength,StdErrString,250);
setlength(stderrstring,StderrBytesRead); setlength(stderrstring,StderrBytesRead);
anexitstatus:=exitstatus; anexitstatus:=exitstatus;
result:=0; // we came to here, document that. result:=0; // we came to here, document that.