Browse Source

minor change to nulldigest

Ugochukwu Mmaduekwe 6 years ago
parent
commit
823e5bc4a0
1 changed files with 8 additions and 5 deletions
  1. 8 5
      src/libraries/hashlib4pascal/HlpNullDigest.pas

+ 8 - 5
src/libraries/hashlib4pascal/HlpNullDigest.pas

@@ -76,11 +76,14 @@ function TNullDigest.TransformFinal: IHashResult;
 var
 var
   res: THashLibByteArray;
   res: THashLibByteArray;
 begin
 begin
-  FbOut.Position := 0;
-  System.SetLength(res, FbOut.Size);
-  FbOut.Read(res[0], FbOut.Size);
-  result := THashResult.Create(res);
-  Initialize();
+  try
+    FbOut.Position := 0;
+    System.SetLength(res, FbOut.Size);
+    FbOut.Read(res[0], FbOut.Size);
+    result := THashResult.Create(res);
+  finally
+    Initialize();
+  end;
 end;
 end;
 
 
 end.
 end.