diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2021-01-20 12:07:40 +0100 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2021-01-20 12:07:40 +0100 |
| commit | e265be77756b14b1d830a0d0faf1b105494bbb43 (patch) | |
| tree | 1718f6cbed4670522763409e4abc7c4bbb3e4108 /aarch64 | |
| parent | fc9d9ffcf9157d4e84473a209e360ddc2210f95d (diff) | |
| parent | eb1121d703835e76babc15b057276d2852ade4ab (diff) | |
| download | compcert-kvx-e265be77756b14b1d830a0d0faf1b105494bbb43.tar.gz compcert-kvx-e265be77756b14b1d830a0d0faf1b105494bbb43.zip | |
Conditions now propagated by CSE3
Merge remote-tracking branch 'origin/kvx-better2-cse3' into kvx-work
Diffstat (limited to 'aarch64')
| -rw-r--r-- | aarch64/Op.v | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/aarch64/Op.v b/aarch64/Op.v index f2a8e6fb..40f6ebf0 100644 --- a/aarch64/Op.v +++ b/aarch64/Op.v @@ -1202,18 +1202,26 @@ Proof. rewrite (cond_depends_on_memory_correct cond args m1 m2 H). auto. Qed. +Lemma cond_valid_pointer_eq: + forall cond args m1 m2, + (forall b z, Mem.valid_pointer m1 b z = Mem.valid_pointer m2 b z) -> + eval_condition cond args m1 = eval_condition cond args m2. +Proof. + intros until m2. intro MEM. destruct cond eqn:COND; simpl; try congruence. + all: repeat (destruct args; simpl; try congruence); + erewrite cmpu_bool_valid_pointer_eq || erewrite cmplu_bool_valid_pointer_eq; eauto. +Qed. + Lemma op_valid_pointer_eq: forall (F V: Type) (ge: Genv.t F V) sp op args m1 m2, (forall b z, Mem.valid_pointer m1 b z = Mem.valid_pointer m2 b z) -> eval_operation ge sp op args m1 = eval_operation ge sp op args m2. Proof. - intros until m2. destruct op eqn:OP; simpl; try congruence. - - intros MEM; destruct cond; simpl; try congruence; + intros until m2. intro MEM. destruct op eqn:OP; simpl; try congruence. + - f_equal; f_equal; auto using cond_valid_pointer_eq. + - destruct cond; simpl; try congruence; repeat (destruct args; simpl; try congruence); erewrite cmpu_bool_valid_pointer_eq || erewrite cmplu_bool_valid_pointer_eq; eauto. - - intro MEM; destruct cond; simpl; try congruence; - repeat (destruct args; simpl; try congruence); - erewrite cmpu_bool_valid_pointer_eq || erewrite cmplu_bool_valid_pointer_eq; eauto. Qed. (** Global variables mentioned in an operation or addressing mode *) |