Switch.S
type primitive
val eqint : primitive
val neint : primitive
val leint : primitive
val ltint : primitive
val geint : primitive
val gtint : primitive
type loc
type arg
type test
type act
type layout
val bind : arg -> (arg -> act) -> act
val make_const : loc -> int -> arg
val make_offset : loc -> arg -> int -> arg
val make_prim : loc -> primitive -> arg list -> test
val make_isout : loc -> arg -> arg -> test
val make_isin : loc -> arg -> arg -> test
val make_is_nonzero : loc -> arg -> test
val arg_as_test : arg -> test
val make_if : layout -> test -> act -> act -> act
val make_switch : loc -> layout -> arg -> int array -> act array -> act
val make_catch : layout -> act -> Static_label.t * (act -> act)
val make_exit : Static_label.t -> act