diff options
| author | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2021-07-16 21:52:22 +0200 |
|---|---|---|
| committer | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2021-07-16 21:52:22 +0200 |
| commit | 7bcf7240186f670786c9daba0ffff768c180fd83 (patch) | |
| tree | 9e7546e3c8ad54d35d47fb0767202aa3e90dd499 /backend/CSE3proof.v | |
| parent | bd561273f2ff471f2d42552e20035b5ae5281453 (diff) | |
| download | compcert-kvx-7bcf7240186f670786c9daba0ffff768c180fd83.tar.gz compcert-kvx-7bcf7240186f670786c9daba0ffff768c180fd83.zip | |
make operations cse3 parametric
Diffstat (limited to 'backend/CSE3proof.v')
| -rw-r--r-- | backend/CSE3proof.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/backend/CSE3proof.v b/backend/CSE3proof.v index 3568f770..a601d5d5 100644 --- a/backend/CSE3proof.v +++ b/backend/CSE3proof.v @@ -506,12 +506,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 (negb (params.(cse3_trivial_ops))) && (is_trivial_op op) + * destruct (if (negb params.(cse3_operations) || (negb (params.(cse3_trivial_ops))) && (is_trivial_op op)) then None else rhs_find pc (SOp op) (subst_args (fst (preanalysis tenv f)) pc args) t) eqn:FIND. - ** destruct ((negb (params.(cse3_trivial_ops))) && (is_trivial_op op)). discriminate. + ** destruct (negb params.(cse3_operations) || ((negb (params.(cse3_trivial_ops))) && (is_trivial_op op))). discriminate. apply exec_Iop with (op := Omove) (args := r :: nil). TR_AT. subst instr'. @@ -985,7 +985,7 @@ Proof. unfold find_cond_in_fmap in FIND_COND. change (@PMap.get (option RELATION.t)) with (@Regmap.get RB.t) in FIND_COND. rewrite FIND_REL in FIND_COND. - destruct (cse3_conditions params). + destruct (params.(cse3_conditions)). 2: discriminate. destruct (is_condition_present pc rel cond args). { rewrite COND_PRESENT_TRUE in H0 by trivial. |