diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-09-07 12:27:43 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-09-07 12:27:43 +0200 |
commit | 35febfa5b231a71234a1b32c128169352e96eaca (patch) | |
tree | 5401681c76c8e45e9c1e6128d313851582e6fc9f /backend/Inliningproof.v | |
parent | 046c24d29796a3bb130c94fe464e54e8a7aa2eb3 (diff) | |
download | compcert-kvx-35febfa5b231a71234a1b32c128169352e96eaca.tar.gz compcert-kvx-35febfa5b231a71234a1b32c128169352e96eaca.zip |
fixes for ARM
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 588d7165..ebc48160 100644 --- a/backend/Inliningproof.v +++ b/backend/Inliningproof.v @@ -1017,7 +1017,7 @@ Proof. + left; econstructor; split. eapply plus_one. eapply exec_Iload; eauto. - rewrite <- P. apply eval_addressing_preserved. exact symbols_preserved. + try (rewrite <- P; apply eval_addressing_preserved; exact symbols_preserved). econstructor; eauto. apply match_stacks_inside_set_reg; auto. apply agree_set_reg; auto. @@ -1025,7 +1025,7 @@ Proof. + left; econstructor; split. eapply plus_one. eapply exec_Iload_notrap2; eauto. - rewrite <- P. apply eval_addressing_preserved. exact symbols_preserved. + try (rewrite <- P; apply eval_addressing_preserved; assumption). econstructor; eauto. apply match_stacks_inside_set_reg; auto. apply agree_set_reg; auto. |