From 448cc3ff32cc60f4b9e78911404106797e109d90 Mon Sep 17 00:00:00 2001 From: xleroy Date: Thu, 29 Mar 2012 11:57:33 +0000 Subject: Support for fcmpzd instruction (float compare with +0.0) git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1858 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- arm/ConstpropOpproof.v | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'arm/ConstpropOpproof.v') diff --git a/arm/ConstpropOpproof.v b/arm/ConstpropOpproof.v index 711bb33b..bf3b216c 100644 --- a/arm/ConstpropOpproof.v +++ b/arm/ConstpropOpproof.v @@ -192,6 +192,15 @@ Proof. rewrite H. rewrite eval_static_shift_correct. auto. rewrite H. rewrite eval_static_shift_correct. auto. auto. + destruct (Float.eq_dec n1 Float.zero); simpl; auto. + rewrite H0; subst n1. destruct (rs#r2); simpl; auto. rewrite Float.cmp_swap. auto. + destruct (Float.eq_dec n2 Float.zero); simpl; auto. + congruence. + destruct (Float.eq_dec n1 Float.zero); simpl; auto. + rewrite H0; subst n1. destruct (rs#r2); simpl; auto. rewrite Float.cmp_swap. auto. + destruct (Float.eq_dec n2 Float.zero); simpl; auto. + congruence. + auto. Qed. Lemma make_addimm_correct: -- cgit