We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent acaabc6 commit 4011a08Copy full SHA for 4011a08
powerpc/PrintOp.ml
@@ -42,6 +42,14 @@ let print_condition reg pp = function
42
fprintf pp "%a & 0x%lx == 0" reg r1 (camlint_of_coqint n)
43
| (Cmasknotzero n, [r1]) ->
44
fprintf pp "%a & 0x%lx != 0" reg r1 (camlint_of_coqint n)
45
+ | (Ccompl c, [r1;r2]) ->
46
+ fprintf pp "%a %sls %a" reg r1 (comparison_name c) reg r2
47
+ | (Ccomplu c, [r1;r2]) ->
48
+ fprintf pp "%a %slu %a" reg r1 (comparison_name c) reg r2
49
+ | (Ccomplimm(c, n), [r1]) ->
50
+ fprintf pp "%a %sls %Ld" reg r1 (comparison_name c) (camlint64_of_coqint n)
51
+ | (Ccompluimm(c, n), [r1]) ->
52
+ fprintf pp "%a %slu %Ld" reg r1 (comparison_name c) (camlint64_of_coqint n)
53
| _ ->
54
fprintf pp "<bad condition>"
55
0 commit comments