Explorar o código

* Fix rare case of stream contents not being read correctly

(cherry picked from commit 0fac221a61414d3b1bc77cd00a34ce8498a86a58)
Michaël Van Canneyt %!s(int64=2) %!d(string=hai) anos
pai
achega
1eee31c04f
Modificáronse 1 ficheiros con 2 adicións e 0 borrados
  1. 2 0
      packages/fcl-pdf/src/fppdfsource.pp

+ 2 - 0
packages/fcl-pdf/src/fppdfsource.pp

@@ -217,6 +217,8 @@ begin
       if not FillBufferForwardAt(FPosition) then
         aCount:=0;
     end;
+  if IsEOB then
+    FillBufferForwardAt(FPosition);
 end;
 
 procedure TPDFSourceStream.Previous;