diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-04-01 13:30:30 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-04-01 13:30:30 +0200 |
| commit | d0590cab5ee32df395c129ee3edfa2dc3aaa202d (patch) | |
| tree | 7bb94eb9b032861cc3b8f20661d11e61ccf9c5d8 /backend/Inject.v | |
| parent | 25da4f1a90457c592cd8594666cd4d1d9628a8b1 (diff) | |
| download | compcert-kvx-d0590cab5ee32df395c129ee3edfa2dc3aaa202d.tar.gz compcert-kvx-d0590cab5ee32df395c129ee3edfa2dc3aaa202d.zip | |
begin adapting for LICM phase
Diffstat (limited to 'backend/Inject.v')
| -rw-r--r-- | backend/Inject.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/Inject.v b/backend/Inject.v index 4bb25615..2350c149 100644 --- a/backend/Inject.v +++ b/backend/Inject.v @@ -81,7 +81,7 @@ Definition inject prog extra_pc injections : code := *) Section INJECTOR. - Variable gen_injections : function -> PTree.t (list inj_instr). + Variable gen_injections : function -> node -> reg -> PTree.t (list inj_instr). Definition valid_injection_instr (max_reg : reg) (i : inj_instr) := match i with @@ -102,9 +102,9 @@ Section INJECTOR. valid_injections1 (max_pc_function f) (max_reg_function f). Definition transf_function (f : function) : res function := - let injections := PTree.elements (gen_injections f) in let max_pc := max_pc_function f in let max_reg := max_reg_function f in + let injections := PTree.elements (gen_injections f max_pc max_reg) in if valid_injections1 max_pc max_reg injections then OK {| fn_sig := f.(fn_sig); |