diff options
Diffstat (limited to 'riscV/SelectOp.vp')
-rw-r--r-- | riscV/SelectOp.vp | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/riscV/SelectOp.vp b/riscV/SelectOp.vp index 7714f12d..0596ebf6 100644 --- a/riscV/SelectOp.vp +++ b/riscV/SelectOp.vp @@ -421,7 +421,11 @@ Definition floatofsingle (e: expr) := Eop Ofloatofsingle (e ::: Enil). Definition select (ty: typ) (cond: condition) (args: exprlist) (e1 e2: expr) : option expr - := None. + := match ty with + | Tlong => Some (Eop Oselectl + ((Eop (Ocmp cond) args) ::: e1 ::: e2 ::: Enil)) + | _ => None + end. (** ** Recognition of addressing modes for load and store operations *) |