diff --git a/packages/hash/src/md5.pp b/packages/hash/src/md5.pp
index 62101b9a99..0f11269f9d 100644
--- a/packages/hash/src/md5.pp
+++ b/packages/hash/src/md5.pp
@@ -722,7 +722,10 @@ var
   A: array[0..3] of Cardinal absolute Digest1;
   B: array[0..3] of Cardinal absolute Digest2;
 begin
+{$push}
+{$B+}
   Result := (A[0] = B[0]) and (A[1] = B[1]) and (A[2] = B[2]) and (A[3] = B[3]);
+{$pop}
 end;
 
 procedure MD2Init(out Context: TMD2Context);