util.ml
tracing
tracing.tool_output
tracing.tracing_zero
1 2 3 4 5 6 7 open! Core let[@inline] int_fits_in_int32 x = x < 1 lsl 31 && x >= -(1 lsl 31) let[@inline] int64_fits_in_int32 x = Int64.(x < shift_left 1L 31 && x >= -shift_left 1L 31) ;;
1 2 3 4 5 6 7
open! Core let[@inline] int_fits_in_int32 x = x < 1 lsl 31 && x >= -(1 lsl 31) let[@inline] int64_fits_in_int32 x = Int64.(x < shift_left 1L 31 && x >= -shift_left 1L 31) ;;