X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/3f8290b4a13c15cf62776aa427f62a8ae77ee07c..309429a3acfa50bd4e928b8a5728dc863e9c767b:/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;