diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-01-12 12:41:08 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-01-12 12:41:08 +0000 |
| commit | 14f375f7b879d9ccfb06845b2dbe1a907851e330 (patch) | |
| tree | 7c077aa7e9044b09ee3182b0979eccc6feb8b5e3 /arm | |
| parent | 7998ccfd709b97f1a2306df4570365d58a5bb4b5 (diff) | |
Eradication of Mfloat64al32, continued.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2404 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'arm')
| -rw-r--r-- | arm/Asmgenproof1.v | 2 | ||||
| -rw-r--r-- | arm/SelectOp.vp | 2 |
2 files changed, 0 insertions, 4 deletions
diff --git a/arm/Asmgenproof1.v b/arm/Asmgenproof1.v index 1e65d72..ec6d405 100644 --- a/arm/Asmgenproof1.v +++ b/arm/Asmgenproof1.v @@ -1216,7 +1216,6 @@ Proof. eapply transl_load_int_correct; eauto. discriminate. eapply transl_load_float_correct; eauto. - apply Mem.loadv_float64al32 in H1. eapply transl_load_float_correct; eauto. eapply transl_load_float_correct; eauto. Qed. @@ -1246,7 +1245,6 @@ Proof. simpl. unfold exec_store. rewrite H. rewrite H2; eauto with asmgen. rewrite H1. eauto. auto. intros. Simpl. simpl; auto. -- apply Mem.storev_float64al32 in H1. eapply transl_store_float_correct; eauto. - eapply transl_store_float_correct; eauto. Qed. diff --git a/arm/SelectOp.vp b/arm/SelectOp.vp index 767e747..2b0bdff 100644 --- a/arm/SelectOp.vp +++ b/arm/SelectOp.vp @@ -401,7 +401,6 @@ Definition can_use_Aindexed2 (chunk: memory_chunk): bool := | Mint64 => false | Mfloat32 => false | Mfloat64 => false - | Mfloat64al32 => false end. Definition can_use_Aindexed2shift (chunk: memory_chunk): bool := @@ -414,7 +413,6 @@ Definition can_use_Aindexed2shift (chunk: memory_chunk): bool := | Mint64 => false | Mfloat32 => false | Mfloat64 => false - | Mfloat64al32 => false end. Nondetfunction addressing (chunk: memory_chunk) (e: expr) := |