diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2021-01-07 17:43:19 +0100 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2021-01-07 17:43:19 +0100 |
commit | 749fa737e57bb37539ee742f0df552fec8d3e4ef (patch) | |
tree | 934b4cbb63f426ee682252cb27cefe168a0fc9ac /backend/CSE3proof.v | |
parent | e21a56acc2d28995aef4586668f756806a53869b (diff) | |
download | compcert-kvx-749fa737e57bb37539ee742f0df552fec8d3e4ef.tar.gz compcert-kvx-749fa737e57bb37539ee742f0df552fec8d3e4ef.zip |
-fcse3-trivial-ops
Diffstat (limited to 'backend/CSE3proof.v')
-rw-r--r-- | backend/CSE3proof.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/CSE3proof.v b/backend/CSE3proof.v index 3fbc9912..2257b4de 100644 --- a/backend/CSE3proof.v +++ b/backend/CSE3proof.v @@ -463,12 +463,12 @@ Proof. destruct (@PMap.get (option RELATION.t) pc) eqn:INV_PC. pose proof (rhs_find_sound (sp:=sp) (genv:=ge) (ctx:=(context_from_hints (snd (preanalysis tenv f)))) pc (SOp op) (subst_args (ctx:=(context_from_hints (snd (preanalysis tenv f)))) (fst (preanalysis tenv f)) pc args) t) as FIND_SOUND. - * destruct (if is_trivial_op op + * destruct (if (negb (Compopts.optim_CSE3_trivial_ops tt)) && (is_trivial_op op) then None else rhs_find pc (SOp op) (subst_args (fst (preanalysis tenv f)) pc args) t) eqn:FIND. - ** destruct (is_trivial_op op). discriminate. + ** destruct ((negb (Compopts.optim_CSE3_trivial_ops tt)) && (is_trivial_op op)). discriminate. apply exec_Iop with (op := Omove) (args := r :: nil). TR_AT. subst instr'. |