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/Inliningproof.v | |
| parent | 173e6c25b2937d6e6941973aa7b116e1d6405513 (diff) | |
| download | compcert-kvx-5530915001c3e8b395d731480e5a6618a08af7af.tar.gz compcert-kvx-5530915001c3e8b395d731480e5a6618a08af7af.zip | |
being more archi-independant
Diffstat (limited to 'backend/Inliningproof.v')
| -rw-r--r-- | backend/Inliningproof.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/Inliningproof.v b/backend/Inliningproof.v index a4bf838e..647938f3 100644 --- a/backend/Inliningproof.v +++ b/backend/Inliningproof.v @@ -992,8 +992,8 @@ Proof. fold (saddr ctx addr). intros [a' [P Q]]. destruct (Mem.loadv chunk m' a') eqn:Hload'. -- left; econstructor; split. - ++ eapply plus_one. eapply exec_Iload; eauto. eapply has_loaded_normal; eauto. - try (rewrite <- P; apply eval_addressing_preserved; exact symbols_preserved). + ++ eapply plus_one. try (eapply exec_Iload; eauto; eapply has_loaded_normal; eauto; + rewrite <- P; apply eval_addressing_preserved; exact symbols_preserved). ++ econstructor; eauto. apply match_stacks_inside_set_reg; auto. apply agree_set_reg; auto. -- left; econstructor; split. |