diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2020-10-29 18:16:17 +0100 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2020-11-06 18:36:56 +0100 |
commit | 4011a085abee25df19c6e7659f2168ef17c7c344 (patch) | |
tree | 406f4baa82938497efd26622a507fa21c63b2186 /powerpc/PrintOp.ml | |
parent | acaabc6c481cc70e5597ccb74052a7f6d330b0f1 (diff) | |
download | compcert-4011a085abee25df19c6e7659f2168ef17c7c344.tar.gz compcert-4011a085abee25df19c6e7659f2168ef17c7c344.zip |
Added missing printer for PowerPC 64 bit comparison.
These comparisons are supported in the hybrid 64 bit mode.
Bug 30035
Diffstat (limited to 'powerpc/PrintOp.ml')
-rw-r--r-- | powerpc/PrintOp.ml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/powerpc/PrintOp.ml b/powerpc/PrintOp.ml index 8d7f17ab..77791827 100644 --- a/powerpc/PrintOp.ml +++ b/powerpc/PrintOp.ml @@ -42,6 +42,14 @@ let print_condition reg pp = function fprintf pp "%a & 0x%lx == 0" reg r1 (camlint_of_coqint n) | (Cmasknotzero n, [r1]) -> fprintf pp "%a & 0x%lx != 0" reg r1 (camlint_of_coqint n) + | (Ccompl c, [r1;r2]) -> + fprintf pp "%a %sls %a" reg r1 (comparison_name c) reg r2 + | (Ccomplu c, [r1;r2]) -> + fprintf pp "%a %slu %a" reg r1 (comparison_name c) reg r2 + | (Ccomplimm(c, n), [r1]) -> + fprintf pp "%a %sls %Ld" reg r1 (comparison_name c) (camlint64_of_coqint n) + | (Ccompluimm(c, n), [r1]) -> + fprintf pp "%a %slu %Ld" reg r1 (comparison_name c) (camlint64_of_coqint n) | _ -> fprintf pp "<bad condition>" |