X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/6dc5aa808483fdb8531afc990f26f1138bf2ddac..8bc22a17b97149d69fd377f5e9f5ed617a4385db:/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;