Static analysis and strength reduction for operators and conditions. This is the machine-dependent part of Constprop.

Require Import Coqlib.
Require Import Compopts.
Require Import AST.
Require Import Integers.
Require Import Floats.
Require Import Op.
Require Import Registers.
Require Import ValueDomain ValueAOp.
Require Import ExtValues.

Converting known values to constants

Definition const_for_result (a: aval) : option operation :=
  match a with
  | I n | IU n => Some(Ointconst n)
  | F n => if Compopts.generate_float_constants tt then Some(Ofloatconst n) else None
  | FS n => if Compopts.generate_float_constants tt then Some(Osingleconst n) else None
  | Ptr(Gl id ofs) => Some (Oaddrsymbol id ofs)
  | Ptr(Stk ofs) => Some(Oaddrstack ofs)
  | _ => None
  end.

Operator strength reduction

We now define auxiliary functions for strength reduction of operators and addressing modes: replacing an operator with a cheaper one if some of its arguments are statically known. These are again large pattern-matchings expressed in indirect style.

Section STRENGTH_REDUCTION.

Definition eval_static_shift (s: shift) (n: int) : int :=
  match s with
  | Slsl x => Int.shl n x
  | Slsr x => Int.shru n x
  | Sasr x => Int.shr n x
  | Sror x => Int.ror n x
  end.

Original definition:

Nondetfunction cond_strength_reduction
              (cond: condition) (args: list reg) (vl: list aval) :=
  match cond, args, vl with
  | Ccomp c, r1 :: r2 :: nil, I n1 :: v2 :: nil =>
      (Ccompimm (swap_comparison c) n1, r2 :: nil)
  | Ccomp c, r1 :: r2 :: nil, v1 :: I n2 :: nil =>
      (Ccompimm c n2, r1 :: nil)
  | Ccompu c, r1 :: r2 :: nil, I n1 :: v2 :: nil =>
      (Ccompuimm (swap_comparison c) n1, r2 :: nil)
  | Ccompu c, r1 :: r2 :: nil, v1 :: I n2 :: nil =>
      (Ccompuimm c n2, r1 :: nil)
  | Ccompshift c s, r1 :: r2 :: nil, v1 :: I n2 :: nil =>
      (Ccompimm c (eval_static_shift s n2), r1 :: nil)
  | Ccompushift c s, r1 :: r2 :: nil, v1 :: I n2 :: nil =>
      (Ccompuimm c (eval_static_shift s n2), r1 :: nil)
  | Ccompf c, r1 :: r2 :: nil, F n1 :: v2 :: nil =>
      if Float.eq_dec n1 Float.zero
      then (Ccompfzero (swap_comparison c), r2 :: nil)
      else (cond, args)
  | Ccompf c, r1 :: r2 :: nil, v1 :: F n2 :: nil =>
      if Float.eq_dec n2 Float.zero
      then (Ccompfzero c, r1 :: nil)
      else (cond, args)
  | Cnotcompf c, r1 :: r2 :: nil, F n1 :: v2 :: nil =>
      if Float.eq_dec n1 Float.zero
      then (Cnotcompfzero (swap_comparison c), r2 :: nil)
      else (cond, args)
  | Cnotcompf c, r1 :: r2 :: nil, v1 :: F n2 :: nil =>
      if Float.eq_dec n2 Float.zero
      then (Cnotcompfzero c, r1 :: nil)
      else (cond, args)
  | Ccompfs c, r1 :: r2 :: nil, FS n1 :: v2 :: nil =>
      if Float32.eq_dec n1 Float32.zero
      then (Ccompfszero (swap_comparison c), r2 :: nil)
      else (cond, args)
  | Ccompfs c, r1 :: r2 :: nil, v1 :: FS n2 :: nil =>
      if Float32.eq_dec n2 Float32.zero
      then (Ccompfszero c, r1 :: nil)
      else (cond, args)
  | Cnotcompfs c, r1 :: r2 :: nil, FS n1 :: v2 :: nil =>
      if Float32.eq_dec n1 Float32.zero
      then (Cnotcompfszero (swap_comparison c), r2 :: nil)
      else (cond, args)
  | Cnotcompfs c, r1 :: r2 :: nil, v1 :: FS n2 :: nil =>
      if Float32.eq_dec n2 Float32.zero
      then (Cnotcompfszero c, r1 :: nil)
      else (cond, args)
  | _, _, _ =>
      (cond, args)
  end.

Inductive cond_strength_reduction_cases: forall (cond: condition) (args: list reg) (vl: list aval), Type :=
  | cond_strength_reduction_case1: forall c r1 r2 n1 v2, cond_strength_reduction_cases (Ccomp c) (r1 :: r2 :: nil) (I n1 :: v2 :: nil)
  | cond_strength_reduction_case2: forall c r1 r2 v1 n2, cond_strength_reduction_cases (Ccomp c) (r1 :: r2 :: nil) (v1 :: I n2 :: nil)
  | cond_strength_reduction_case3: forall c r1 r2 n1 v2, cond_strength_reduction_cases (Ccompu c) (r1 :: r2 :: nil) (I n1 :: v2 :: nil)
  | cond_strength_reduction_case4: forall c r1 r2 v1 n2, cond_strength_reduction_cases (Ccompu c) (r1 :: r2 :: nil) (v1 :: I n2 :: nil)
  | cond_strength_reduction_case5: forall c s r1 r2 v1 n2, cond_strength_reduction_cases (Ccompshift c s) (r1 :: r2 :: nil) (v1 :: I n2 :: nil)
  | cond_strength_reduction_case6: forall c s r1 r2 v1 n2, cond_strength_reduction_cases (Ccompushift c s) (r1 :: r2 :: nil) (v1 :: I n2 :: nil)
  | cond_strength_reduction_case7: forall c r1 r2 n1 v2, cond_strength_reduction_cases (Ccompf c) (r1 :: r2 :: nil) (F n1 :: v2 :: nil)
  | cond_strength_reduction_case8: forall c r1 r2 v1 n2, cond_strength_reduction_cases (Ccompf c) (r1 :: r2 :: nil) (v1 :: F n2 :: nil)
  | cond_strength_reduction_case9: forall c r1 r2 n1 v2, cond_strength_reduction_cases (Cnotcompf c) (r1 :: r2 :: nil) (F n1 :: v2 :: nil)
  | cond_strength_reduction_case10: forall c r1 r2 v1 n2, cond_strength_reduction_cases (Cnotcompf c) (r1 :: r2 :: nil) (v1 :: F n2 :: nil)
  | cond_strength_reduction_case11: forall c r1 r2 n1 v2, cond_strength_reduction_cases (Ccompfs c) (r1 :: r2 :: nil) (FS n1 :: v2 :: nil)
  | cond_strength_reduction_case12: forall c r1 r2 v1 n2, cond_strength_reduction_cases (Ccompfs c) (r1 :: r2 :: nil) (v1 :: FS n2 :: nil)
  | cond_strength_reduction_case13: forall c r1 r2 n1 v2, cond_strength_reduction_cases (Cnotcompfs c) (r1 :: r2 :: nil) (FS n1 :: v2 :: nil)
  | cond_strength_reduction_case14: forall c r1 r2 v1 n2, cond_strength_reduction_cases (Cnotcompfs c) (r1 :: r2 :: nil) (v1 :: FS n2 :: nil)
  | cond_strength_reduction_default: forall (cond: condition) (args: list reg) (vl: list aval), cond_strength_reduction_cases cond args vl.

