diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-02-24 15:49:19 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-02-24 15:49:19 +0000 |
| commit | 91dcfe11ff321386f7924da053be83523073a50c (patch) | |
| tree | dc8291da94c66665ca8dd2496cdd74e32e08ae92 /powerpc/PrintOp.ml | |
| parent | 0e76ac320601a81a67c700759526d0f8b7a8ed7b (diff) | |
Improved instruction selection for "notint".
powerpc/PrintAsm.ml: fixed MacOS X problems with malloc and free
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1824 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
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) |