remove useless exception

OCamlPro · Feb 22, 2024 · e412baf · e412baf
1 parent 2ddc25a
commit e412baf
Showing 4 changed files with 0 additions and 8 deletions.
diff --git a/src/int32.ml b/src/int32.ml
@@ -16,8 +16,6 @@ let of_int64 = Int64.to_int32
 
 let to_int64 = Int64.of_int32
 
-exception Overflow
-
 (* Unsigned comparison in terms of signed comparison. *)
 let cmp_u x op y = op (add x min_int) (add y min_int)
 

diff --git a/src/int32.mli b/src/int32.mli
@@ -2,8 +2,6 @@
 
 type t = int32
 
-exception Overflow
-
 val min_int : t
 
 val max_int : t

diff --git a/src/int64.ml b/src/int64.ml
@@ -6,8 +6,6 @@ let clz n = Stdlib.Int64.of_int (Ocaml_intrinsics.Int64.count_leading_zeros n)
 
 let ctz n = Stdlib.Int64.of_int (Ocaml_intrinsics.Int64.count_trailing_zeros n)
 
-exception Overflow
-
 (* Taken from Base: https://github.com/janestreet/base *)
 let popcnt =
   let ( + ) = add in

diff --git a/src/int64.mli b/src/int64.mli
@@ -2,8 +2,6 @@
 
 type t = int64
 
-exception Overflow
-
 val min_int : t
 
 val max_int : t