diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2021-02-02 13:33:43 +0100 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2021-02-02 13:33:43 +0100 |
| commit | a47d709fd9251f58032444fde27a3ad7e947c26d (patch) | |
| tree | 8270330b3037657d5b5b28bb722ed4dd283ae0cf /riscV/SelectOp.vp | |
| parent | 7afc85c95aaec5cc0935733cac487e13f114cc46 (diff) | |
| download | compcert-kvx-a47d709fd9251f58032444fde27a3ad7e947c26d.tar.gz compcert-kvx-a47d709fd9251f58032444fde27a3ad7e947c26d.zip | |
Pselectd
Diffstat (limited to 'riscV/SelectOp.vp')
| -rw-r--r-- | riscV/SelectOp.vp | 4 |
1 files changed, 4 insertions, 0 deletions
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. |