* use break instead of classically breaking out of the loop

 * fixes #40435

packages/fcl-hash/src/fpsha512.pp

@@ -229,7 +229,7 @@ begin
     begin
       Move(PBuf^, Buffer[Index], Size);
       Inc(Self.Index, Size);
-      Size := 0;
+      Break;
     end;
   end;
 end;