diff options
| author | Cyril SIX <cyril.six@kalray.eu> | 2018-04-10 13:59:34 +0200 |
|---|---|---|
| committer | Cyril SIX <cyril.six@kalray.eu> | 2018-04-10 13:59:34 +0200 |
| commit | e6fd7a6abcebee211acf1ef95e0779d7c8aa1325 (patch) | |
| tree | 04c468f73c47a01161bba84556f3eb5f12e8d102 /mppa_k1c | |
| parent | 9862e89118492e6ab530b2e2992161dd4eb52d0a (diff) | |
| download | compcert-kvx-e6fd7a6abcebee211acf1ef95e0779d7c8aa1325.tar.gz compcert-kvx-e6fd7a6abcebee211acf1ef95e0779d7c8aa1325.zip | |
MPPA - Oneg + Pnegw
Diffstat (limited to 'mppa_k1c')
| -rw-r--r-- | mppa_k1c/Asm.v | 3 | ||||
| -rw-r--r-- | mppa_k1c/Asmgen.v | 6 | ||||
| -rw-r--r-- | mppa_k1c/TargetPrinter.ml | 2 |
3 files changed, 8 insertions, 3 deletions
diff --git a/mppa_k1c/Asm.v b/mppa_k1c/Asm.v index 568a88af..d7959445 100644 --- a/mppa_k1c/Asm.v +++ b/mppa_k1c/Asm.v @@ -194,6 +194,7 @@ Inductive instruction : Type := (** 32-bit integer register-register instructions *) | Paddw (rd: ireg) (rs1 rs2: ireg) (**r integer addition *) + | Pnegw (rd: ireg) (rs: ireg) (**r negate word *) (** 64-bit integer register-immediate instructions *) | Paddil (rd: ireg) (rs: ireg) (imm: int64) (**r add immediate *) @@ -716,6 +717,8 @@ Definition exec_instr (f: function) (i: instruction) (rs: regset) (m: mem) : out (** 32-bit integer register-register instructions *) | Paddw d s1 s2 => Next (nextinstr (rs#d <- (Val.add rs##s1 rs##s2))) m + | Pnegw d s => + Next (nextinstr (rs#d <- (Val.neg rs###s))) m (** 64-bit integer register-immediate instructions *) | Paddil d s i => diff --git a/mppa_k1c/Asmgen.v b/mppa_k1c/Asmgen.v index 1113bd4f..2c99b6dc 100644 --- a/mppa_k1c/Asmgen.v +++ b/mppa_k1c/Asmgen.v @@ -256,10 +256,10 @@ Definition transl_op | Oaddimm n, a1 :: nil => do rd <- ireg_of res; do rs <- ireg_of a1; OK (addimm32 rd rs n k) -(*| Oneg, a1 :: nil => + | Oneg, a1 :: nil => do rd <- ireg_of res; do rs <- ireg_of a1; - OK (Psubw rd GPR0 rs :: k) - | Osub, a1 :: a2 :: nil => + OK (Pnegw rd rs :: k) +(*| Osub, a1 :: a2 :: nil => do rd <- ireg_of res; do rs1 <- ireg_of a1; do rs2 <- ireg_of a2; OK (Psubw rd rs1 rs2 :: k) | Omul, a1 :: a2 :: nil => diff --git a/mppa_k1c/TargetPrinter.ml b/mppa_k1c/TargetPrinter.ml index cb978ba8..31a68e38 100644 --- a/mppa_k1c/TargetPrinter.ml +++ b/mppa_k1c/TargetPrinter.ml @@ -219,6 +219,8 @@ module Target : TARGET = fprintf oc " addd %a = %a, %a\n;;\n" ireg rd ireg rs1 ireg rs2 | Pnegl(rd, rs) -> assert Archi.ptr64; fprintf oc " negd %a = %a\n;;\n" ireg rd ireg rs + | Pnegw(rd, rs) -> + fprintf oc " negw %a = %a\n;;\n" ireg rd ireg rs | Pcompw (it, rd, rs1, rs2) -> fprintf oc " compw.%a %a = %a, %a\n;;\n" icond it ireg rd ireg rs1 ireg rs2 |