Definition cond_strength_reduction_match (cond: condition) (args: list reg) (vl: list aval) :=
  match cond as zz1, args as zz2, vl as zz3 return cond_strength_reduction_cases zz1 zz2 zz3 with
  | Ccomp c, r1 :: r2 :: nil, I n1 :: v2 :: nil => cond_strength_reduction_case1 c r1 r2 n1 v2
  | Ccomp c, r1 :: r2 :: nil, v1 :: I n2 :: nil => cond_strength_reduction_case2 c r1 r2 v1 n2
  | Ccompu c, r1 :: r2 :: nil, I n1 :: v2 :: nil => cond_strength_reduction_case3 c r1 r2 n1 v2
  | Ccompu c, r1 :: r2 :: nil, v1 :: I n2 :: nil => cond_strength_reduction_case4 c r1 r2 v1 n2
  | Ccompshift c s, r1 :: r2 :: nil, v1 :: I n2 :: nil => cond_strength_reduction_case5 c s r1 r2 v1 n2
  | Ccompushift c s, r1 :: r2 :: nil, v1 :: I n2 :: nil => cond_strength_reduction_case6 c s r1 r2 v1 n2
  | Ccompf c, r1 :: r2 :: nil, F n1 :: v2 :: nil => cond_strength_reduction_case7 c r1 r2 n1 v2
  | Ccompf c, r1 :: r2 :: nil, v1 :: F n2 :: nil => cond_strength_reduction_case8 c r1 r2 v1 n2
  | Cnotcompf c, r1 :: r2 :: nil, F n1 :: v2 :: nil => cond_strength_reduction_case9 c r1 r2 n1 v2
  | Cnotcompf c, r1 :: r2 :: nil, v1 :: F n2 :: nil => cond_strength_reduction_case10 c r1 r2 v1 n2
  | Ccompfs c, r1 :: r2 :: nil, FS n1 :: v2 :: nil => cond_strength_reduction_case11 c r1 r2 n1 v2
  | Ccompfs c, r1 :: r2 :: nil, v1 :: FS n2 :: nil => cond_strength_reduction_case12 c r1 r2 v1 n2
  | Cnotcompfs c, r1 :: r2 :: nil, FS n1 :: v2 :: nil => cond_strength_reduction_case13 c r1 r2 n1 v2
  | Cnotcompfs c, r1 :: r2 :: nil, v1 :: FS n2 :: nil => cond_strength_reduction_case14 c r1 r2 v1 n2
  | cond, args, vl => cond_strength_reduction_default cond args vl
  end.

Definition cond_strength_reduction (cond: condition) (args: list reg) (vl: list aval) :=
  match cond_strength_reduction_match cond args vl with
  | cond_strength_reduction_case1 c r1 r2 n1 v2 =>
      (Ccompimm (swap_comparison c) n1, r2 :: nil)
  | cond_strength_reduction_case2 c r1 r2 v1 n2 =>
      (Ccompimm c n2, r1 :: nil)
  | cond_strength_reduction_case3 c r1 r2 n1 v2 =>
      (Ccompuimm (swap_comparison c) n1, r2 :: nil)
  | cond_strength_reduction_case4 c r1 r2 v1 n2 =>
      (Ccompuimm c n2, r1 :: nil)
  | cond_strength_reduction_case5 c s r1 r2 v1 n2 =>
      (Ccompimm c (eval_static_shift s n2), r1 :: nil)
  | cond_strength_reduction_case6 c s r1 r2 v1 n2 =>
      (Ccompuimm c (eval_static_shift s n2), r1 :: nil)
  | cond_strength_reduction_case7 c r1 r2 n1 v2 =>
      if Float.eq_dec n1 Float.zero then (Ccompfzero (swap_comparison c), r2 :: nil) else (cond, args)
  | cond_strength_reduction_case8 c r1 r2 v1 n2 =>
      if Float.eq_dec n2 Float.zero then (Ccompfzero c, r1 :: nil) else (cond, args)
  | cond_strength_reduction_case9 c r1 r2 n1 v2 =>
      if Float.eq_dec n1 Float.zero then (Cnotcompfzero (swap_comparison c), r2 :: nil) else (cond, args)
  | cond_strength_reduction_case10 c r1 r2 v1 n2 =>
      if Float.eq_dec n2 Float.zero then (Cnotcompfzero c, r1 :: nil) else (cond, args)
  | cond_strength_reduction_case11 c r1 r2 n1 v2 =>
      if Float32.eq_dec n1 Float32.zero then (Ccompfszero (swap_comparison c), r2 :: nil) else (cond, args)
  | cond_strength_reduction_case12 c r1 r2 v1 n2 =>
      if Float32.eq_dec n2 Float32.zero then (Ccompfszero c, r1 :: nil) else (cond, args)
  | cond_strength_reduction_case13 c r1 r2 n1 v2 =>
      if Float32.eq_dec n1 Float32.zero then (Cnotcompfszero (swap_comparison c), r2 :: nil) else (cond, args)
  | cond_strength_reduction_case14 c r1 r2 v1 n2 =>
      if Float32.eq_dec n2 Float32.zero then (Cnotcompfszero c, r1 :: nil) else (cond, args)
  | cond_strength_reduction_default cond args vl =>
      (cond, args)
  end.

Definition make_cmp_base (c: condition) (args: list reg) (vl: list aval) :=
  let (c', args') := cond_strength_reduction c args vl in (Ocmp c', args').

Definition make_cmp_imm_eq (c: condition) (args: list reg) (vl: list aval)
                           (n: int) (r1: reg) (v1: aval) :=
  if Int.eq_dec n Int.one && vincl v1 (Uns Ptop 1) then (Omove, r1 :: nil)
  else if Int.eq_dec n Int.zero && vincl v1 (Uns Ptop 1) then (Oxorimm Int.one, r1 :: nil)
  else make_cmp_base c args vl.

