diff options
| author | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2021-12-14 11:49:59 +0100 |
|---|---|---|
| committer | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2021-12-14 11:49:59 +0100 |
| commit | 861e4ab15847c33704ed1bafc1dce65ae590f925 (patch) | |
| tree | ad0696b1b0d1ca68158ed47b57b4eb267f1bb33c /backend | |
| parent | 9007714f50a8ba49e2e6188cddada22a9fceed11 (diff) | |
| parent | 89562c917e61c56a167ba13b86021b286cb7e257 (diff) | |
| download | compcert-kvx-861e4ab15847c33704ed1bafc1dce65ae590f925.tar.gz compcert-kvx-861e4ab15847c33704ed1bafc1dce65ae590f925.zip | |
Merge remote-tracking branch 'origin/kvx-work' into kvx_fp_division
Diffstat (limited to 'backend')
| -rw-r--r-- | backend/CSEdomain.v | 2 | ||||
| -rw-r--r-- | backend/ValueDomain.v | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/backend/CSEdomain.v b/backend/CSEdomain.v index 9641d012..3fee2db6 100644 --- a/backend/CSEdomain.v +++ b/backend/CSEdomain.v @@ -149,7 +149,7 @@ Proof. - split; simpl; intros. + contradiction. + rewrite PTree.gempty in H; discriminate. - + rewrite PMap.gi in H; contradiction. + + contradiction. - contradiction. - rewrite PTree.gempty in H; discriminate. Qed. diff --git a/backend/ValueDomain.v b/backend/ValueDomain.v index 8c58e32e..fcc70ac8 100644 --- a/backend/ValueDomain.v +++ b/backend/ValueDomain.v @@ -4052,7 +4052,7 @@ Lemma ablock_init_sound: forall m b p, smatch m b p -> bmatch m b (ablock_init p). Proof. intros; split; auto; intros. - unfold ablock_load, ablock_init; simpl. rewrite ZTree.gempty. + unfold ablock_load, ablock_init; simpl. eapply vnormalize_cast; eauto. eapply H; eauto. Qed. @@ -5172,7 +5172,7 @@ Lemma ematch_init: ematch (init_regs vl rl) (einit_regs rl). Proof. induction rl; simpl; intros. -- red; intros. rewrite Regmap.gi. simpl AE.get. rewrite PTree.gempty. +- red; intros. rewrite Regmap.gi. simpl. constructor. - destruct vl as [ | v1 vs ]. + assert (ematch (init_regs nil rl) (einit_regs rl)). |