diff options
author | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2021-10-29 21:56:59 +0200 |
---|---|---|
committer | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2021-10-29 21:56:59 +0200 |
commit | ae2d228c04f4fca1e281b146764646cbdd7d6b1d (patch) | |
tree | 244f88aebc77a9ca2ef7e69731deb1dfee434ece /powerpc/Asmgenproof1.v | |
parent | e19d179d1f30d5893e5f30dbd33188350656831e (diff) | |
parent | d194e47a7d494944385ff61c194693f8a67787cb (diff) | |
download | compcert-kvx-ae2d228c04f4fca1e281b146764646cbdd7d6b1d.tar.gz compcert-kvx-ae2d228c04f4fca1e281b146764646cbdd7d6b1d.zip |
Merge remote-tracking branch 'origin/master' into towards_3.10
Diffstat (limited to 'powerpc/Asmgenproof1.v')
-rw-r--r-- | powerpc/Asmgenproof1.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/powerpc/Asmgenproof1.v b/powerpc/Asmgenproof1.v index cc9fc1a7..c0651bf9 100644 --- a/powerpc/Asmgenproof1.v +++ b/powerpc/Asmgenproof1.v @@ -788,7 +788,7 @@ Lemma rolm64_correct: /\ forall r': preg, r' <> r1 -> r' <> GPR12 -> important_preg r' = true -> rs'#r' = rs#r'. Proof. intros. unfold rolm64. - destruct (is_rldl_mask mask || is_rldr_mask mask || is_rldl_mask (Int64.shru' mask amount)). + destruct orb. - econstructor; split. eapply exec_straight_one. simpl; reflexivity. reflexivity. intuition Simpl. - edestruct (andimm64_base_correct r1 r1 mask k) as (rs2 & A & B & C); auto. |