Definition make_cmp_imm_ne (c: condition) (args: list reg) (vl: list aval)
                           (n: int) (r1: reg) (v1: aval) :=
  if Int.eq_dec n Int.zero && vincl v1 (Uns Ptop 1) then (Omove, r1 :: nil)
  else if Int.eq_dec n Int.one && vincl v1 (Uns Ptop 1) then (Oxorimm Int.one, r1 :: nil)
  else make_cmp_base c args vl.

Original definition:

Nondetfunction make_cmp (c: condition) (args: list reg) (vl: list aval) :=
  match c, args, vl with
  | Ccompimm Ceq n, r1 :: nil, v1 :: nil =>
      make_cmp_imm_eq c args vl n r1 v1
  | Ccompimm Cne n, r1 :: nil, v1 :: nil =>
      make_cmp_imm_ne c args vl n r1 v1
  | Ccompimm Clt n, r1 :: nil, v1 :: nil => if Int.eq_dec n Int.zero then (Oshift (Slsr (mk_shift_amount (Int.repr 31))), r1 :: nil) else make_cmp_base c args vl
  | Ccompuimm Ceq n, r1 :: nil, v1 :: nil =>
      make_cmp_imm_eq c args vl n r1 v1
  | Ccompuimm Cne n, r1 :: nil, v1 :: nil =>
      make_cmp_imm_ne c args vl n r1 v1
  | _, _, _ =>
      make_cmp_base c args vl
  end.

Inductive make_cmp_cases: forall (c: condition) (args: list reg) (vl: list aval), Type :=
  | make_cmp_case1: forall n r1 v1, make_cmp_cases (Ccompimm Ceq n) (r1 :: nil) (v1 :: nil)
  | make_cmp_case2: forall n r1 v1, make_cmp_cases (Ccompimm Cne n) (r1 :: nil) (v1 :: nil)
  | make_cmp_case3: forall n r1 v1, make_cmp_cases (Ccompimm Clt n) (r1 :: nil) (v1 :: nil)
  | make_cmp_case4: forall n r1 v1, make_cmp_cases (Ccompuimm Ceq n) (r1 :: nil) (v1 :: nil)
  | make_cmp_case5: forall n r1 v1, make_cmp_cases (Ccompuimm Cne n) (r1 :: nil) (v1 :: nil)
  | make_cmp_default: forall (c: condition) (args: list reg) (vl: list aval), make_cmp_cases c args vl.

Definition make_cmp_match (c: condition) (args: list reg) (vl: list aval) :=
  match c as zz1, args as zz2, vl as zz3 return make_cmp_cases zz1 zz2 zz3 with
  | Ccompimm Ceq n, r1 :: nil, v1 :: nil => make_cmp_case1 n r1 v1
  | Ccompimm Cne n, r1 :: nil, v1 :: nil => make_cmp_case2 n r1 v1
  | Ccompimm Clt n, r1 :: nil, v1 :: nil => make_cmp_case3 n r1 v1
  | Ccompuimm Ceq n, r1 :: nil, v1 :: nil => make_cmp_case4 n r1 v1
  | Ccompuimm Cne n, r1 :: nil, v1 :: nil => make_cmp_case5 n r1 v1
  | c, args, vl => make_cmp_default c args vl
  end.

Definition make_cmp (c: condition) (args: list reg) (vl: list aval) :=
  match make_cmp_match c args vl with
  | make_cmp_case1 n r1 v1 =>
      make_cmp_imm_eq c args vl n r1 v1
  | make_cmp_case2 n r1 v1 =>
      make_cmp_imm_ne c args vl n r1 v1
  | make_cmp_case3 n r1 v1 =>
      if Int.eq_dec n Int.zero then (Oshift (Slsr (mk_shift_amount (Int.repr 31))), r1 :: nil) else make_cmp_base c args vl
  | make_cmp_case4 n r1 v1 =>
      make_cmp_imm_eq c args vl n r1 v1
  | make_cmp_case5 n r1 v1 =>
      make_cmp_imm_ne c args vl n r1 v1
  | make_cmp_default c args vl =>
      make_cmp_base c args vl
  end.

Definition make_select (c: condition)
                       (r1 r2: reg) (args: list reg) (vl: list aval) :=
  match resolve_branch (eval_static_condition c vl) with
  | Some b => (Omove, (if b then r1 else r2) :: nil)
  | None =>
      let (c', args') := cond_strength_reduction c args vl in
      (Osel c', r1 :: r2 :: args')
  end.

Definition make_addimm (n: int) (r: reg) :=
  if Int.eq n Int.zero
  then (Omove, r :: nil)
  else (Oaddimm n, r :: nil).

Definition make_shlimm (n: int) (r1 r2: reg) :=
  if Int.eq n Int.zero then
    (Omove, r1 :: nil)
  else if Int.ltu n Int.iwordsize then
    (Oshift (Slsl (mk_shift_amount n)), r1 :: nil)
  else
    (Oshl, r1 :: r2 :: nil).

Definition make_shrimm (n: int) (r1 r2: reg) :=
  if Int.eq n Int.zero then
    (Omove, r1 :: nil)
  else if Int.ltu n Int.iwordsize then
    (Oshift (Sasr (mk_shift_amount n)), r1 :: nil)
  else
    (Oshr, r1 :: r2 :: nil).

Definition make_shruimm (n: int) (r1 r2: reg) :=
  if Int.eq n Int.zero then
    (Omove, r1 :: nil)
  else if Int.ltu n Int.iwordsize then
    (Oshift (Slsr (mk_shift_amount n)), r1 :: nil)
  else
    (Oshru, r1 :: r2 :: nil).

Definition make_mulimm (n: int) (r1 r2: reg) :=
  if Int.eq n Int.zero then
    (Ointconst Int.zero, nil)
  else if Int.eq n Int.one then
    (Omove, r1 :: nil)
  else
    match Int.is_power2 n with
    | Some l => (Oshift (Slsl (mk_shift_amount l)), r1 :: nil)
    | None => (Omul, r1 :: r2 :: nil)
    end.

Definition make_divimm (n: int) (r1 r2: reg) :=
  if Int.eq n Int.one then
    (Omove, r1 :: nil)
  else
    match Int.is_power2 n with
    | Some l => if Int.ltu l (Int.repr 31)
                then (Oshrximm l, r1 :: nil)
                else (Odiv, r1 :: r2 :: nil)
    | None => (Odiv, r1 :: r2 :: nil)
    end.

Definition make_divuimm (n: int) (r1 r2: reg) :=
  if Int.eq n Int.one then
    (Omove, r1 :: nil)
  else
    match Int.is_power2 n with
    | Some l => (Oshift (Slsr (mk_shift_amount l)), r1 :: nil)
    | None => (Odivu, r1 :: r2 :: nil)
    end.

