diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-06-22 16:01:50 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-06-22 16:01:50 +0000 |
commit | e6120d672017510e80bdc65f649eeb1c1e5e1d71 (patch) | |
tree | 5359a4ed77bda192dd829df251c5ccb38da93c95 /powerpc | |
parent | 58c7f5045c9cf1b64311fd7a168ed3b496666bb0 (diff) | |
download | compcert-e6120d672017510e80bdc65f649eeb1c1e5e1d71.tar.gz compcert-e6120d672017510e80bdc65f649eeb1c1e5e1d71.zip |
Forgot to print Oroli op
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1677 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'powerpc')
-rw-r--r-- | powerpc/PrintOp.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/powerpc/PrintOp.ml b/powerpc/PrintOp.ml index 4eb95bf3..bfac9a93 100644 --- a/powerpc/PrintOp.ml +++ b/powerpc/PrintOp.ml @@ -82,6 +82,10 @@ let print_operation reg pp = function | Orolm(n,m), [r1] -> fprintf pp "(%a rol %ld) & 0x%lx" reg r1 (camlint_of_coqint n) (camlint_of_coqint m) + | Oroli(n,m), [r1;r2] -> + fprintf pp "(%a & ~0x%lx) | ((%a rol %ld) & 0x%lx)" + reg r1 (camlint_of_coqint m) + reg r2 (camlint_of_coqint n) (camlint_of_coqint m) | Onegf, [r1] -> fprintf pp "negf(%a)" reg r1 | Oabsf, [r1] -> fprintf pp "absf(%a)" reg r1 | Oaddf, [r1;r2] -> fprintf pp "%a +f %a" reg r1 reg r2 |