aboutsummaryrefslogtreecommitdiffstats
path: root/arm/SelectOp.vp
diff options
context:
space:
mode:
authorXavier Leroy <xavier.leroy@college-de-france.fr>2019-06-01 08:48:20 +0200
committerXavier Leroy <xavierleroy@users.noreply.github.com>2019-06-06 10:58:13 +0200
commit26775b65ba98ad798fc72c92ae73bd28609aaeb8 (patch)
tree3ce9d296ac90df9c2397bb4cf3925f42338667cd /arm/SelectOp.vp
parent37bc5d7c21278a0f5cab9a2f61bdacd7f5a4d4fb (diff)
downloadcompcert-kvx-26775b65ba98ad798fc72c92ae73bd28609aaeb8.tar.gz
compcert-kvx-26775b65ba98ad798fc72c92ae73bd28609aaeb8.zip
ARM: select is not supported at type Tlong
Diffstat (limited to 'arm/SelectOp.vp')
-rw-r--r--arm/SelectOp.vp9
1 files changed, 8 insertions, 1 deletions
diff --git a/arm/SelectOp.vp b/arm/SelectOp.vp
index 61ea6283..d04832d6 100644
--- a/arm/SelectOp.vp
+++ b/arm/SelectOp.vp
@@ -383,7 +383,14 @@ Definition compfs (c: comparison) (e1: expr) (e2: expr) :=
Eop (Ocmp (Ccompfs c)) (e1 ::: e2 ::: Enil).
Definition select (ty: typ) (cond: condition) (args: exprlist) (e1 e2: expr) :=
- Some (Eop (Osel cond ty) (e1 ::: e2 ::: args)).
+ if match ty with
+ | Tint => true
+ | Tfloat => true
+ | Tsingle => true
+ | _ => false
+ end
+ then Some (Eop (Osel cond ty) (e1 ::: e2 ::: args))
+ else None.
(** ** Integer conversions *)