diff options
author | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2019-06-01 08:48:20 +0200 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2019-06-01 08:48:20 +0200 |
commit | b7e0d70de2ace6f0a22f9f65cc244d875ee48496 (patch) | |
tree | 6efa684cdd80d31ee38d54577e65285fee61450a /arm/SelectOp.vp | |
parent | 95938a8732b572d61955b1de8c49362c9e162640 (diff) | |
download | compcert-kvx-b7e0d70de2ace6f0a22f9f65cc244d875ee48496.tar.gz compcert-kvx-b7e0d70de2ace6f0a22f9f65cc244d875ee48496.zip |
ARM: select is not supported at type Tlong
Diffstat (limited to 'arm/SelectOp.vp')
-rw-r--r-- | arm/SelectOp.vp | 9 |
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 *) |