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/AsmToJSON.ml | |
| parent | 996f2e071baaf52105714283d141af2eac8ffbfb (diff) | |
| download | compcert-kvx-49342474c19558709c8cea6d70eaba9a4dd7a150.tar.gz compcert-kvx-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/AsmToJSON.ml')
| -rw-r--r-- | arm/AsmToJSON.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/arm/AsmToJSON.ml b/arm/AsmToJSON.ml index 3874e141..dfad6972 100644 --- a/arm/AsmToJSON.ml +++ b/arm/AsmToJSON.ml @@ -259,7 +259,8 @@ let pp_instructions pp ic = | Pmla(r1, r2, r3, r4) -> instruction pp "Pmla" [Ireg r1; Ireg r2; Ireg r3; Ireg r4] | Pmov(r1, so) -> instruction pp "Pmov" [Ireg r1; Shift so] | Pmovite(cond, r1, so1, so2) -> instruction pp "Pmovite" [Ireg r1; Condition (TargetPrinter.condition_name cond); Shift so1; Condition (TargetPrinter.neg_condition_name cond); Shift so2] - | Pmovt(r1, n) -> instruction pp "Pmovt" [Ireg r1; Long n] + | Pfmovite(cond, r1, r2, r3) -> instruction pp "Pfmovite" [DFreg r1; Condition (TargetPrinter.condition_name cond); DFreg r2; Condition (TargetPrinter.neg_condition_name cond); DFreg r3] + | Pmovt(r1, n) -> instruction pp "Pmovt" [Ireg r1; Long n] | Pmovw(r1, n) -> instruction pp "Pmovw" [Ireg r1; Long n] | Pmul(r1, r2, r3) -> instruction pp "Pmul" [Ireg r1; Ireg r2; Ireg r3] | Pmvn(r1, so) -> instruction pp "Pmvn" [Ireg r1; Shift so] |