diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-03-11 19:09:20 +0100 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-03-11 19:09:20 +0100 |
commit | 731c230f1c583b9e20e86e2b7fc43a1f6c8520ea (patch) | |
tree | bba1e62c4f30a752a6693056df8c0a2b7ecfcc5b /backend/CSE2proof.v | |
parent | be2310fdbd4d7d48dcf4cffed7c0d0e7da274359 (diff) | |
parent | 9e706de1eb25d6d6dbeb1eb2ced71e48523a499f (diff) | |
download | compcert-kvx-731c230f1c583b9e20e86e2b7fc43a1f6c8520ea.tar.gz compcert-kvx-731c230f1c583b9e20e86e2b7fc43a1f6c8520ea.zip |
Merge remote-tracking branch 'origin/mppa-work' into mppa-cse2
Diffstat (limited to 'backend/CSE2proof.v')
-rw-r--r-- | backend/CSE2proof.v | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/backend/CSE2proof.v b/backend/CSE2proof.v index 9f55846d..fc980fb4 100644 --- a/backend/CSE2proof.v +++ b/backend/CSE2proof.v @@ -1200,8 +1200,11 @@ Proof. reflexivity. - (* op *) unfold transf_instr in *. - destruct find_op_in_fmap eqn:FIND_OP. + destruct (if is_trivial_op op then None else find_op_in_fmap (forward_map f) pc op + (subst_args (forward_map f) pc args)) eqn:FIND_OP. { + destruct (is_trivial_op op). + discriminate. unfold find_op_in_fmap, fmap_sem', fmap_sem in *. destruct (forward_map f) as [map |] eqn:MAP. 2: discriminate. |