From 2e63760ab9cf4b410bcc413b9894472caba4f25e Mon Sep 17 00:00:00 2001 From: Olivier Nicole Date: Thu, 26 Sep 2024 14:15:44 +0200 Subject: [PATCH] Fix bug in Int31.shift_right_logical --- compiler/lib/stdlib.ml | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/compiler/lib/stdlib.ml b/compiler/lib/stdlib.ml index bb01e08dab..ff63be924a 100644 --- a/compiler/lib/stdlib.ml +++ b/compiler/lib/stdlib.ml @@ -447,8 +447,7 @@ end = struct let shift_right = shift_op Int32.shift_right - let shift_right_logical a b = - shift_op Int32.shift_right_logical (Int32.logand a 0x7fffffffl) b + let shift_right_logical a b = shift_op Int32.shift_right_logical a b let to_int32 (x : t) : int32 = x end