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