diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-01-12 10:48:56 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-01-12 10:48:56 +0000 |
| commit | 7998ccfd709b97f1a2306df4570365d58a5bb4b5 (patch) | |
| tree | bf76efed90d88ede9e44187072b9cbd5265aab66 /ia32/Asmgenproof1.v | |
| parent | 362f2f36a44fa6ab4fe28264ed572d721adece70 (diff) | |
- 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
Diffstat (limited to 'ia32/Asmgenproof1.v')
| -rw-r--r-- | ia32/Asmgenproof1.v | 8 |
1 files changed, 0 insertions, 8 deletions
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. @@ -1047,10 +1043,6 @@ Proof. 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. Qed. |