Definition make_andimm (n: int) (r: reg) (a: aval) :=
  if Int.eq n Int.zero then (Ointconst Int.zero, nil)
  else if Int.eq n Int.mone then (Omove, r :: nil)
  else if match a with Uns _ m => Int.eq (Int.zero_ext m (Int.not n)) Int.zero
                     | _ => false end
  then (Omove, r :: nil)
  else (Oandimm n, r :: nil).

Definition make_orimm (n: int) (r: reg) :=
  if Int.eq n Int.zero then (Omove, r :: nil)
  else if Int.eq n Int.mone then (Ointconst Int.mone, nil)
  else (Oorimm n, r :: nil).

Definition make_xorimm (n: int) (r: reg) :=
  if Int.eq n Int.zero then (Omove, r :: nil)
  else if Int.eq n Int.mone then (Onot, r :: nil)
  else (Oxorimm n, r :: nil).

Definition make_mulfimm (n: float) (r r1 r2: reg) :=
  if Float.eq_dec n (Float.of_int (Int.repr 2))
  then (Oaddf, r :: r :: nil)
  else (Omulf, r1 :: r2 :: nil).

Definition make_mulfsimm (n: float32) (r r1 r2: reg) :=
  if Float32.eq_dec n (Float32.of_int (Int.repr 2))
  then (Oaddfs, r :: r :: nil)
  else (Omulfs, r1 :: r2 :: nil).

Definition make_cast8signed (r: reg) (a: aval) :=
  if vincl a (Sgn Ptop 8) then (Omove, r :: nil) else (Ocast8signed, r :: nil).
Definition make_cast16signed (r: reg) (a: aval) :=
  if vincl a (Sgn Ptop 16) then (Omove, r :: nil) else (Ocast16signed, r :: nil).

Definition make_mla_mulimm (n1: int) (r1 r2 r3: reg) :=
  if Int.eq n1 Int.zero then
    (Omove, r3 :: nil)
  else if Int.eq n1 Int.one then
    (Oadd, r2 :: r3 :: nil)
  else
    (Omla, r1 :: r2 :: r3 :: nil).

Definition make_mla_addimm (n3: int) (r1 r2 r3: reg) :=
  if Int.eq n3 Int.zero then
    (Omul, r1 :: r2 :: nil)
  else
    (Omla, r1 :: r2 :: r3 :: nil).

Definition make_mla_bothimm (n1 n3: int) (r1 r2 r3: reg) :=
  if Int.eq n1 Int.zero then
    (Ointconst n3, nil)
  else if Int.eq n1 Int.one then
    make_addimm n3 r2
  else if Int.eq n3 Int.zero then
    make_mulimm n1 r2 r1
  else
    (Omla, r1 :: r2 :: r3 :: nil).

Definition make_obfc_strength (lsb sz: int) (r1: reg) (v1: aval) :=
  if match v1 with
     | Uns _ k => Z.leb k (Int.unsigned lsb)
     | _ => false
     end
  then (Omove, r1 :: nil)
  else if Archi.thumb2_support
  then (Obfc lsb sz, r1 :: nil)
  else make_andimm (Int.not (bitfield_mask lsb sz)) r1 v1.

Original definition:

Nondetfunction op_strength_reduction
              (op: operation) (args: list reg) (vl: list aval) :=
  match op, args, vl with
  | Ocast8signed, r1 :: nil, v1 :: nil => make_cast8signed r1 v1
  | Ocast16signed, r1 :: nil, v1 :: nil => make_cast16signed r1 v1
  | Oadd, r1 :: r2 :: nil, I n1 :: v2 :: nil => make_addimm n1 r2
  | Oadd, r1 :: r2 :: nil, v1 :: I n2 :: nil => make_addimm n2 r1
  | Oaddshift s, r1 :: r2 :: nil, v1 :: I n2 :: nil => make_addimm (eval_static_shift s n2) r1
  | Osub, r1 :: r2 :: nil, I n1 :: v2 :: nil => (Orsubimm n1, r2 :: nil)
  | Osub, r1 :: r2 :: nil, v1 :: I n2 :: nil => make_addimm (Int.neg n2) r1
  | Osubshift s, r1 :: r2 :: nil, v1 :: I n2 :: nil => make_addimm (Int.neg (eval_static_shift s n2)) r1
  | Orsubshift s, r1 :: r2 :: nil, v1 :: I n2 :: nil => (Orsubimm (eval_static_shift s n2), r1 :: nil)
  | Omul, r1 :: r2 :: nil, I n1 :: v2 :: nil => make_mulimm n1 r2 r1
  | Omul, r1 :: r2 :: nil, v1 :: I n2 :: nil => make_mulimm n2 r1 r2
  | Omla, r1 :: r2 :: r3 :: nil, I n1 :: v2 :: I n3 :: nil => make_mla_bothimm n1 n3 r1 r2 r3
  | Omla, r1 :: r2 :: r3 :: nil, v1 :: I n2 :: I n3 :: nil => make_mla_bothimm n2 n3 r2 r1 r3
  | Omla, r1 :: r2 :: r3 :: nil, I n1 :: v2 :: v3 :: nil => make_mla_mulimm n1 r1 r2 r3
  | Omla, r1 :: r2 :: r3 :: nil, v1 :: I n2 :: v3 :: nil => make_mla_mulimm n2 r2 r1 r3
  | Omla, r1 :: r2 :: r3 :: nil, v1 :: v2 :: I n3 :: nil => make_mla_addimm n3 r1 r2 r3
  | Odiv, r1 :: r2 :: nil, v1 :: I n2 :: nil => make_divimm n2 r1 r2
  | Odivu, r1 :: r2 :: nil, v1 :: I n2 :: nil => make_divuimm n2 r1 r2
  | Oand, r1 :: r2 :: nil, I n1 :: v2 :: nil => make_andimm n1 r2 v2
  | Oand, r1 :: r2 :: nil, v1 :: I n2 :: nil => make_andimm n2 r1 v1
  | Oandshift s, r1 :: r2 :: nil, v1 :: I n2 :: nil => make_andimm (eval_static_shift s n2) r1 v1
  | Oandimm n, r1 :: nil, v1 :: nil => make_andimm n r1 v1
  | Oor, r1 :: r2 :: nil, I n1 :: v2 :: nil => make_orimm n1 r2
  | Oor, r1 :: r2 :: nil, v1 :: I n2 :: nil => make_orimm n2 r1
  | Oorshift s, r1 :: r2 :: nil, v1 :: I n2 :: nil => make_orimm (eval_static_shift s n2) r1
  | Oxor, r1 :: r2 :: nil, I n1 :: v2 :: nil => make_xorimm n1 r2
  | Oxor, r1 :: r2 :: nil, v1 :: I n2 :: nil => make_xorimm n2 r1
  | Oxorshift s, r1 :: r2 :: nil, v1 :: I n2 :: nil => make_xorimm (eval_static_shift s n2) r1
  | Obic, r1 :: r2 :: nil, v1 :: I n2 :: nil => make_andimm (Int.not n2) r1 v1
  | Obicshift s, r1 :: r2 :: nil, v1 :: I n2 :: nil => make_andimm (Int.not (eval_static_shift s n2)) r1 v1
  | Obfc lsb sz, r1 :: nil, v1 :: nil => make_obfc_strength lsb sz r1 v1
  | Oshl, r1 :: r2 :: nil, v1 :: I n2 :: nil => make_shlimm n2 r1 r2
  | Oshr, r1 :: r2 :: nil, v1 :: I n2 :: nil => make_shrimm n2 r1 r2
  | Oshru, r1 :: r2 :: nil, v1 :: I n2 :: nil => make_shruimm n2 r1 r2
  | Ocmp c, args, vl => make_cmp c args vl
  | Osel c, r1 :: r2 :: args, v1 :: v2 :: vl => make_select c r1 r2 args vl
  | Omulf, r1 :: r2 :: nil, v1 :: F n2 :: nil => make_mulfimm n2 r1 r1 r2
  | Omulf, r1 :: r2 :: nil, F n1 :: v2 :: nil => make_mulfimm n1 r2 r1 r2
  | Omulfs, r1 :: r2 :: nil, v1 :: FS n2 :: nil => make_mulfsimm n2 r1 r1 r2
  | Omulfs, r1 :: r2 :: nil, FS n1 :: v2 :: nil => make_mulfsimm n1 r2 r1 r2
  | _, _, _ => (op, args)
  end.

