Skip to content

Commit aacbdf8

Browse files
committed
fix CI
1 parent 1155227 commit aacbdf8

File tree

2 files changed

+4
-1
lines changed

2 files changed

+4
-1
lines changed

jscomp/build_tests/ocamlgraph/libx/bitv.ml

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -595,6 +595,7 @@ let to_int64_us _ = failwith "todo"
595595
let of_int64_s _ = failwith "todo"
596596
let to_int64_s _ = failwith "todo"
597597

598+
#if 0 then
598599
(* [Nativeint] *)
599600
let 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
609610
let to_nativeint_s = select_to to_int32_s to_int64_s
610611
let to_nativeint_us = select_to to_int32_us to_int64_us
612+
#end

jscomp/build_tests/ocamlgraph/libx/bitv.mli

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -183,12 +183,13 @@ val of_int64_s : Int64.t -> t
183183
val to_int64_s : t -> Int64.t
184184
val of_int64_us : Int64.t -> t
185185
val to_int64_us : t -> Int64.t
186+
#if 0 then
186187
(* type [Nativeint.t] (length 32/64 with sign, 31/63 without) *)
187188
val of_nativeint_s : Nativeint.t -> t
188189
val to_nativeint_s : t -> Nativeint.t
189190
val of_nativeint_us : Nativeint.t -> t
190191
val to_nativeint_us : t -> Nativeint.t
191-
192+
#end
192193
(*s Only if you know what you are doing... *)
193194

194195
val unsafe_set : t -> int -> bool -> unit

0 commit comments

Comments
 (0)