pyrox.dev
fork
Configure Feed
Select the types of activity you want to include in your feed.
lol
fork
Configure Feed
Select the types of activity you want to include in your feed.
1--- a/compiler/passes/surfaceAstRenaming.ml
2+++ b/compiler/passes/surfaceAstRenaming.ml
3@@ -1110,7 +1110,7 @@ let find_opt_local_or_global name all_env =
4 | None -> find_opt_global name all_env
5 | v -> v
6
7-let path_expr_to_module_aux p = function
8+let path_expr_to_module_aux p : _ -> _ result = function
9 | Some (OpenedIdent (tree, ident, path)) ->
10 (match Tree.get_path_opt tree p with
11 (* the path is not in the tree, which means a 'dot' access
12diff --git a/ocamllib/libbase/baseInt64.mli b/ocamllib/libbase/baseInt64.mli
13index fb544706..734437f9 100644
14--- a/ocamllib/libbase/baseInt64.mli
15+++ b/ocamllib/libbase/baseInt64.mli
16@@ -40,7 +40,9 @@ external shift_right_logical : int64 -> int -> int64 = "%int64_lsr"
17 external of_int : int -> int64 = "%int64_of_int"
18 external to_int : int64 -> int = "%int64_to_int"
19 external of_float : float -> int64 = "caml_int64_of_float"
20+ "caml_int64_of_float_unboxed" [@@unboxed] [@@noalloc]
21 external to_float : int64 -> float = "caml_int64_to_float"
22+ "caml_int64_to_float_unboxed" [@@unboxed] [@@noalloc]
23 external of_int32 : int32 -> int64 = "%int64_of_int32"
24 external to_int32 : int64 -> int32 = "%int64_to_int32"
25 external of_nativeint : nativeint -> int64 = "%int64_of_nativeint"
26@@ -48,7 +50,9 @@ external to_nativeint : int64 -> nativeint = "%int64_to_nativeint"
27 external of_string : string -> int64 = "caml_int64_of_string"
28 val to_string : int64 -> string
29 external bits_of_float : float -> int64 = "caml_int64_bits_of_float"
30+ "caml_int64_bits_of_float_unboxed" [@@unboxed] [@@noalloc]
31 external float_of_bits : int64 -> float = "caml_int64_float_of_bits"
32+ "caml_int64_float_of_bits_unboxed" [@@unboxed] [@@noalloc]
33 type t = int64
34 val compare : t -> t -> int
35 external format : string -> int64 -> string = "caml_int64_format"