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 /checklink | |
| parent | 0e9ededa8c1d194453f5113bf57c93d0803f03b1 (diff) | |
| download | compcert-ff62587774f6ca437c887cc3ff5d079895c5e214.tar.gz compcert-ff62587774f6ca437c887cc3ff5d079895c5e214.zip | |
Changed a minor typo: Pstwxu should be Pstwux
Diffstat (limited to 'checklink')
| -rw-r--r-- | checklink/Asm_printers.ml | 2 | ||||
| -rw-r--r-- | checklink/Check.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/checklink/Asm_printers.ml b/checklink/Asm_printers.ml index 43c974f2..c475d7da 100644 --- a/checklink/Asm_printers.ml +++ b/checklink/Asm_printers.ml @@ -289,7 +289,7 @@ let string_of_instruction = function | Pstwu (i0, c1, i2) -> "Pstwu(" ^ string_of_ireg i0 ^ ", " ^ string_of_constant c1 ^ ", " ^ string_of_ireg i2 ^ ")" | Pstwx (i0, i1, i2) -> "Pstwx(" ^ string_of_ireg i0 ^ ", " ^ string_of_ireg i1 ^ ", " ^ string_of_ireg i2 ^ ")" | Pstwx_a (i0, i1, i2) -> "Pstwx_a(" ^ string_of_ireg i0 ^ ", " ^ string_of_ireg i1 ^ ", " ^ string_of_ireg i2 ^ ")" -| Pstwxu (i0, i1, i2) -> "Pstwxu(" ^ string_of_ireg i0 ^ ", " ^ string_of_ireg i1 ^ ", " ^ string_of_ireg i2 ^ ")" +| Pstwux (i0, i1, i2) -> "Pstwux(" ^ string_of_ireg i0 ^ ", " ^ string_of_ireg i1 ^ ", " ^ string_of_ireg i2 ^ ")" | Pstwbrx (i0, i1, i2) -> "Pstwbrx(" ^ string_of_ireg i0 ^ ", " ^ string_of_ireg i1 ^ ", " ^ string_of_ireg i2 ^ ")" | Pstwcx_ (i0, i1, i2) -> "Pstwcx_(" ^ string_of_ireg i0 ^ ", " ^ string_of_ireg i1 ^ ", " ^ string_of_ireg i2 ^ ")" | Psubfc (i0, i1, i2) -> "Psubfc(" ^ string_of_ireg i0 ^ ", " ^ string_of_ireg i1 ^ ", " ^ string_of_ireg i2 ^ ")" diff --git a/checklink/Check.ml b/checklink/Check.ml index 4924744c..bfd03c97 100644 --- a/checklink/Check.ml +++ b/checklink/Check.ml @@ -2130,7 +2130,7 @@ let rec compare_code ccode ecode pc: checker = fun fw -> >>= recur_simpl | _ -> error end - | Pstwxu(rd, r1, r2) -> + | Pstwux(rd, r1, r2) -> begin match ecode with | STWUX(rS, rA, rB) :: es -> OK(fw) |