Skip to content

Commit

Permalink
Fix bug in Int31.shift_right_logical
Browse files Browse the repository at this point in the history
  • Loading branch information
OlivierNicole committed Sep 26, 2024
1 parent c60c9b0 commit a98d687
Showing 1 changed file with 1 addition and 2 deletions.
3 changes: 1 addition & 2 deletions compiler/lib/stdlib.ml
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit a98d687

Please sign in to comment.