diff options
author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-03-06 16:52:19 +0100 |
---|---|---|
committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-03-06 16:52:19 +0100 |
commit | 0b402973b88e85662dda8807b1839e1e5b0a56df (patch) | |
tree | d99e10c3bad53aa3194d56823a141603e0b91d15 /riscV/Asmgenproof1.v | |
parent | eb35c3000530e379dcd79e82f001a400be8b28e9 (diff) | |
parent | 9882b3427b9dfc7e8f2de3402773fb3a1a49f14a (diff) | |
download | compcert-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.v | 6 |
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; |