From 29ba37cc21cedc09b20bbd8adfa0ec52c48365c0 Mon Sep 17 00:00:00 2001 From: Léo Gourdin Date: Wed, 3 Feb 2021 17:14:23 +0100 Subject: All Ocmp expanded in RTL --- riscV/Asmgenproof.v | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'riscV/Asmgenproof.v') diff --git a/riscV/Asmgenproof.v b/riscV/Asmgenproof.v index 63ceed0d..6bacaa5c 100644 --- a/riscV/Asmgenproof.v +++ b/riscV/Asmgenproof.v @@ -214,7 +214,7 @@ Proof. destruct normal; TailNoLabel. Qed. -Remark transl_cond_op_label: +(* TODO Remark transl_cond_op_label: forall cond args r k c, transl_cond_op cond r args k = OK c -> tail_nolabel k c. Proof. @@ -267,7 +267,7 @@ Proof. - destruct (transl_cond_single c0 r x x0) as [insn normal] eqn:F; inv EQ2. apply tail_nolabel_cons. eapply transl_cond_single_nolabel; eauto. destruct normal; TailNoLabel. -Qed. + Qed.*) Remark transl_op_label: forall op args r k c, @@ -291,7 +291,7 @@ Opaque Int.eq. - apply opimm64_label; intros; exact I. - apply opimm64_label; intros; exact I. - destruct (Int.eq n Int.zero); try destruct (Int.eq n Int.one); TailNoLabel. -- eapply transl_cond_op_label; eauto. +(* TODO - eapply transl_cond_op_label; eauto.*) - destruct optR0 as [[]|]; simpl; TailNoLabel. - destruct optR0 as [[]|]; simpl; TailNoLabel. - destruct optR0 as [[]|]; simpl; TailNoLabel. -- cgit