diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-11-23 19:15:40 +0100 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-11-23 19:15:40 +0100 |
| commit | 893dba638d4f1413f23fb7839fab6a4975d89312 (patch) | |
| tree | 86c257bacca8e65a33af855db3a4bfacf9377093 /aarch64/CSE2deps.v | |
| parent | ce7ba1589adaa9bac8fab2f1845f66e02670ece5 (diff) | |
| download | compcert-kvx-893dba638d4f1413f23fb7839fab6a4975d89312.tar.gz compcert-kvx-893dba638d4f1413f23fb7839fab6a4975d89312.zip | |
fix wrong version of file on AArch64
Diffstat (limited to 'aarch64/CSE2deps.v')
| -rw-r--r-- | aarch64/CSE2deps.v | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/aarch64/CSE2deps.v b/aarch64/CSE2deps.v index a23e41a8..d5c7ee0f 100644 --- a/aarch64/CSE2deps.v +++ b/aarch64/CSE2deps.v @@ -28,5 +28,8 @@ Definition may_overlap chunk addr args chunk' addr' args' := (base :: nil), (base' :: nil) => if peq base base' then negb (can_swap_accesses_ofs (Int64.unsigned ofs') chunk' (Int64.unsigned ofs) chunk) - else true | _, _, _, _ => true + else true + | (Ainstack ofs), (Ainstack ofs'), _, _ => + negb (can_swap_accesses_ofs (Ptrofs.unsigned ofs') chunk' (Ptrofs.unsigned ofs) chunk) + | _, _, _, _ => true end. |