diff options
Diffstat (limited to 'powerpc/TargetPrinter.ml')
| -rw-r--r-- | powerpc/TargetPrinter.ml | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/powerpc/TargetPrinter.ml b/powerpc/TargetPrinter.ml index 9a6840b1..c1aaa55d 100644 --- a/powerpc/TargetPrinter.ml +++ b/powerpc/TargetPrinter.ml @@ -605,7 +605,7 @@ module Target (System : SYSTEM):TARGET = | Pisel (r1,r2,r3,cr) -> fprintf oc " isel %a, %a, %a, %a\n" ireg r1 ireg r2 ireg r3 crbit cr | Picbi (r1,r2) -> - fprintf oc " icbi %a,%a\n" ireg r1 ireg r2 + fprintf oc " icbi %a, %a\n" ireg r1 ireg r2 | Picbtls (n,r1,r2) -> fprintf oc " icbtls %ld, %a, %a\n" (camlint_of_coqint n) ireg r1 ireg r2 | Pisync -> @@ -618,6 +618,8 @@ module Target (System : SYSTEM):TARGET = fprintf oc " lbzx %a, %a, %a\n" ireg r1 ireg r2 ireg r3 | Pld(r1, c, r2) | Pld_a(r1, c, r2) -> fprintf oc " ld %a, %a(%a)\n" ireg r1 constant c ireg r2 + | Pldbrx(r1, r2, r3) -> + fprintf oc " ldbrx %a, %a, %a\n" ireg r1 ireg r2 ireg r3 | Pldx(r1, r2, r3) | Pldx_a(r1, r2, r3) -> fprintf oc " ldx %a, %a, %a\n" ireg r1 ireg r2 ireg r3 | Plfd(r1, c, r2) | Plfd_a(r1, c, r2) -> @@ -772,6 +774,8 @@ module Target (System : SYSTEM):TARGET = fprintf oc " stbx %a, %a, %a\n" ireg r1 ireg r2 ireg r3 | Pstd(r1, c, r2) | Pstd_a(r1, c, r2) -> fprintf oc " std %a, %a(%a)\n" ireg r1 constant c ireg r2 + | Pstdbrx(r1, r2, r3) -> + fprintf oc " stdbrx %a, %a, %a\n" ireg r1 ireg r2 ireg r3 | Pstdx(r1, r2, r3) | Pstdx_a(r1, r2, r3) -> fprintf oc " stdx %a, %a, %a\n" ireg r1 ireg r2 ireg r3 | Pstdu(r1, c, r2) -> @@ -840,7 +844,7 @@ module Target (System : SYSTEM):TARGET = fprintf oc "%s annotation: %S\n" comment annot | 2 -> let lbl = new_label () in - fprintf oc "%a: " label lbl; + fprintf oc "%a:\n" label lbl; add_ais_annot lbl preg_annot "r1" (camlstring_of_coqstring txt) args | _ -> assert false end @@ -875,6 +879,7 @@ module Target (System : SYSTEM):TARGET = | Pbf(bit, lbl) -> 2 | Pbt(bit, lbl) -> 2 | Pbtbl(r, tbl) -> 5 + | Pldi (r1,c) -> 2 | Plfi(r1, c) -> 2 | Plfis(r1, c) -> 2 | Plabel lbl -> 0 |