diff options
Diffstat (limited to 'arm/SelectOp.vp')
| -rw-r--r-- | arm/SelectOp.vp | 23 |
1 files changed, 17 insertions, 6 deletions
diff --git a/arm/SelectOp.vp b/arm/SelectOp.vp index f3f01730..5506157c 100644 --- a/arm/SelectOp.vp +++ b/arm/SelectOp.vp @@ -38,12 +38,8 @@ Require Import Coqlib. Require Import Compopts. -Require Import AST. -Require Import Integers. -Require Import Floats. -Require Import Op. -Require Import OpHelpers. -Require Import CminorSel. +Require Import AST Integers Floats Builtins. +Require Import Op OpHelpers CminorSel. Local Open Scope cminorsel_scope. @@ -383,6 +379,16 @@ Definition compf (c: comparison) (e1: expr) (e2: expr) := 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) := + 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 *) Definition cast8unsigned (e: expr) := andimm (Int.repr 255) e. @@ -516,3 +522,8 @@ Definition divf_base (e1: expr) (e2: expr) := Definition divfs_base (e1: expr) (e2: expr) := Eop Odivfs (e1 ::: e2 ::: Enil). + +(** Platform-specific known builtins *) + +Definition platform_builtin (b: platform_builtin) (args: exprlist) : option expr := + None. |