From a47d709fd9251f58032444fde27a3ad7e947c26d Mon Sep 17 00:00:00 2001 From: David Monniaux Date: Tue, 2 Feb 2021 13:33:43 +0100 Subject: Pselectd --- riscV/SelectOp.vp | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'riscV/SelectOp.vp') diff --git a/riscV/SelectOp.vp b/riscV/SelectOp.vp index 0e82f8ba..b6720e40 100644 --- a/riscV/SelectOp.vp +++ b/riscV/SelectOp.vp @@ -429,6 +429,10 @@ Definition select (ty: typ) (cond: condition) (args: exprlist) (e1 e2: expr) ((Eop (Ocmp cond) args) ::: (Eop Ocast32signed (e1 ::: Enil)) ::: (Eop Ocast32signed (e2 ::: Enil)) ::: Enil)) ::: Enil)) + | Tfloat => Some (Eop Ofloat_of_bits ((Eop Oselectl + ((Eop (Ocmp cond) args) ::: + (Eop Obits_of_float (e1 ::: Enil)) ::: + (Eop Obits_of_float (e2 ::: Enil)) ::: Enil)) ::: Enil)) | _ => None end else None. -- cgit