diff options
Diffstat (limited to 'powerpc/PrintOp.ml')
-rw-r--r-- | powerpc/PrintOp.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/powerpc/PrintOp.ml b/powerpc/PrintOp.ml index 3b5e98d..13eb4ae 100644 --- a/powerpc/PrintOp.ml +++ b/powerpc/PrintOp.ml @@ -69,9 +69,12 @@ let print_operation reg pp = function | Oorimm n, [r1] -> fprintf pp "%a | %ld" reg r1 (camlint_of_coqint n) | Oxor, [r1;r2] -> fprintf pp "%a ^ %a" reg r1 reg r2 | Oxorimm n, [r1] -> fprintf pp "%a ^ %ld" reg r1 (camlint_of_coqint n) + | Onot, [r1] -> fprintf pp "not(%a)" reg r1 | Onand, [r1;r2] -> fprintf pp "not(%a & %a)" reg r1 reg r2 | Onor, [r1;r2] -> fprintf pp "not(%a | %a)" reg r1 reg r2 | Onxor, [r1;r2] -> fprintf pp "not(%a ^ %a)" reg r1 reg r2 + | Oandc, [r1;r2] -> fprintf pp "%a & not %a" reg r1 reg r2 + | Oorc, [r1;r2] -> fprintf pp "%a | not %a" reg r1 reg r2 | Oshl, [r1;r2] -> fprintf pp "%a << %a" reg r1 reg r2 | Oshr, [r1;r2] -> fprintf pp "%a >>s %a" reg r1 reg r2 | Oshrimm n, [r1] -> fprintf pp "%a >>s %ld" reg r1 (camlint_of_coqint n) |