From 7998ccfd709b97f1a2306df4570365d58a5bb4b5 Mon Sep 17 00:00:00 2001 From: xleroy Date: Sun, 12 Jan 2014 10:48:56 +0000 Subject: - Back to origins: suppress Mfloat64al32 chunk and align Mfloat64 to 4. - Revised printing of intermediate RTL code. git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2403 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- ia32/Asmgenproof1.v | 8 -------- 1 file changed, 8 deletions(-) (limited to 'ia32/Asmgenproof1.v') diff --git a/ia32/Asmgenproof1.v b/ia32/Asmgenproof1.v index 5d3df67..6f2aee5 100644 --- a/ia32/Asmgenproof1.v +++ b/ia32/Asmgenproof1.v @@ -997,10 +997,6 @@ Proof. auto. decEq. apply Pregmap.gso; auto with asmgen. exists rs2. split. destruct chunk; ArgsInv; apply exec_straight_one; auto. - (* Mfloat64 -> Mfloat64al32 *) - rewrite <- H. simpl. unfold exec_load. rewrite H1. - destruct (eval_addrmode ge x rs); simpl in *; try discriminate. - erewrite Mem.load_float64al32; eauto. split. unfold rs2. rewrite nextinstr_nf_inv1. Simplifs. apply preg_of_data. intros. unfold rs2. Simplifs. Qed. @@ -1046,10 +1042,6 @@ Proof. apply exec_straight_one. simpl. unfold exec_store. rewrite H1. eauto. auto. intros. Transparent destroyed_by_store. simpl in H2. simpl. Simplifs. (* float64 *) - econstructor; split. - apply exec_straight_one. simpl. unfold exec_store. erewrite Mem.storev_float64al32; eauto. auto. - intros. Simplifs. -(* float64al32 *) econstructor; split. apply exec_straight_one. simpl. unfold exec_store. rewrite H1. eauto. auto. intros. Simplifs. -- cgit v1.2.3