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

* pas2jni: Fixed reading of the ppudump's output in some cases.

Browse Source 
git-svn-id: trunk@32083 -
This commit is contained in:
yury 2015-10-17 18:40:21 +00:00
parent 3ec197480b
commit ab4c8623ec
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utils/pas2jni/ppuparser.pas
View File

@ -219,7 +219,7 @@ begin
repeat repeat
_ReadOutput(p.Output, s); _ReadOutput(p.Output, s);
_ReadOutput(p.Stderr, err); _ReadOutput(p.Stderr, err);
until not p.Running; until not p.Running and (p.Output.NumBytesAvailable = 0) and (p.Stderr.NumBytesAvailable = 0);
ec:=p.ExitStatus; ec:=p.ExitStatus;
if Copy(s, 1, 1) <> '[' then begin if Copy(s, 1, 1) <> '[' then begin
ec:=-1; ec:=-1;