diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2019-04-15 17:50:30 +0200 |
---|---|---|
committer | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2019-05-20 18:00:46 +0200 |
commit | 49342474c19558709c8cea6d70eaba9a4dd7a150 (patch) | |
tree | 86fb6e9fc2081a71a2d770811164bb2f72b867e6 /arm/Asm.v | |
parent | 996f2e071baaf52105714283d141af2eac8ffbfb (diff) | |
download | compcert-49342474c19558709c8cea6d70eaba9a4dd7a150.tar.gz compcert-49342474c19558709c8cea6d70eaba9a4dd7a150.zip |
Implement a `Osel` operation for ARM
The operation comples down to conditional moves.
Both integer and floating-point conditional moves are supported.
Diffstat (limited to 'arm/Asm.v')
-rw-r--r-- | arm/Asm.v | 9 |
1 files changed, 9 insertions, 0 deletions
@@ -220,6 +220,7 @@ Inductive instruction : Type := | Plabel: label -> instruction (**r define a code label *) | Ploadsymbol: ireg -> ident -> ptrofs -> instruction (**r load the address of a symbol *) | Pmovite: testcond -> ireg -> shift_op -> shift_op -> instruction (**r integer conditional move *) + | Pfmovite: testcond -> freg -> freg -> freg -> instruction (**r FP conditional move *) | Pbtbl: ireg -> list label -> instruction (**r N-way branch through a jump table *) | Pbuiltin: external_function -> list (builtin_arg preg) -> builtin_res preg -> instruction (**r built-in function (pseudo) *) | Padc: ireg -> ireg -> shift_op -> instruction (**r add with carry *) @@ -783,6 +784,14 @@ Definition exec_instr (f: function) (i: instruction) (rs: regset) (m: mem) : out | None => Vundef end in Next (nextinstr (rs#r1 <- v)) m + | Pfmovite cond r1 ifso ifnot => + let v := + match eval_testcond cond rs with + | Some true => rs#ifso + | Some false => rs#ifnot + | None => Vundef + end in + Next (nextinstr (rs#r1 <- v)) m | Pbtbl r tbl => match rs#r with | Vint n => |