Module Jasmin.Lea

type lea = {
  1. lea_disp : BinNums.coq_Z;
  2. lea_base : Expr.var_i option;
  3. lea_scale : BinNums.coq_Z;
  4. lea_offset : Expr.var_i option;
}
val lea_const : BinNums.coq_Z -> lea
val lea_var : Expr.var_i -> lea
val mkLea : BinNums.coq_Z -> Expr.var_i option -> Eqtype.Equality.sort -> Expr.var_i option -> lea
val lea_mul : lea -> lea -> lea option
val lea_add : lea -> lea -> lea option
val lea_sub : lea -> lea -> lea option
val mk_lea_rec : Wsize.wsize -> Fexpr.fexpr -> lea option
val mk_lea : Wsize.wsize -> Expr.pexpr -> lea option
val shift_of_scale : BinNums.coq_Z -> Datatypes.nat option