mirsa-analysis 0.3.0

Analysis orchestration for mirsa
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114

use super::reduction::{
    allocation_interval, allocation_nullptr, interval, interval_nullptr, symbolic_allocation,
    symbolic_interval, symbolic_nullptr,
};
use super::state::CombinedState;
use mirsa_relations::symbolic::SymbolicFact;
use rustc_middle::mir::{LocalDecls, Statement, Terminator};
use rustc_middle::ty::TyCtxt;

impl<'tcx> CombinedState<'tcx> {
    /// Run the reductions that connect component domains. This dispatcher
    /// contains no domain-specific reduction algorithm.
    pub fn synchronize_domains(&mut self) {
        interval_nullptr::reduce(&self.interval, &mut self.nullptr, &self.symbolic);
        allocation_nullptr::reduce(&mut self.allocation, &mut self.nullptr, &self.symbolic);
        self.interval.merge_display_places_into(&mut self.symbolic);
        self.nullptr.merge_display_places_into(&mut self.symbolic);
        self.allocation
            .merge_display_places_into(&mut self.symbolic);
    }

    pub fn reduce_statement(
        &mut self,
        tcx: TyCtxt<'tcx>,
        local_decls: &LocalDecls<'tcx>,
        statement: &Statement<'tcx>,
    ) {
        interval::reduce_statement(
            tcx,
            &mut self.interval,
            &self.symbolic,
            statement,
            local_decls,
        );
        interval_nullptr::reduce_statement(
            tcx,
            &mut self.interval,
            &mut self.nullptr,
            &self.symbolic,
            statement,
            local_decls,
        );
        allocation_interval::reduce_statement(
            tcx,
            &mut self.allocation,
            &mut self.interval,
            &self.symbolic,
            statement,
            local_decls,
        );
        self.synchronize_domains();
    }

    pub fn reduce_terminator(
        &mut self,
        tcx: TyCtxt<'tcx>,
        local_decls: &LocalDecls<'tcx>,
        term: &Terminator<'tcx>,
    ) {
        allocation_interval::reduce_terminator(
            tcx,
            local_decls,
            &mut self.interval,
            &self.allocation,
            &self.symbolic,
            term,
        );
        self.synchronize_domains();
    }

    pub fn refine_with_path_facts(
        &mut self,
        tcx: TyCtxt<'tcx>,
        local_decls: &LocalDecls<'tcx>,
    ) -> bool {
        self.synchronize_domains();
        for fact in self.symbolic.facts().to_vec() {
            self.debug_reduce(format_args!("fact {fact:?}"));
            if !self.reduce_fact(tcx, local_decls, &fact) {
                self.debug_reduce(format_args!("contradiction"));
                return false;
            }
        }
        self.synchronize_domains();
        true
    }

    fn reduce_fact(
        &mut self,
        tcx: TyCtxt<'tcx>,
        local_decls: &LocalDecls<'tcx>,
        fact: &SymbolicFact<'tcx>,
    ) -> bool {
        symbolic_interval::reduce_fact(
            tcx,
            local_decls,
            &mut self.interval,
            &mut self.symbolic,
            fact,
        ) && symbolic_nullptr::reduce_fact(
            tcx,
            local_decls,
            &mut self.nullptr,
            &mut self.symbolic,
            fact,
        ) && symbolic_allocation::reduce_fact(
            tcx,
            local_decls,
            &mut self.allocation,
            &self.symbolic,
            fact,
        )
    }
}