diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2015-08-24 18:19:58 +0200 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2015-08-24 18:19:58 +0200 |
| commit | 3324ece265091490d5380caf753d76aeee059d3f (patch) | |
| tree | 14e42637915f2f39e11a53169bf4affd3cf7c2b3 /arm/SelectOpproof.v | |
| parent | e5be647428d5aa2139dd8fd2e86b8046b4d0aa35 (diff) | |
| download | compcert-kvx-3324ece265091490d5380caf753d76aeee059d3f.tar.gz compcert-kvx-3324ece265091490d5380caf753d76aeee059d3f.zip | |
Upgrade the ARM port to the new builtins.
Diffstat (limited to 'arm/SelectOpproof.v')
| -rw-r--r-- | arm/SelectOpproof.v | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/arm/SelectOpproof.v b/arm/SelectOpproof.v index d3c3239a..5f41e754 100644 --- a/arm/SelectOpproof.v +++ b/arm/SelectOpproof.v @@ -864,18 +864,20 @@ Proof. exists (v :: nil); split. eauto with evalexpr. subst. simpl. rewrite Int.add_zero; auto. Qed. -Theorem eval_annot_arg: +Theorem eval_builtin_arg: forall a v, eval_expr ge sp e m nil a v -> - CminorSel.eval_annot_arg ge sp e m (annot_arg a) v. + CminorSel.eval_builtin_arg ge sp e m (builtin_arg a) v. Proof. - intros until v. unfold annot_arg; case (annot_arg_match a); intros; InvEval. + intros until v. unfold builtin_arg; case (builtin_arg_match a); intros; InvEval. - constructor. - constructor. - constructor. - simpl in H5. inv H5. constructor. - subst v. constructor; auto. - inv H. InvEval. simpl in H6; inv H6. constructor; auto. +- inv H. InvEval. simpl in H6. rewrite <- Genv.shift_symbol_address in H6. + inv H6. constructor; auto. - constructor; auto. Qed. |