From 91dcfe11ff321386f7924da053be83523073a50c Mon Sep 17 00:00:00 2001 From: xleroy Date: Fri, 24 Feb 2012 15:49:19 +0000 Subject: 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 --- powerpc/PrintOp.ml | 3 +++ 1 file changed, 3 insertions(+) (limited to 'powerpc/PrintOp.ml') diff --git a/powerpc/PrintOp.ml b/powerpc/PrintOp.ml index 3b5e98d2..13eb4aee 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) -- cgit