* Small optimization

packages/fcl-hash/src/fpsha256.pp

@@ -358,9 +358,8 @@ begin
   SetLength(Buffer,BUFFER_SIZE);
   repeat
      aLen:=aStream.Read(Buffer, BUFFER_SIZE);
-     if aLen = 0 then
-       Break;
-     SHA256.Update(PByte(Buffer),aLen);
+     if aLen <> 0 then
+       SHA256.Update(PByte(Buffer),aLen);
   until aLen=0;
   SHA256.Final;
   aDigest:=SHA256.Digest;

packages/fcl-hash/src/fpsha512.pp

@@ -531,9 +531,8 @@ begin
   SetLength(lBuffer,BUFFER_SIZE);
   repeat
      aLen:=aStream.Read(lBuffer, BUFFER_SIZE);
-     if aLen = 0 then
-       Break;
-     SHA512.Update(PByte(lBuffer),aLen);
+     if aLen <> 0 then
+       SHA512.Update(PByte(lBuffer),aLen);
   until aLen=0;
   SHA512.Final;
   aDigest:=SHA512.Digest;