aboutsummaryrefslogtreecommitdiffstats
path: root/common/Values.v
diff options
context:
space:
mode:
authorxleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>2014-01-12 10:48:56 +0000
committerxleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>2014-01-12 10:48:56 +0000
commit7998ccfd709b97f1a2306df4570365d58a5bb4b5 (patch)
treebf76efed90d88ede9e44187072b9cbd5265aab66 /common/Values.v
parent362f2f36a44fa6ab4fe28264ed572d721adece70 (diff)
downloadcompcert-kvx-7998ccfd709b97f1a2306df4570365d58a5bb4b5.tar.gz
compcert-kvx-7998ccfd709b97f1a2306df4570365d58a5bb4b5.zip
- 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 'common/Values.v')
-rw-r--r--common/Values.v2
1 files changed, 1 insertions, 1 deletions
diff --git a/common/Values.v b/common/Values.v
index 99a994b9..5ac9f3ee 100644
--- a/common/Values.v
+++ b/common/Values.v
@@ -682,7 +682,7 @@ Definition load_result (chunk: memory_chunk) (v: val) :=
| Mint32, Vptr b ofs => Vptr b ofs
| Mint64, Vlong n => Vlong n
| Mfloat32, Vfloat f => Vfloat(Float.singleoffloat f)
- | (Mfloat64 | Mfloat64al32), Vfloat f => Vfloat f
+ | Mfloat64, Vfloat f => Vfloat f
| _, _ => Vundef
end.