diff options
author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2020-12-06 22:15:54 +0100 |
---|---|---|
committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2020-12-06 22:15:54 +0100 |
commit | 246553dadbf6a089bd92bcdea645cff95e26f3ed (patch) | |
tree | 57c43986550badec34ef71b31e7c607a1f8483b5 /aarch64/Asmblock.v | |
parent | 972f6b9890ea3644626fc097e460035028b940eb (diff) | |
download | compcert-kvx-246553dadbf6a089bd92bcdea645cff95e26f3ed.tar.gz compcert-kvx-246553dadbf6a089bd92bcdea645cff95e26f3ed.zip |
Asmgen proof completely proved with ldp/stp
Diffstat (limited to 'aarch64/Asmblock.v')
-rw-r--r-- | aarch64/Asmblock.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/aarch64/Asmblock.v b/aarch64/Asmblock.v index 3ad1d7f8..16f8e0c0 100644 --- a/aarch64/Asmblock.v +++ b/aarch64/Asmblock.v @@ -604,7 +604,7 @@ Definition exec_load_rd_a (chunk: memory_chunk) (transf: val -> val) Next (rs#r <- (transf v)) m. Definition exec_load_double (chunk: memory_chunk) (transf: val -> val) - (a: addressing) (rd1 rd2: preg) (rs: regset) (m: mem) := + (a: addressing) (rd1 rd2: dreg) (rs: regset) (m: mem) := if is_pair_addressing_mode_correct a then let addr := (eval_addressing a rs) in let ofs := match chunk with | Mint32 => 4 | _ => 8 end in |