X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/6dc5aa808483fdb8531afc990f26f1138bf2ddac..71f094bad8c68b2a3d096b436dc74cf4d9e2895a:/fastmd5.pas

diff --git a/fastmd5.pas b/fastmd5.pas
index 6f2d66f..27755b9 100644
--- a/fastmd5.pas
+++ b/fastmd5.pas
@@ -211,7 +211,7 @@ begin
   b := state.msglen and 63;
 
   inc(state.msglen,len);
-  while (state.msglen > $20000000) do begin
+  while (state.msglen >= $20000000) do begin
     dec(state.msglen,$20000000);
     inc(state.msglenhi);
   end;