diff options
Diffstat (limited to 'backend/CSE3analysis.v')
-rw-r--r-- | backend/CSE3analysis.v | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/backend/CSE3analysis.v b/backend/CSE3analysis.v index 140f2333..18aa33b1 100644 --- a/backend/CSE3analysis.v +++ b/backend/CSE3analysis.v @@ -303,16 +303,16 @@ Record analysis_hints := hint_eq_find_oracle : node -> equation -> option eq_id; hint_eq_rhs_oracle : node -> sym_op -> list reg -> PSet.t }. -Definition analysis (hints : analysis_hints) := +Definition context_from_hints (hints : analysis_hints) := let eqs := hint_eq_catalog hints in let reg_kills := get_reg_kills eqs in let mem_kills := get_mem_kills eqs in let moves := get_moves eqs in - internal_analysis (ctx := {| - eq_catalog := fun eq_id => PTree.get eq_id eqs; - eq_find_oracle := hint_eq_find_oracle hints ; - eq_rhs_oracle := hint_eq_rhs_oracle hints; - eq_kill_reg := fun reg => PMap.get reg reg_kills; - eq_kill_mem := fun _ => mem_kills; - eq_moves := fun reg => PMap.get reg moves - |}). + {| + eq_catalog := fun eq_id => PTree.get eq_id eqs; + eq_find_oracle := hint_eq_find_oracle hints ; + eq_rhs_oracle := hint_eq_rhs_oracle hints; + eq_kill_reg := fun reg => PMap.get reg reg_kills; + eq_kill_mem := fun _ => mem_kills; + eq_moves := fun reg => PMap.get reg moves + |}. |