aboutsummaryrefslogtreecommitdiffstats
path: root/riscV/Asmgenproof1.v
diff options
context:
space:
mode:
authorLéo Gourdin <leo.gourdin@univ-grenoble-alpes.fr>2021-03-06 16:52:19 +0100
committerLéo Gourdin <leo.gourdin@univ-grenoble-alpes.fr>2021-03-06 16:52:19 +0100
commit0b402973b88e85662dda8807b1839e1e5b0a56df (patch)
treed99e10c3bad53aa3194d56823a141603e0b91d15 /riscV/Asmgenproof1.v
parenteb35c3000530e379dcd79e82f001a400be8b28e9 (diff)
parent9882b3427b9dfc7e8f2de3402773fb3a1a49f14a (diff)
downloadcompcert-kvx-0b402973b88e85662dda8807b1839e1e5b0a56df.tar.gz
compcert-kvx-0b402973b88e85662dda8807b1839e1e5b0a56df.zip
Merge remote-tracking branch 'origin/riscv-work' into riscv-work-fpinit-stillexp
Diffstat (limited to 'riscV/Asmgenproof1.v')
-rw-r--r--riscV/Asmgenproof1.v6
1 files changed, 3 insertions, 3 deletions
diff --git a/riscV/Asmgenproof1.v b/riscV/Asmgenproof1.v
index 6d83cf5a..0be56e47 100644
--- a/riscV/Asmgenproof1.v
+++ b/riscV/Asmgenproof1.v
@@ -1258,11 +1258,11 @@ Opaque Int.eq.
{ exploit transl_cond_op_correct; eauto. intros (rs' & A & B & C).
exists rs'; split. eexact A. eauto with asmgen. }
(* Expanded instructions from RTL *)
- 7,8,15,16:
+ 7,14:
econstructor; split; try apply exec_straight_one; simpl; eauto;
- split; intros; Simpl; unfold may_undef_int; try destruct is_long; simpl;
+ split; intros; Simpl; simpl;
try rewrite Int.add_commut; try rewrite Int64.add_commut;
- destruct (rs (preg_of m0)); try discriminate; eauto.
+ auto.
1-12:
destruct optR0 as [[]|]; unfold apply_bin_r0_r0r0, apply_bin_r0;
econstructor; split; try apply exec_straight_one; simpl; eauto;