diff options
author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2020-12-10 23:06:17 +0100 |
---|---|---|
committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2020-12-10 23:06:17 +0100 |
commit | ec1a33e664f3484772a06dcd7e3198aa80b5d993 (patch) | |
tree | 12307fad767aa457d6b9a7391dac1ccc31523b77 /aarch64/TargetPrinter.ml | |
parent | 9d5f379cd9e36def513357363308f1e0b0f4e082 (diff) | |
download | compcert-kvx-ec1a33e664f3484772a06dcd7e3198aa80b5d993.tar.gz compcert-kvx-ec1a33e664f3484772a06dcd7e3198aa80b5d993.zip |
Big improvment in peephole, changing LDP/STP semantics
Diffstat (limited to 'aarch64/TargetPrinter.ml')
-rw-r--r-- | aarch64/TargetPrinter.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/aarch64/TargetPrinter.ml b/aarch64/TargetPrinter.ml index c336fb1e..8c3daabe 100644 --- a/aarch64/TargetPrinter.ml +++ b/aarch64/TargetPrinter.ml @@ -279,9 +279,9 @@ module Target (*: TARGET*) = (* the upper 32 bits of Xrd are set to 0, performing zero-extension *) | Pldrsw(rd, a) -> fprintf oc " ldrsw %a, %a\n" xreg rd addressing a - | Pldpw(rd1, rd2, a) -> + | Pldpw(rd1, rd2, _, _, a) -> fprintf oc " ldp %a, %a, %a\n" wreg rd1 wreg rd2 addressing a - | Pldpx(rd1, rd2, a) -> + | Pldpx(rd1, rd2, _, _, a) -> fprintf oc " ldp %a, %a, %a\n" xreg rd1 xreg rd2 addressing a | Pstrw(rs, a) | Pstrw_a(rs, a) -> fprintf oc " str %a, %a\n" wreg rs addressing a @@ -291,9 +291,9 @@ module Target (*: TARGET*) = fprintf oc " strb %a, %a\n" wreg rs addressing a | Pstrh(rs, a) -> fprintf oc " strh %a, %a\n" wreg rs addressing a - | Pstpw(rs1, rs2, a) -> + | Pstpw(rs1, rs2, _, _, a) -> fprintf oc " stp %a, %a, %a\n" wreg rs1 wreg rs2 addressing a - | Pstpx(rs1, rs2, a) -> + | Pstpx(rs1, rs2, _, _, a) -> fprintf oc " stp %a, %a, %a\n" xreg rs1 xreg rs2 addressing a (* Integer arithmetic, immediate *) | Paddimm(sz, rd, r1, n) -> |