diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-03-11 13:34:35 +0100 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-03-11 13:35:07 +0100 |
commit | e63e318c720c678d44cbb27d940ebfa076a7f8b4 (patch) | |
tree | 63d29ec4447ec61ea010a996a9ea62befab8b82e /backend/CSE2proof.v | |
parent | deaf767b7f60cc3b3a0d3314e763a682571a00fa (diff) | |
download | compcert-kvx-e63e318c720c678d44cbb27d940ebfa076a7f8b4.tar.gz compcert-kvx-e63e318c720c678d44cbb27d940ebfa076a7f8b4.zip |
remet is_trivial_op dans 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 7e1dd430..6368e585 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. |