diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-11-23 22:08:04 +0100 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-11-23 22:08:04 +0100 |
commit | 959c1084902bfc4f07e40aabd7a75038c7a54889 (patch) | |
tree | 95e1ae23dec71ccd1bd4d37d131cae9167983628 /arm/CSE2deps.v | |
parent | 7c63e3df80deb87a11355ed98e1a78970a7f78fd (diff) | |
download | compcert-kvx-959c1084902bfc4f07e40aabd7a75038c7a54889.tar.gz compcert-kvx-959c1084902bfc4f07e40aabd7a75038c7a54889.zip |
bug #223 fix for ARM
Diffstat (limited to 'arm/CSE2deps.v')
-rw-r--r-- | arm/CSE2deps.v | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/arm/CSE2deps.v b/arm/CSE2deps.v index d48dabf3..4592f408 100644 --- a/arm/CSE2deps.v +++ b/arm/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 (Int.unsigned ofs') chunk' (Int.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. |