Bladeren bron

* Fixed parsing fpc-output

git-svn-id: trunk@16910 -
joost 14 jaren geleden
bovenliggende
commit
1868afedc8
1 gewijzigde bestanden met toevoegingen van 1 en 1 verwijderingen
  1. 1 1
      packages/fpmkunit/src/fpmkunit.pp

+ 1 - 1
packages/fpmkunit/src/fpmkunit.pp

@@ -1212,7 +1212,7 @@ var
         else
           sLine := sLine + ch;
 
-      until ConsoleOutput.Position = ConsoleOutput.Size;
+      until ConsoleOutput.Position >= BytesRead;
 
       ConsoleOutput.Position := BuffPos;
     end