diff options
| author | Cyril SIX <cyril.six@kalray.eu> | 2019-02-12 15:10:20 +0100 |
|---|---|---|
| committer | Cyril SIX <cyril.six@kalray.eu> | 2019-02-12 15:10:20 +0100 |
| commit | 40bc8bf185c5cd3c5620cf4fe24ebcc9511c79fb (patch) | |
| tree | 24d61f0ca190e6416bdd9081f51ae36ee4403de0 /mppa_k1c/TargetPrinter.ml | |
| parent | 1f38df638dfd4ae2aa85467cc28f6b4fa1da03b1 (diff) | |
| download | compcert-kvx-40bc8bf185c5cd3c5620cf4fe24ebcc9511c79fb.tar.gz compcert-kvx-40bc8bf185c5cd3c5620cf4fe24ebcc9511c79fb.zip | |
Added Ofloatconst and Osingleconst (not integrated in scheduler yet)
Diffstat (limited to 'mppa_k1c/TargetPrinter.ml')
| -rw-r--r-- | mppa_k1c/TargetPrinter.ml | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/mppa_k1c/TargetPrinter.ml b/mppa_k1c/TargetPrinter.ml index d7926c23..aa6c167d 100644 --- a/mppa_k1c/TargetPrinter.ml +++ b/mppa_k1c/TargetPrinter.ml @@ -303,6 +303,18 @@ module Target (*: TARGET*) = | Pmakel (rd, imm) -> fprintf oc " make %a, %a\n" ireg rd coqint64 imm + (* Arith RF32 instructions *) + | Pmakefs (rd, f) -> + let d = Floats.Float32.to_bits f in + fprintf oc " make %a, %a %s %.18g\n" + ireg rd coqint d comment (camlfloat_of_coqfloat32 f) + + (* Arith RF64 instructions *) + | Pmakef (rd, f) -> + let d = Floats.Float.to_bits f in + fprintf oc " make %a, %a %s %.18g\n" + ireg rd coqint64 d comment (camlfloat_of_coqfloat f) + (* Arith RRR instructions *) | Pcompw (it, rd, rs1, rs2) -> fprintf oc " compw.%a %a = %a, %a\n" icond it ireg rd ireg rs1 ireg rs2 |