diff options
| author | Léo Gourdin <leo.gourdin@lilo.org> | 2021-11-02 10:57:22 +0100 |
|---|---|---|
| committer | Léo Gourdin <leo.gourdin@lilo.org> | 2021-11-02 10:57:22 +0100 |
| commit | 5530915001c3e8b395d731480e5a6618a08af7af (patch) | |
| tree | 40508857b2da3795e562f4dd4c31b2b429ea822f /backend/Deadcodeproof.v | |
| parent | 173e6c25b2937d6e6941973aa7b116e1d6405513 (diff) | |
| download | compcert-kvx-5530915001c3e8b395d731480e5a6618a08af7af.tar.gz compcert-kvx-5530915001c3e8b395d731480e5a6618a08af7af.zip | |
being more archi-independant
Diffstat (limited to 'backend/Deadcodeproof.v')
| -rw-r--r-- | backend/Deadcodeproof.v | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/backend/Deadcodeproof.v b/backend/Deadcodeproof.v index 305e8eeb..be64a1a7 100644 --- a/backend/Deadcodeproof.v +++ b/backend/Deadcodeproof.v @@ -822,9 +822,8 @@ Ltac UseTransfer := intros. apply nlive_add with bc i; assumption. intros (tv & P & Q). econstructor; split. - eapply exec_Iload; eauto. eapply has_loaded_normal; eauto. - rewrite <- U. apply eval_addressing_preserved. exact symbols_preserved. - eauto. + try (eapply exec_Iload; eauto; eapply has_loaded_normal; eauto; + [ rewrite <- U; apply eval_addressing_preserved; exact symbols_preserved | eauto]). eapply match_succ_states; eauto. simpl; auto. apply eagree_update; eauto 2 with na. eapply magree_monotone; eauto. intros. apply incl_nmem_add; auto. @@ -851,10 +850,8 @@ Ltac UseTransfer := destruct (Mem.loadv chunk tm ta) eqn:Hchunk2. { econstructor; split. - eapply exec_Iload. eauto. eapply has_loaded_normal; eauto. - erewrite eval_addressing_preserved with (ge1 := ge). - assumption. - exact symbols_preserved. + try (eapply exec_Iload; eauto; eapply has_loaded_normal; eauto; + erewrite eval_addressing_preserved with (ge1 := ge); [ assumption | exact symbols_preserved]). eapply match_succ_states; eauto. simpl; auto. apply eagree_update; eauto 2 with na. eapply magree_monotone; eauto. intros. apply incl_nmem_add; auto. |