Make.1-_
val string_block_length : Cmm.expression -> Cmm.expression
val transl_switch : Debuginfo.t -> Cmm.expression -> int -> int -> (int * Cmm.expression) list -> Cmm.expression -> Cmm.expression