Sourcetype ('a, 'b, 'c, 'd, 'e, 'f, 'g) arch_info = {pd : Wsize.wsize;asmOp : ('a, 'b, 'c, 'd, 'e, 'f, 'g) Arch_extra.extended_op Sopn.sopn
Sopn.asmOp;known_implicits : (CoreIdent.Name.t * string) list;flagnames : CoreIdent.Name.t list;
} Sourceval tt_item :
('a, 'b, 'c, 'd, 'e, 'f, 'g) arch_info ->
('a, 'b, 'c, 'd, 'e, 'f, 'g) Arch_extra.extended_op Env.env ->
Syntax.pitem Location.located ->
('a, 'b, 'c, 'd, 'e, 'f, 'g) Arch_extra.extended_op Env.env Sourceval tt_fundef :
('a, 'b, 'c, 'd, 'e, 'f, 'g) arch_info ->
('a, 'b, 'c, 'd, 'e, 'f, 'g) Arch_extra.extended_op Env.env ->
Location.t ->
Syntax.pfundef ->
('a, 'b, 'c, 'd, 'e, 'f, 'g) Arch_extra.extended_op Env.env Sourceval tt_program :
('a, 'b, 'c, 'd, 'e, 'f, 'g) arch_info ->
('a, 'b, 'c, 'd, 'e, 'f, 'g) Arch_extra.extended_op Env.env ->
string ->
('a, 'b, 'c, 'd, 'e, 'f, 'g) Arch_extra.extended_op Env.env
* (unit, ('a, 'b, 'c, 'd, 'e, 'f, 'g) Arch_extra.extended_op) Prog.pmod_item
list
* Syntax.pprogram Sourceval tt_file :
('a, 'b, 'c, 'd, 'e, 'f, 'g) arch_info ->
('a, 'b, 'c, 'd, 'e, 'f, 'g) Arch_extra.extended_op Env.env ->
Annotations.pident option ->
Location.t option ->
string ->
('a, 'b, 'c, 'd, 'e, 'f, 'g) Arch_extra.extended_op Env.env * Syntax.pprogram