Inductive op_strength_reduction_cases: forall (op: operation) (args: list reg) (vl: list aval), Type :=
  | op_strength_reduction_case1: forall r1 v1, op_strength_reduction_cases (Ocast8signed) (r1 :: nil) (v1 :: nil)
  | op_strength_reduction_case2: forall r1 v1, op_strength_reduction_cases (Ocast16signed) (r1 :: nil) (v1 :: nil)
  | op_strength_reduction_case3: forall r1 r2 n1 v2, op_strength_reduction_cases (Oadd) (r1 :: r2 :: nil) (I n1 :: v2 :: nil)
  | op_strength_reduction_case4: forall r1 r2 v1 n2, op_strength_reduction_cases (Oadd) (r1 :: r2 :: nil) (v1 :: I n2 :: nil)
  | op_strength_reduction_case5: forall s r1 r2 v1 n2, op_strength_reduction_cases (Oaddshift s) (r1 :: r2 :: nil) (v1 :: I n2 :: nil)
  | op_strength_reduction_case6: forall r1 r2 n1 v2, op_strength_reduction_cases (Osub) (r1 :: r2 :: nil) (I n1 :: v2 :: nil)
  | op_strength_reduction_case7: forall r1 r2 v1 n2, op_strength_reduction_cases (Osub) (r1 :: r2 :: nil) (v1 :: I n2 :: nil)
  | op_strength_reduction_case8: forall s r1 r2 v1 n2, op_strength_reduction_cases (Osubshift s) (r1 :: r2 :: nil) (v1 :: I n2 :: nil)
  | op_strength_reduction_case9: forall s r1 r2 v1 n2, op_strength_reduction_cases (Orsubshift s) (r1 :: r2 :: nil) (v1 :: I n2 :: nil)
  | op_strength_reduction_case10: forall r1 r2 n1 v2, op_strength_reduction_cases (Omul) (r1 :: r2 :: nil) (I n1 :: v2 :: nil)
  | op_strength_reduction_case11: forall r1 r2 v1 n2, op_strength_reduction_cases (Omul) (r1 :: r2 :: nil) (v1 :: I n2 :: nil)
  | op_strength_reduction_case12: forall r1 r2 r3 n1 v2 n3, op_strength_reduction_cases (Omla) (r1 :: r2 :: r3 :: nil) (I n1 :: v2 :: I n3 :: nil)
  | op_strength_reduction_case13: forall r1 r2 r3 v1 n2 n3, op_strength_reduction_cases (Omla) (r1 :: r2 :: r3 :: nil) (v1 :: I n2 :: I n3 :: nil)
  | op_strength_reduction_case14: forall r1 r2 r3 n1 v2 v3, op_strength_reduction_cases (Omla) (r1 :: r2 :: r3 :: nil) (I n1 :: v2 :: v3 :: nil)
  | op_strength_reduction_case15: forall r1 r2 r3 v1 n2 v3, op_strength_reduction_cases (Omla) (r1 :: r2 :: r3 :: nil) (v1 :: I n2 :: v3 :: nil)
  | op_strength_reduction_case16: forall r1 r2 r3 v1 v2 n3, op_strength_reduction_cases (Omla) (r1 :: r2 :: r3 :: nil) (v1 :: v2 :: I n3 :: nil)
  | op_strength_reduction_case17: forall r1 r2 v1 n2, op_strength_reduction_cases (Odiv) (r1 :: r2 :: nil) (v1 :: I n2 :: nil)
  | op_strength_reduction_case18: forall r1 r2 v1 n2, op_strength_reduction_cases (Odivu) (r1 :: r2 :: nil) (v1 :: I n2 :: nil)
  | op_strength_reduction_case19: forall r1 r2 n1 v2, op_strength_reduction_cases (Oand) (r1 :: r2 :: nil) (I n1 :: v2 :: nil)
  | op_strength_reduction_case20: forall r1 r2 v1 n2, op_strength_reduction_cases (Oand) (r1 :: r2 :: nil) (v1 :: I n2 :: nil)
  | op_strength_reduction_case21: forall s r1 r2 v1 n2, op_strength_reduction_cases (Oandshift s) (r1 :: r2 :: nil) (v1 :: I n2 :: nil)
  | op_strength_reduction_case22: forall n r1 v1, op_strength_reduction_cases (Oandimm n) (r1 :: nil) (v1 :: nil)
  | op_strength_reduction_case23: forall r1 r2 n1 v2, op_strength_reduction_cases (Oor) (r1 :: r2 :: nil) (I n1 :: v2 :: nil)
  | op_strength_reduction_case24: forall r1 r2 v1 n2, op_strength_reduction_cases (Oor) (r1 :: r2 :: nil) (v1 :: I n2 :: nil)
  | op_strength_reduction_case25: forall s r1 r2 v1 n2, op_strength_reduction_cases (Oorshift s) (r1 :: r2 :: nil) (v1 :: I n2 :: nil)
  | op_strength_reduction_case26: forall r1 r2 n1 v2, op_strength_reduction_cases (Oxor) (r1 :: r2 :: nil) (I n1 :: v2 :: nil)
  | op_strength_reduction_case27: forall r1 r2 v1 n2, op_strength_reduction_cases (Oxor) (r1 :: r2 :: nil) (v1 :: I n2 :: nil)
  | op_strength_reduction_case28: forall s r1 r2 v1 n2, op_strength_reduction_cases (Oxorshift s) (r1 :: r2 :: nil) (v1 :: I n2 :: nil)
  | op_strength_reduction_case29: forall r1 r2 v1 n2, op_strength_reduction_cases (Obic) (r1 :: r2 :: nil) (v1 :: I n2 :: nil)
  | op_strength_reduction_case30: forall s r1 r2 v1 n2, op_strength_reduction_cases (Obicshift s) (r1 :: r2 :: nil) (v1 :: I n2 :: nil)
  | op_strength_reduction_case31: forall lsb sz r1 v1, op_strength_reduction_cases (Obfc lsb sz) (r1 :: nil) (v1 :: nil)
  | op_strength_reduction_case32: forall r1 r2 v1 n2, op_strength_reduction_cases (Oshl) (r1 :: r2 :: nil) (v1 :: I n2 :: nil)
  | op_strength_reduction_case33: forall r1 r2 v1 n2, op_strength_reduction_cases (Oshr) (r1 :: r2 :: nil) (v1 :: I n2 :: nil)
  | op_strength_reduction_case34: forall r1 r2 v1 n2, op_strength_reduction_cases (Oshru) (r1 :: r2 :: nil) (v1 :: I n2 :: nil)
  | op_strength_reduction_case35: forall c args vl, op_strength_reduction_cases (Ocmp c) (args) (vl)
  | op_strength_reduction_case36: forall c r1 r2 args v1 v2 vl, op_strength_reduction_cases (Osel c) (r1 :: r2 :: args) (v1 :: v2 :: vl)
  | op_strength_reduction_case37: forall r1 r2 v1 n2, op_strength_reduction_cases (Omulf) (r1 :: r2 :: nil) (v1 :: F n2 :: nil)
  | op_strength_reduction_case38: forall r1 r2 n1 v2, op_strength_reduction_cases (Omulf) (r1 :: r2 :: nil) (F n1 :: v2 :: nil)
  | op_strength_reduction_case39: forall r1 r2 v1 n2, op_strength_reduction_cases (Omulfs) (r1 :: r2 :: nil) (v1 :: FS n2 :: nil)
  | op_strength_reduction_case40: forall r1 r2 n1 v2, op_strength_reduction_cases (Omulfs) (r1 :: r2 :: nil) (FS n1 :: v2 :: nil)
  | op_strength_reduction_default: forall (op: operation) (args: list reg) (vl: list aval), op_strength_reduction_cases op args vl.

