diff options
author | Cyril SIX <cyril.six@kalray.eu> | 2020-10-16 15:52:19 +0200 |
---|---|---|
committer | Cyril SIX <cyril.six@kalray.eu> | 2020-10-16 15:52:19 +0200 |
commit | ae3e1ed0515236e25924b12d475bc991a33b7632 (patch) | |
tree | 154428527771fbdec77f23846652d252400f81c8 /kvx/CSE2depsproof.v | |
parent | fae36491fa22adaaf447e189988848483eb01dcd (diff) | |
parent | 53544f625ac6ed6ddb000f5ae8f28faac0da7a7b (diff) | |
download | compcert-kvx-ae3e1ed0515236e25924b12d475bc991a33b7632.tar.gz compcert-kvx-ae3e1ed0515236e25924b12d475bc991a33b7632.zip |
Merge remote-tracking branch 'origin/kvx-test-prepass' into mppa-RTLpathSE-verif
Diffstat (limited to 'kvx/CSE2depsproof.v')
-rw-r--r-- | kvx/CSE2depsproof.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/kvx/CSE2depsproof.v b/kvx/CSE2depsproof.v index f283c8ac..6c584450 100644 --- a/kvx/CSE2depsproof.v +++ b/kvx/CSE2depsproof.v @@ -71,7 +71,7 @@ Section MEMORY_WRITE. unfold largest_size_chunk in *. rewrite ptrofs_modulus in *. - simpl in *. + cbn in *. inv ADDRR. inv ADDRW. destruct base; try discriminate. @@ -126,12 +126,12 @@ Proof. { (* Aindexed / Aindexed *) destruct args as [ | base [ | ]]. 1,3: discriminate. destruct args' as [ | base' [ | ]]. 1,3: discriminate. - simpl in OVERLAP. + cbn in OVERLAP. destruct (peq base base'). 2: discriminate. subst base'. destruct (can_swap_accesses_ofs (Ptrofs.unsigned i0) chunk' (Ptrofs.unsigned i) chunk) eqn:SWAP. 2: discriminate. - simpl in *. + cbn in *. eapply load_store_away with (F:=F) (V:=V) (genv:=genv) (sp:=sp); eassumption. } Qed. |