diff options
author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2020-11-02 17:13:50 +0100 |
---|---|---|
committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2020-11-02 17:13:50 +0100 |
commit | 241da496839a9101e843ce7b1da4a668f998498a (patch) | |
tree | eafa2250ce4f5a8bb96e16afa6ebd9a7149e9435 /aarch64/TargetPrinter.ml | |
parent | 8de1a1f5811470bc1d7d1a7b2f0e5193de40698e (diff) | |
download | compcert-kvx-241da496839a9101e843ce7b1da4a668f998498a.tar.gz compcert-kvx-241da496839a9101e843ce7b1da4a668f998498a.zip |
Preparation for postpass in aarch64 and refactoring
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 b1425d56..a5b1465b 100644 --- a/aarch64/TargetPrinter.ml +++ b/aarch64/TargetPrinter.ml @@ -120,13 +120,13 @@ module Target : TARGET = output_string oc (match sz with D -> dreg_name r | S -> sreg_name r) let preg_asm oc ty = function - | DR (IR' (RR1 r)) -> if ty = Tint then wreg oc r else xreg oc r - | DR (FR' r) -> if ty = Tsingle then sreg oc r else dreg oc r + | DR (IR (RR1 r)) -> if ty = Tint then wreg oc r else xreg oc r + | DR (FR r) -> if ty = Tsingle then sreg oc r else dreg oc r | _ -> assert false let preg_annot = function - | DR (IR' (RR1 r)) -> xreg_name r - | DR (FR' r) -> dreg_name r + | DR (IR (RR1 r)) -> xreg_name r + | DR (FR r) -> dreg_name r | _ -> assert false (* Names of sections *) |