diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-06-22 23:49:11 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-06-22 23:49:11 +0200 |
| commit | ff62587774f6ca437c887cc3ff5d079895c5e214 (patch) | |
| tree | 475cdf441bc9486aff6e9535f562ae0864e0cdbd /powerpc | |
| parent | 0e9ededa8c1d194453f5113bf57c93d0803f03b1 (diff) | |
| download | compcert-kvx-ff62587774f6ca437c887cc3ff5d079895c5e214.tar.gz compcert-kvx-ff62587774f6ca437c887cc3ff5d079895c5e214.zip | |
Changed a minor typo: Pstwxu should be Pstwux
Diffstat (limited to 'powerpc')
| -rw-r--r-- | powerpc/Asm.v | 4 | ||||
| -rw-r--r-- | powerpc/Asmexpand.ml | 2 | ||||
| -rw-r--r-- | powerpc/TargetPrinter.ml | 4 |
3 files changed, 5 insertions, 5 deletions
diff --git a/powerpc/Asm.v b/powerpc/Asm.v index d707b2b5..3fa7af31 100644 --- a/powerpc/Asm.v +++ b/powerpc/Asm.v @@ -260,7 +260,7 @@ Inductive instruction : Type := | Pstw: ireg -> constant -> ireg -> instruction (**r store 32-bit int *) | Pstwu: ireg -> constant -> ireg -> instruction (**r store 32-bit int with update *) | Pstwx: ireg -> ireg -> ireg -> instruction (**r same, with 2 index regs *) - | Pstwxu: ireg -> ireg -> ireg -> instruction (**r same, with 2 index regs and update *) + | Pstwux: ireg -> ireg -> ireg -> instruction (**r same, with 2 index regs and update *) | Pstw_a: ireg -> constant -> ireg -> instruction (**r store 32-bit quantity from int reg *) | Pstwx_a: ireg -> ireg -> ireg -> instruction (**r same, with 2 index regs *) | Pstwbrx: ireg -> ireg -> ireg -> instruction (**r store 32-bit int with reverse endianness *) @@ -878,7 +878,7 @@ Definition exec_instr (f: function) (i: instruction) (rs: regset) (m: mem) : out | Pstfdu _ _ _ | Psthbrx _ _ _ | Pstwu _ _ _ - | Pstwxu _ _ _ + | Pstwux _ _ _ | Psubfze _ _ | Psync | Ptrap diff --git a/powerpc/Asmexpand.ml b/powerpc/Asmexpand.ml index aec8f66e..699c841f 100644 --- a/powerpc/Asmexpand.ml +++ b/powerpc/Asmexpand.ml @@ -457,7 +457,7 @@ let expand_instruction instr = emit (Pstwu(GPR1, Cint(coqint_of_camlint adj), GPR1)) else begin emit_loadimm GPR0 (coqint_of_camlint adj); - emit (Pstwxu(GPR1, GPR1, GPR0)) + emit (Pstwux(GPR1, GPR1, GPR0)) end; emit (Pcfi_adjust (coqint_of_camlint sz)); if variadic then begin diff --git a/powerpc/TargetPrinter.ml b/powerpc/TargetPrinter.ml index 3789d62e..2d47acb0 100644 --- a/powerpc/TargetPrinter.ml +++ b/powerpc/TargetPrinter.ml @@ -620,8 +620,8 @@ module Target (System : SYSTEM):TARGET = fprintf oc " stwu %a, %a(%a)\n" ireg r1 constant c ireg r2 | Pstwx(r1, r2, r3) | Pstwx_a(r1, r2, r3) -> fprintf oc " stwx %a, %a, %a\n" ireg r1 ireg r2 ireg r3 - | Pstwxu(r1, r2, r3) -> - fprintf oc " stwxu %a, %a, %a\n" ireg r1 ireg r2 ireg r3 + | Pstwux(r1, r2, r3) -> + fprintf oc " stwux %a, %a, %a\n" ireg r1 ireg r2 ireg r3 | Pstwbrx(r1, r2, r3) -> fprintf oc " stwbrx %a, %a, %a\n" ireg r1 ireg r2 ireg r3 | Pstwcx_(r1, r2, r3) -> |