diff options
author | Cyril SIX <cyril.six@kalray.eu> | 2019-02-12 17:05:04 +0100 |
---|---|---|
committer | Cyril SIX <cyril.six@kalray.eu> | 2019-02-12 17:05:04 +0100 |
commit | adfc93550f1e4948ed4f39d52a4f6eece9c8a35d (patch) | |
tree | 7f46e83f8828cd807319cca7ff461f99ebc2df0a /mppa_k1c/Asmblockgen.v | |
parent | 685c2f76b5f8b320495868cfdcadbf203f50a0bd (diff) | |
download | compcert-kvx-adfc93550f1e4948ed4f39d52a4f6eece9c8a35d.tar.gz compcert-kvx-adfc93550f1e4948ed4f39d52a4f6eece9c8a35d.zip |
Added Olongoffloat, Ofloatoflong and doubleconv test
Diffstat (limited to 'mppa_k1c/Asmblockgen.v')
-rw-r--r-- | mppa_k1c/Asmblockgen.v | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/mppa_k1c/Asmblockgen.v b/mppa_k1c/Asmblockgen.v index 80790465..e7fa8f6c 100644 --- a/mppa_k1c/Asmblockgen.v +++ b/mppa_k1c/Asmblockgen.v @@ -550,9 +550,15 @@ Definition transl_op | Osingleofint, a1 :: nil => do rd <- freg_of res; do rs <- ireg_of a1; OK (Pfloatwrnsz rd rs ::i k) + | Ofloatoflong, a1 :: nil => + do rd <- freg_of res; do rs <- ireg_of a1; + OK (Pfloatdrnsz rd rs ::i k) | Ointofsingle, a1 :: nil => do rd <- ireg_of res; do rs <- freg_of a1; OK (Pfixedwrzz rd rs ::i k) + | Olongoffloat, a1 :: nil => + do rd <- ireg_of res; do rs <- freg_of a1; + OK (Pfixeddrzz rd rs ::i k) | Oabsf , _ => Error (msg "Asmblockgen.transl_op: Oabsf") | Oaddf , _ => Error (msg "Asmblockgen.transl_op: Oaddf") | Osubf , _ => Error (msg "Asmblockgen.transl_op: Osubf") |