(* FIXME: This is probably wrong? *)
let extend_s n x = cvtop ty (ExtS (32 - n)) (make (Extract (x, n / 8, 0)))
(* --- *)
(* FIXME: This is probably wrong? *)
let extend_s n x = cvtop ty (ExtS (64 - n)) (make (Extract (x, n / 8, 0)))
let extend_i32_s x = cvtop ty (ExtS 32) x
let extend_i32_u x = cvtop ty (ExtU 32) x
symbolic_value: I32 and I64 modules