diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-11-17 14:36:18 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-11-17 14:36:18 +0000 |
| commit | c29871c2d5c7860c6c6c53e8d5c8a9fe434742d2 (patch) | |
| tree | 9e002b414d3fb3a899deb43f9f6e14d02507121a /powerpc/PrintOp.ml | |
| parent | 26bb5772c75efe1e4617fb9c4f2b8522989fac6d (diff) | |
powerpc/: new unary operation "addsymbol"
Support far-data addressing in sections.
(Currently ignored in checklink.)
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2368 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'powerpc/PrintOp.ml')
| -rw-r--r-- | powerpc/PrintOp.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/powerpc/PrintOp.ml b/powerpc/PrintOp.ml index eda41d1..664280f 100644 --- a/powerpc/PrintOp.ml +++ b/powerpc/PrintOp.ml @@ -57,6 +57,8 @@ let print_operation reg pp = function | Ocast16signed, [r1] -> fprintf pp "int16signed(%a)" reg r1 | Oadd, [r1;r2] -> fprintf pp "%a + %a" reg r1 reg r2 | Oaddimm n, [r1] -> fprintf pp "%a + %ld" reg r1 (camlint_of_coqint n) + | Oaddsymbol(id, ofs), [r1] -> + fprintf pp "\"%s\" + %ld + %a" (extern_atom id) (camlint_of_coqint ofs) reg r1 | Osub, [r1;r2] -> fprintf pp "%a - %a" reg r1 reg r2 | Osubimm n, [r1] -> fprintf pp "%ld - %a" (camlint_of_coqint n) reg r1 | Omul, [r1;r2] -> fprintf pp "%a * %a" reg r1 reg r2 |