diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-03-12 14:11:39 +0100 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-03-12 14:11:39 +0100 |
commit | f1327f4d4e2fb15c6032959375cdc36ffe20167f (patch) | |
tree | 3b67c028058e5572b3cb651b05f3cdb7df8f902a /backend/CSE3analysisaux.ml | |
parent | 935dcae6384e718d26d29377e4c50e53151809e4 (diff) | |
download | compcert-kvx-f1327f4d4e2fb15c6032959375cdc36ffe20167f.tar.gz compcert-kvx-f1327f4d4e2fb15c6032959375cdc36ffe20167f.zip |
typing and store stuff
Diffstat (limited to 'backend/CSE3analysisaux.ml')
-rw-r--r-- | backend/CSE3analysisaux.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/CSE3analysisaux.ml b/backend/CSE3analysisaux.ml index f3c7d9b9..392fd13f 100644 --- a/backend/CSE3analysisaux.ml +++ b/backend/CSE3analysisaux.ml @@ -37,7 +37,7 @@ let print_set s = List.iter (fun i -> Printf.printf "%d; " (P.to_int i)) (PSet.elements s); Printf.printf "}\n";; -let preanalysis (f : RTL.coq_function) = +let preanalysis (tenv : typing_env) (f : RTL.coq_function) = let cur_eq_id = ref 0 and cur_catalog = ref PTree.empty and eq_table = Hashtbl.create 100 @@ -88,7 +88,7 @@ let preanalysis (f : RTL.coq_function) = eq_kill_reg = (fun reg -> PMap.get reg !cur_kill_reg); eq_kill_mem = (fun () -> !cur_kill_mem); eq_moves = (fun reg -> PMap.get reg !cur_moves) - } f); + } tenv f); { hint_eq_catalog = !cur_catalog; hint_eq_find_oracle= eq_find_oracle; hint_eq_rhs_oracle = rhs_find_oracle };; |