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

* fixed use of uninitialized "read" result in case 0 bytes were read, fixes

Browse Source 
hang on Darwin/ppc

git-svn-id: trunk@24623 -
This commit is contained in:
Jonas Maebe 2013-05-27 11:40:44 +00:00
parent 5907b3c9aa
commit 2f29a6ebd3
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
utils/fpcm/fpmake.pp
View File

@ -36,10 +36,12 @@ procedure fpcm_update_revision_info(Sender: TObject);
if i = 0 then if i = 0 then
sleep(100); sleep(100);
i := AProcess.Output.Read(b,1); i := AProcess.Output.Read(b,1);
if b = 10 then
exit;
if i > 0 then if i > 0 then
ALine := ALine + chr(b); begin
if b = 10 then
exit;
ALine := ALine + chr(b);
end;
until not AProcess.Running and (i=0); until not AProcess.Running and (i=0);
result := (ALine <> ''); result := (ALine <> '');