File tree Expand file tree Collapse file tree 2 files changed +4
-1
lines changed
jscomp/build_tests/ocamlgraph/libx Expand file tree Collapse file tree 2 files changed +4
-1
lines changed Original file line number Diff line number Diff line change @@ -595,6 +595,7 @@ let to_int64_us _ = failwith "todo"
595595let of_int64_s _ = failwith " todo"
596596let to_int64_s _ = failwith " todo"
597597
598+ #if 0 then
598599(* [Nativeint] *)
599600let select_of f32 f64 = match Sys. word_size with
600601 | 32 -> (fun i -> f32 (Nativeint. to_int32 i))
@@ -608,3 +609,4 @@ let select_to f32 f64 = match Sys.word_size with
608609 | _ -> assert false
609610let to_nativeint_s = select_to to_int32_s to_int64_s
610611let to_nativeint_us = select_to to_int32_us to_int64_us
612+ #end
Original file line number Diff line number Diff line change @@ -183,12 +183,13 @@ val of_int64_s : Int64.t -> t
183183val to_int64_s : t -> Int64 .t
184184val of_int64_us : Int64 .t -> t
185185val to_int64_us : t -> Int64 .t
186+ #if 0 then
186187(* type [Nativeint.t] (length 32/64 with sign, 31/63 without) *)
187188val of_nativeint_s : Nativeint .t -> t
188189val to_nativeint_s : t -> Nativeint .t
189190val of_nativeint_us : Nativeint .t -> t
190191val to_nativeint_us : t -> Nativeint .t
191-
192+ #end
192193(* s Only if you know what you are doing... *)
193194
194195val unsafe_set : t -> int -> bool -> unit
You can’t perform that action at this time.
0 commit comments