Definition op_strength_reduction_match (op: operation) (args: list reg) (vl: list aval) :=
  match op as zz1, args as zz2, vl as zz3 return op_strength_reduction_cases zz1 zz2 zz3 with
  | Ocast8signed, r1 :: nil, v1 :: nil => op_strength_reduction_case1 r1 v1
  | Ocast16signed, r1 :: nil, v1 :: nil => op_strength_reduction_case2 r1 v1
  | Oadd, r1 :: r2 :: nil, I n1 :: v2 :: nil => op_strength_reduction_case3 r1 r2 n1 v2
  | Oadd, r1 :: r2 :: nil, v1 :: I n2 :: nil => op_strength_reduction_case4 r1 r2 v1 n2
  | Oaddshift s, r1 :: r2 :: nil, v1 :: I n2 :: nil => op_strength_reduction_case5 s r1 r2 v1 n2
  | Osub, r1 :: r2 :: nil, I n1 :: v2 :: nil => op_strength_reduction_case6 r1 r2 n1 v2
  | Osub, r1 :: r2 :: nil, v1 :: I n2 :: nil => op_strength_reduction_case7 r1 r2 v1 n2
  | Osubshift s, r1 :: r2 :: nil, v1 :: I n2 :: nil => op_strength_reduction_case8 s r1 r2 v1 n2
  | Orsubshift s, r1 :: r2 :: nil, v1 :: I n2 :: nil => op_strength_reduction_case9 s r1 r2 v1 n2
  | Omul, r1 :: r2 :: nil, I n1 :: v2 :: nil => op_strength_reduction_case10 r1 r2 n1 v2
  | Omul, r1 :: r2 :: nil, v1 :: I n2 :: nil => op_strength_reduction_case11 r1 r2 v1 n2
  | Omla, r1 :: r2 :: r3 :: nil, I n1 :: v2 :: I n3 :: nil => op_strength_reduction_case12 r1 r2 r3 n1 v2 n3
  | Omla, r1 :: r2 :: r3 :: nil, v1 :: I n2 :: I n3 :: nil => op_strength_reduction_case13 r1 r2 r3 v1 n2 n3
  | Omla, r1 :: r2 :: r3 :: nil, I n1 :: v2 :: v3 :: nil => op_strength_reduction_case14 r1 r2 r3 n1 v2 v3
  | Omla, r1 :: r2 :: r3 :: nil, v1 :: I n2 :: v3 :: nil => op_strength_reduction_case15 r1 r2 r3 v1 n2 v3
  | Omla, r1 :: r2 :: r3 :: nil, v1 :: v2 :: I n3 :: nil => op_strength_reduction_case16 r1 r2 r3 v1 v2 n3
  | Odiv, r1 :: r2 :: nil, v1 :: I n2 :: nil => op_strength_reduction_case17 r1 r2 v1 n2
  | Odivu, r1 :: r2 :: nil, v1 :: I n2 :: nil => op_strength_reduction_case18 r1 r2 v1 n2
  | Oand, r1 :: r2 :: nil, I n1 :: v2 :: nil => op_strength_reduction_case19 r1 r2 n1 v2
  | Oand, r1 :: r2 :: nil, v1 :: I n2 :: nil => op_strength_reduction_case20 r1 r2 v1 n2
  | Oandshift s, r1 :: r2 :: nil, v1 :: I n2 :: nil => op_strength_reduction_case21 s r1 r2 v1 n2
  | Oandimm n, r1 :: nil, v1 :: nil => op_strength_reduction_case22 n r1 v1
  | Oor, r1 :: r2 :: nil, I n1 :: v2 :: nil => op_strength_reduction_case23 r1 r2 n1 v2
  | Oor, r1 :: r2 :: nil, v1 :: I n2 :: nil => op_strength_reduction_case24 r1 r2 v1 n2
  | Oorshift s, r1 :: r2 :: nil, v1 :: I n2 :: nil => op_strength_reduction_case25 s r1 r2 v1 n2
  | Oxor, r1 :: r2 :: nil, I n1 :: v2 :: nil => op_strength_reduction_case26 r1 r2 n1 v2
  | Oxor, r1 :: r2 :: nil, v1 :: I n2 :: nil => op_strength_reduction_case27 r1 r2 v1 n2
  | Oxorshift s, r1 :: r2 :: nil, v1 :: I n2 :: nil => op_strength_reduction_case28 s r1 r2 v1 n2
  | Obic, r1 :: r2 :: nil, v1 :: I n2 :: nil => op_strength_reduction_case29 r1 r2 v1 n2
  | Obicshift s, r1 :: r2 :: nil, v1 :: I n2 :: nil => op_strength_reduction_case30 s r1 r2 v1 n2
  | Obfc lsb sz, r1 :: nil, v1 :: nil => op_strength_reduction_case31 lsb sz r1 v1
  | Oshl, r1 :: r2 :: nil, v1 :: I n2 :: nil => op_strength_reduction_case32 r1 r2 v1 n2
  | Oshr, r1 :: r2 :: nil, v1 :: I n2 :: nil => op_strength_reduction_case33 r1 r2 v1 n2
  | Oshru, r1 :: r2 :: nil, v1 :: I n2 :: nil => op_strength_reduction_case34 r1 r2 v1 n2
  | Ocmp c, args, vl => op_strength_reduction_case35 c args vl
  | Osel c, r1 :: r2 :: args, v1 :: v2 :: vl => op_strength_reduction_case36 c r1 r2 args v1 v2 vl
  | Omulf, r1 :: r2 :: nil, v1 :: F n2 :: nil => op_strength_reduction_case37 r1 r2 v1 n2
  | Omulf, r1 :: r2 :: nil, F n1 :: v2 :: nil => op_strength_reduction_case38 r1 r2 n1 v2
  | Omulfs, r1 :: r2 :: nil, v1 :: FS n2 :: nil => op_strength_reduction_case39 r1 r2 v1 n2
  | Omulfs, r1 :: r2 :: nil, FS n1 :: v2 :: nil => op_strength_reduction_case40 r1 r2 n1 v2
  | op, args, vl => op_strength_reduction_default op args vl
  end.

