From f1f535cad98f3db3e586f0f7a2dbc329fc5bff6f Mon Sep 17 00:00:00 2001 From: David Monniaux Date: Wed, 6 May 2020 20:16:08 +0200 Subject: CSE3 across merges --- backend/CSE3analysis.v | 36 +++++++++++++++++++++++++----------- 1 file changed, 25 insertions(+), 11 deletions(-) (limited to 'backend/CSE3analysis.v') diff --git a/backend/CSE3analysis.v b/backend/CSE3analysis.v index b5fdbd63..bd507dec 100644 --- a/backend/CSE3analysis.v +++ b/backend/CSE3analysis.v @@ -75,29 +75,43 @@ Module RELATION <: SEMILATTICE_WITHOUT_BOTTOM. intuition. Qed. - Definition lub := PSet.inter. + Definition lub x y := + if Compopts.optim_CSE3_across_merges tt + then PSet.inter x y + else PSet.empty. + Definition glb := PSet.union. Lemma ge_lub_left: forall x y, ge (lub x y) x. Proof. unfold ge, lub. intros. - apply PSet.is_subset_spec. - intro. - rewrite PSet.ginter. - rewrite andb_true_iff. - intuition. + destruct (Compopts.optim_CSE3_across_merges tt). + - apply PSet.is_subset_spec. + intro. + rewrite PSet.ginter. + rewrite andb_true_iff. + intuition. + - apply PSet.is_subset_spec. + intro. + rewrite PSet.gempty. + discriminate. Qed. Lemma ge_lub_right: forall x y, ge (lub x y) y. Proof. unfold ge, lub. intros. - apply PSet.is_subset_spec. - intro. - rewrite PSet.ginter. - rewrite andb_true_iff. - intuition. + destruct (Compopts.optim_CSE3_across_merges tt). + - apply PSet.is_subset_spec. + intro. + rewrite PSet.ginter. + rewrite andb_true_iff. + intuition. + - apply PSet.is_subset_spec. + intro. + rewrite PSet.gempty. + discriminate. Qed. Definition top := PSet.empty. -- cgit