|
|
@ -184,11 +184,8 @@ struct
|
|
|
|
let exec_instr pre_disjuncts analysis_data node instr =
|
|
|
|
let exec_instr pre_disjuncts analysis_data node instr =
|
|
|
|
List.foldi pre_disjuncts ~init:[] ~f:(fun i post_disjuncts pre_disjunct ->
|
|
|
|
List.foldi pre_disjuncts ~init:[] ~f:(fun i post_disjuncts pre_disjunct ->
|
|
|
|
let should_skip =
|
|
|
|
let should_skip =
|
|
|
|
match DConfig.join_policy with
|
|
|
|
let (`UnderApproximateAfter n) = DConfig.join_policy in
|
|
|
|
| `NeverJoin ->
|
|
|
|
List.length post_disjuncts >= n
|
|
|
|
false
|
|
|
|
|
|
|
|
| `UnderApproximateAfter n ->
|
|
|
|
|
|
|
|
List.length post_disjuncts >= n
|
|
|
|
|
|
|
|
in
|
|
|
|
in
|
|
|
|
if should_skip then (
|
|
|
|
if should_skip then (
|
|
|
|
L.d_printfln "@[<v2>Reached max disjuncts limit, skipping disjunct #%d@;@]" i ;
|
|
|
|
L.d_printfln "@[<v2>Reached max disjuncts limit, skipping disjunct #%d@;@]" i ;
|
|
|
|