Definition op_strength_reduction (op: operation) (args: list reg) (vl: list aval) :=
  match op_strength_reduction_match op args vl with
  | op_strength_reduction_case1 r1 v1 =>
      make_cast8signed r1 v1
  | op_strength_reduction_case2 r1 v1 =>
      make_cast16signed r1 v1
  | op_strength_reduction_case3 r1 r2 n1 v2 =>
      make_addimm n1 r2
  | op_strength_reduction_case4 r1 r2 v1 n2 =>
      make_addimm n2 r1
  | op_strength_reduction_case5 s r1 r2 v1 n2 =>
      make_addimm (eval_static_shift s n2) r1
  | op_strength_reduction_case6 r1 r2 n1 v2 =>
      (Orsubimm n1, r2 :: nil)
  | op_strength_reduction_case7 r1 r2 v1 n2 =>
      make_addimm (Int.neg n2) r1
  | op_strength_reduction_case8 s r1 r2 v1 n2 =>
      make_addimm (Int.neg (eval_static_shift s n2)) r1
  | op_strength_reduction_case9 s r1 r2 v1 n2 =>
      (Orsubimm (eval_static_shift s n2), r1 :: nil)
  | op_strength_reduction_case10 r1 r2 n1 v2 =>
      make_mulimm n1 r2 r1
  | op_strength_reduction_case11 r1 r2 v1 n2 =>
      make_mulimm n2 r1 r2
  | op_strength_reduction_case12 r1 r2 r3 n1 v2 n3 =>
      make_mla_bothimm n1 n3 r1 r2 r3
  | op_strength_reduction_case13 r1 r2 r3 v1 n2 n3 =>
      make_mla_bothimm n2 n3 r2 r1 r3
  | op_strength_reduction_case14 r1 r2 r3 n1 v2 v3 =>
      make_mla_mulimm n1 r1 r2 r3
  | op_strength_reduction_case15 r1 r2 r3 v1 n2 v3 =>
      make_mla_mulimm n2 r2 r1 r3
  | op_strength_reduction_case16 r1 r2 r3 v1 v2 n3 =>
      make_mla_addimm n3 r1 r2 r3
  | op_strength_reduction_case17 r1 r2 v1 n2 =>
      make_divimm n2 r1 r2
  | op_strength_reduction_case18 r1 r2 v1 n2 =>
      make_divuimm n2 r1 r2
  | op_strength_reduction_case19 r1 r2 n1 v2 =>
      make_andimm n1 r2 v2
  | op_strength_reduction_case20 r1 r2 v1 n2 =>
      make_andimm n2 r1 v1
  | op_strength_reduction_case21 s r1 r2 v1 n2 =>
      make_andimm (eval_static_shift s n2) r1 v1
  | op_strength_reduction_case22 n r1 v1 =>
      make_andimm n r1 v1
  | op_strength_reduction_case23 r1 r2 n1 v2 =>
      make_orimm n1 r2
  | op_strength_reduction_case24 r1 r2 v1 n2 =>
      make_orimm n2 r1
  | op_strength_reduction_case25 s r1 r2 v1 n2 =>
      make_orimm (eval_static_shift s n2) r1
  | op_strength_reduction_case26 r1 r2 n1 v2 =>
      make_xorimm n1 r2
  | op_strength_reduction_case27 r1 r2 v1 n2 =>
      make_xorimm n2 r1
  | op_strength_reduction_case28 s r1 r2 v1 n2 =>
      make_xorimm (eval_static_shift s n2) r1
  | op_strength_reduction_case29 r1 r2 v1 n2 =>
      make_andimm (Int.not n2) r1 v1
  | op_strength_reduction_case30 s r1 r2 v1 n2 =>
      make_andimm (Int.not (eval_static_shift s n2)) r1 v1
  | op_strength_reduction_case31 lsb sz r1 v1 =>
      make_obfc_strength lsb sz r1 v1
  | op_strength_reduction_case32 r1 r2 v1 n2 =>
      make_shlimm n2 r1 r2
  | op_strength_reduction_case33 r1 r2 v1 n2 =>
      make_shrimm n2 r1 r2
  | op_strength_reduction_case34 r1 r2 v1 n2 =>
      make_shruimm n2 r1 r2
  | op_strength_reduction_case35 c args vl =>
      make_cmp c args vl
  | op_strength_reduction_case36 c r1 r2 args v1 v2 vl =>
      make_select c r1 r2 args vl
  | op_strength_reduction_case37 r1 r2 v1 n2 =>
      make_mulfimm n2 r1 r1 r2
  | op_strength_reduction_case38 r1 r2 n1 v2 =>
      make_mulfimm n1 r2 r1 r2
  | op_strength_reduction_case39 r1 r2 v1 n2 =>
      make_mulfsimm n2 r1 r1 r2
  | op_strength_reduction_case40 r1 r2 n1 v2 =>
      make_mulfsimm n1 r2 r1 r2
  | op_strength_reduction_default op args vl =>
      (op, args)
  end.

