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 /scheduling | |
parent | 173e6c25b2937d6e6941973aa7b116e1d6405513 (diff) | |
download | compcert-kvx-5530915001c3e8b395d731480e5a6618a08af7af.tar.gz compcert-kvx-5530915001c3e8b395d731480e5a6618a08af7af.zip |
being more archi-independant
Diffstat (limited to 'scheduling')
-rw-r--r-- | scheduling/BTLtoRTLproof.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/scheduling/BTLtoRTLproof.v b/scheduling/BTLtoRTLproof.v index 2e3c5cd8..c342d076 100644 --- a/scheduling/BTLtoRTLproof.v +++ b/scheduling/BTLtoRTLproof.v @@ -231,9 +231,9 @@ Proof. - (* exec_load *) inv MIB. exists pc'; split; auto; constructor. apply plus_one. inversion LOAD; subst. - + eapply exec_Iload; eauto. eapply has_loaded_normal; eauto. - rewrite <- EVAL. erewrite <- eval_addressing_preserved; eauto. - intros; rewrite symbols_preserved; trivial. + + try (eapply exec_Iload; eauto; eapply has_loaded_normal; eauto; + rewrite <- EVAL; erewrite <- eval_addressing_preserved; eauto; + intros; rewrite symbols_preserved; trivial). + destruct (eval_addressing) eqn:EVAL in LOAD0. * specialize (LOAD0 v). eapply exec_Iload; eauto. eapply has_loaded_default; eauto. |