diff options
| author | Léo Gourdin <leo.gourdin@lilo.org> | 2021-11-02 16:25:58 +0100 |
|---|---|---|
| committer | Léo Gourdin <leo.gourdin@lilo.org> | 2021-11-02 16:25:58 +0100 |
| commit | 17b1ec4333af8120ab6867baf9c5c9139541c6b7 (patch) | |
| tree | 71bd521b6603820c81217ebc10a24fcd940f110a /backend/ValueAnalysis.v | |
| parent | e9dc339d5e5ec129dcf6b541d6c70f9ca7fe134c (diff) | |
| parent | 98ec44d9d96e7e94896eea9ac054a0188be7b6dd (diff) | |
| download | compcert-kvx-17b1ec4333af8120ab6867baf9c5c9139541c6b7.tar.gz compcert-kvx-17b1ec4333af8120ab6867baf9c5c9139541c6b7.zip | |
Merge branch 'RTL_has_loaded' into kvx-work
Diffstat (limited to 'backend/ValueAnalysis.v')
| -rw-r--r-- | backend/ValueAnalysis.v | 15 |
1 files changed, 4 insertions, 11 deletions
diff --git a/backend/ValueAnalysis.v b/backend/ValueAnalysis.v index e20edff7..c112d69e 100644 --- a/backend/ValueAnalysis.v +++ b/backend/ValueAnalysis.v @@ -1272,7 +1272,7 @@ Proof. apply ematch_update; auto. eapply eval_static_operation_sound; eauto with va. - (* load *) - destruct trap. + destruct trap; inv H0. + eapply sound_succ_state; eauto. simpl; auto. unfold transfer; rewrite H. eauto. apply ematch_update; auto. eapply loadv_sound; eauto with va. @@ -1283,16 +1283,9 @@ Proof. eapply vmatch_top. eapply loadv_sound; try eassumption. eapply eval_static_addressing_sound; eauto with va. -- (* load notrap1 *) - eapply sound_succ_state; eauto. simpl; auto. - unfold transfer; rewrite H. eauto. - apply ematch_update; auto. - constructor. -- (* load notrap2 *) - eapply sound_succ_state; eauto. simpl; auto. - unfold transfer; rewrite H. eauto. - apply ematch_update; auto. - constructor. + + eapply sound_succ_state; eauto. simpl; auto. + unfold transfer; rewrite H. eauto. + apply ematch_update; auto. econstructor. - (* store *) exploit eval_static_addressing_sound; eauto with va. intros VMADDR. eapply sound_succ_state; eauto. simpl; auto. |