Original definition:

Nondetfunction addr_strength_reduction
                (addr: addressing) (args: list reg) (vl: list aval) :=
  match addr, args, vl with
  | Aindexed2, r1 :: r2 :: nil, Ptr(Stk n1) :: I n2 :: nil =>
      (Ainstack (Ptrofs.add n1 (Ptrofs.of_int n2)), nil)
  | Aindexed2, r1 :: r2 :: nil, I n1 :: Ptr(Stk n2) :: nil =>
      (Ainstack (Ptrofs.add (Ptrofs.of_int n1) n2), nil)
  | Aindexed2, r1 :: r2 :: nil, I n1 :: v2 :: nil =>
      (Aindexed n1, r2 :: nil)
  | Aindexed2, r1 :: r2 :: nil, v1 :: I n2 :: nil =>
      (Aindexed n2, r1 :: nil)
  | Aindexed2shift s, r1 :: r2 :: nil, Ptr(Stk n1) :: I n2 :: nil =>
      (Ainstack (Ptrofs.add n1 (Ptrofs.of_int (eval_static_shift s n2))), nil)
  | Aindexed2shift s, r1 :: r2 :: nil, v1 :: I n2 :: nil =>
      (Aindexed (eval_static_shift s n2), r1 :: nil)
  | Aindexed n, r1 :: nil, Ptr(Stk n1) :: nil =>
      (Ainstack (Ptrofs.add n1 (Ptrofs.of_int n)), nil)
  | _, _, _ =>
      (addr, args)
  end.

Inductive addr_strength_reduction_cases: forall (addr: addressing) (args: list reg) (vl: list aval), Type :=
  | addr_strength_reduction_case1: forall r1 r2 n1 n2, addr_strength_reduction_cases (Aindexed2) (r1 :: r2 :: nil) (Ptr(Stk n1) :: I n2 :: nil)
  | addr_strength_reduction_case2: forall r1 r2 n1 n2, addr_strength_reduction_cases (Aindexed2) (r1 :: r2 :: nil) (I n1 :: Ptr(Stk n2) :: nil)
  | addr_strength_reduction_case3: forall r1 r2 n1 v2, addr_strength_reduction_cases (Aindexed2) (r1 :: r2 :: nil) (I n1 :: v2 :: nil)
  | addr_strength_reduction_case4: forall r1 r2 v1 n2, addr_strength_reduction_cases (Aindexed2) (r1 :: r2 :: nil) (v1 :: I n2 :: nil)
  | addr_strength_reduction_case5: forall s r1 r2 n1 n2, addr_strength_reduction_cases (Aindexed2shift s) (r1 :: r2 :: nil) (Ptr(Stk n1) :: I n2 :: nil)
  | addr_strength_reduction_case6: forall s r1 r2 v1 n2, addr_strength_reduction_cases (Aindexed2shift s) (r1 :: r2 :: nil) (v1 :: I n2 :: nil)
  | addr_strength_reduction_case7: forall n r1 n1, addr_strength_reduction_cases (Aindexed n) (r1 :: nil) (Ptr(Stk n1) :: nil)
  | addr_strength_reduction_default: forall (addr: addressing) (args: list reg) (vl: list aval), addr_strength_reduction_cases addr args vl.

Definition addr_strength_reduction_match (addr: addressing) (args: list reg) (vl: list aval) :=
  match addr as zz1, args as zz2, vl as zz3 return addr_strength_reduction_cases zz1 zz2 zz3 with
  | Aindexed2, r1 :: r2 :: nil, Ptr(Stk n1) :: I n2 :: nil => addr_strength_reduction_case1 r1 r2 n1 n2
  | Aindexed2, r1 :: r2 :: nil, I n1 :: Ptr(Stk n2) :: nil => addr_strength_reduction_case2 r1 r2 n1 n2
  | Aindexed2, r1 :: r2 :: nil, I n1 :: v2 :: nil => addr_strength_reduction_case3 r1 r2 n1 v2
  | Aindexed2, r1 :: r2 :: nil, v1 :: I n2 :: nil => addr_strength_reduction_case4 r1 r2 v1 n2
  | Aindexed2shift s, r1 :: r2 :: nil, Ptr(Stk n1) :: I n2 :: nil => addr_strength_reduction_case5 s r1 r2 n1 n2
  | Aindexed2shift s, r1 :: r2 :: nil, v1 :: I n2 :: nil => addr_strength_reduction_case6 s r1 r2 v1 n2
  | Aindexed n, r1 :: nil, Ptr(Stk n1) :: nil => addr_strength_reduction_case7 n r1 n1
  | addr, args, vl => addr_strength_reduction_default addr args vl
  end.

Definition addr_strength_reduction (addr: addressing) (args: list reg) (vl: list aval) :=
  match addr_strength_reduction_match addr args vl with
  | addr_strength_reduction_case1 r1 r2 n1 n2 =>
      (Ainstack (Ptrofs.add n1 (Ptrofs.of_int n2)), nil)
  | addr_strength_reduction_case2 r1 r2 n1 n2 =>
      (Ainstack (Ptrofs.add (Ptrofs.of_int n1) n2), nil)
  | addr_strength_reduction_case3 r1 r2 n1 v2 =>
      (Aindexed n1, r2 :: nil)
  | addr_strength_reduction_case4 r1 r2 v1 n2 =>
      (Aindexed n2, r1 :: nil)
  | addr_strength_reduction_case5 s r1 r2 n1 n2 =>
      (Ainstack (Ptrofs.add n1 (Ptrofs.of_int (eval_static_shift s n2))), nil)
  | addr_strength_reduction_case6 s r1 r2 v1 n2 =>
      (Aindexed (eval_static_shift s n2), r1 :: nil)
  | addr_strength_reduction_case7 n r1 n1 =>
      (Ainstack (Ptrofs.add n1 (Ptrofs.of_int n)), nil)
  | addr_strength_reduction_default addr args vl =>
      (addr, args)
  end.

End STRENGTH_REDUCTION.

Module ConstpropOp

Converting known values to constants

Operator strength reduction