Compiler: remove deadcode

Author: hhugo

compiler/lib/eval.ml

@@ -214,8 +214,6 @@ let eval_prim x =
           Some (Float (ldexp f (Targetint.to_int_exn i)))
       (* int32 *)
       | "caml_int32_bits_of_float", [ Float f ] -> int32 (Int32.bits_of_float f)
-      | "caml_int32_float_of_bits", [ Int i ] ->
-          Some (Float (Int32.float_of_bits (Targetint.to_int32 i)))
       | "caml_int32_float_of_bits", [ Int32 i ] -> Some (Float (Int32.float_of_bits i))
       | "caml_int32_of_float", [ Float f ] -> int32 (Int32.of_float f)
       | "caml_int32_to_float", [ Int32 i ] -> Some (Float (Int32.to_float i))
@@ -241,8 +239,6 @@ let eval_prim x =
       | "caml_nativeint_to_int32", [ NativeInt i ] -> Some (Int32 i)
       (* nativeint *)
       | "caml_nativeint_bits_of_float", [ Float f ] -> nativeint (Int32.bits_of_float f)
-      | "caml_nativeint_float_of_bits", [ Int i ] ->
-          Some (Float (Int32.float_of_bits (Targetint.to_int32 i)))
       | "caml_nativeint_float_of_bits", [ NativeInt i ] ->
           Some (Float (Int32.float_of_bits i))
       | "caml_nativeint_of_float", [ Float f ] -> nativeint (Int32.of_float f)