Browse Source

* Fixed parsing fpc-output

git-svn-id: trunk@16910 -
joost 14 years ago
parent
commit
1868afedc8
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fpmkunit/src/fpmkunit.pp

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

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