aboutsummaryrefslogtreecommitdiffstats
path: root/backend/ProfilingExploitproof.v
diff options
context:
space:
mode:
authorLéo Gourdin <leo.gourdin@lilo.org>2021-11-02 10:57:22 +0100
committerLéo Gourdin <leo.gourdin@lilo.org>2021-11-02 10:57:22 +0100
commit5530915001c3e8b395d731480e5a6618a08af7af (patch)
tree40508857b2da3795e562f4dd4c31b2b429ea822f /backend/ProfilingExploitproof.v
parent173e6c25b2937d6e6941973aa7b116e1d6405513 (diff)
downloadcompcert-kvx-5530915001c3e8b395d731480e5a6618a08af7af.tar.gz
compcert-kvx-5530915001c3e8b395d731480e5a6618a08af7af.zip
being more archi-independant
Diffstat (limited to 'backend/ProfilingExploitproof.v')
-rw-r--r--backend/ProfilingExploitproof.v4
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/ProfilingExploitproof.v b/backend/ProfilingExploitproof.v
index 292acc2a..4308b670 100644
--- a/backend/ProfilingExploitproof.v
+++ b/backend/ProfilingExploitproof.v
@@ -128,8 +128,8 @@ Proof.
(* load *)
- inv H0.
+ econstructor; split.
- * eapply exec_Iload; eauto. eapply has_loaded_normal; eauto.
- rewrite <- EVAL. apply eval_addressing_preserved. exact symbols_preserved.
+ * try (eapply exec_Iload; eauto; eapply has_loaded_normal; eauto;
+ rewrite <- EVAL; apply eval_addressing_preserved; exact symbols_preserved).
* econstructor; eauto.
+ destruct (eval_addressing) eqn:EVAL in LOAD.
* specialize (LOAD v). econstructor; split.