From 72ff65b839e3f46681dc0a133b7d7044412f03a1 Mon Sep 17 00:00:00 2001
From: Calascibetta Romain <romain.calascibetta@gmail.com>
Date: Tue, 22 Sep 2026 21:30:38 +0200
Subject: [PATCH] Use Int32.unsigned_compare instead of ( < ) operator

---
 src-ocaml/baijiu_rmd160.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src-ocaml/baijiu_rmd160.ml b/src-ocaml/baijiu_rmd160.ml
index b9587f0..5249348 100644
--- a/src-ocaml/baijiu_rmd160.ml
+++ b/src-ocaml/baijiu_rmd160.ml
@@ -319,7 +319,8 @@ module Unsafe : S = struct
     let off = ref off in
     let len = ref len in
     ctx.s.(0) <- Int32.add !t (Int32.of_int (!len lsl 3)) ;
-    if ctx.s.(0) < !t then ctx.s.(1) <- Int32.(ctx.s.(1) + 1l) ;
+    if Int32.unsigned_compare ctx.s.(0) !t < 0
+    then ctx.s.(1) <- Int32.(ctx.s.(1) + 1l) ;
     ctx.s.(1) <- Int32.add ctx.s.(1) (Int32.of_int (!len lsr 29)) ;
     try
       if ctx.n <> 0