int64_utils.ml
timere
timere.tzdb
timere_tzdb_full
timere_tzdb_none
1 2 3 4 5 6 7 8 9 let ( +^ ) = Int64.add let ( -^ ) = Int64.sub let ( /^ ) = Int64.div let ( *^ ) = Int64.mul let div_round_up a b = (a +^ b -^ 1L) /^ b
1 2 3 4 5 6 7 8 9
let ( +^ ) = Int64.add let ( -^ ) = Int64.sub let ( /^ ) = Int64.div let ( *^ ) = Int64.mul let div_round_up a b = (a +^ b -^ 1L) /^ b