diff options
author | Sylvain Boulmé <sylvain.boulme@univ-grenoble-alpes.fr> | 2020-10-23 01:53:05 +0200 |
---|---|---|
committer | Sylvain Boulmé <sylvain.boulme@univ-grenoble-alpes.fr> | 2020-10-23 01:53:05 +0200 |
commit | 37ad0670e1dc02c47b4987c16602aadb462c44c2 (patch) | |
tree | 35f538126dc796187c869c9f3e2fd8993ec9e196 /aarch64/TargetPrinter.ml | |
parent | 2ff831f62b8674e41dac82b4738199eaa4fb4011 (diff) | |
download | compcert-kvx-37ad0670e1dc02c47b4987c16602aadb462c44c2.tar.gz compcert-kvx-37ad0670e1dc02c47b4987c16602aadb462c44c2.zip |
aarch64 compiles again (but ccomp generates incorrect assembly)
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 8d74daf4..b1425d56 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 - | IR r -> if ty = Tint then wreg oc r else xreg oc r - | 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 - | IR r -> xreg_name r - | FR r -> dreg_name r + | DR (IR' (RR1 r)) -> xreg_name r + | DR (FR' r) -> dreg_name r | _ -> assert false (* Names of sections *) |