diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-03-10 22:04:04 +0100 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-03-10 22:04:04 +0100 |
commit | 4dc9118a4578be8b869a8dd8fa98c15a0b592419 (patch) | |
tree | be710a28c945545914e0c98885bbf124f49d650f /backend/CSE3analysis.v | |
parent | d47f93b0f7ced7ae02cfeb8827886ac65e06817d (diff) | |
download | compcert-kvx-4dc9118a4578be8b869a8dd8fa98c15a0b592419.tar.gz compcert-kvx-4dc9118a4578be8b869a8dd8fa98c15a0b592419.zip |
progress on CSE3
Diffstat (limited to 'backend/CSE3analysis.v')
-rw-r--r-- | backend/CSE3analysis.v | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/backend/CSE3analysis.v b/backend/CSE3analysis.v index ded31270..140f2333 100644 --- a/backend/CSE3analysis.v +++ b/backend/CSE3analysis.v @@ -303,12 +303,13 @@ 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 (eqs : PTree.t equation) (hints : analysis_hints) := +Definition analysis (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 (hint_eq_catalog hints); + 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; |