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 /backend/Debugvarproof.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 'backend/Debugvarproof.v')
| -rw-r--r-- | backend/Debugvarproof.v | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/backend/Debugvarproof.v b/backend/Debugvarproof.v index 35fbe226..6f0b8cda 100644 --- a/backend/Debugvarproof.v +++ b/backend/Debugvarproof.v @@ -455,15 +455,17 @@ Proof. - (* load *) econstructor; split. eapply plus_left. - econstructor; eauto. + eapply exec_Lload with (a := a). rewrite <- H; apply eval_addressing_preserved; exact symbols_preserved. + eauto. eauto. apply eval_add_delta_ranges. traceEq. constructor; auto. - (* store *) econstructor; split. eapply plus_left. - econstructor; eauto. + eapply exec_Lstore with (a := a). rewrite <- H; apply eval_addressing_preserved; exact symbols_preserved. + eauto. eauto. apply eval_add_delta_ranges. traceEq. constructor; auto. - (* call *) |