|
|
|
@ -372,14 +372,14 @@ module Domain : AbstractDomain.S with type t = astate = struct
|
|
|
|
|
Memory.fold (one_addr state.subst) state.astate.heap (Memory.empty, true)
|
|
|
|
|
in
|
|
|
|
|
if has_converged then (
|
|
|
|
|
L.d_strln "Join unified addresses:" ;
|
|
|
|
|
L.d_increase_indent () ;
|
|
|
|
|
Container.iter state.subst ~fold:AddressUF.fold_sets
|
|
|
|
|
let pp_union_find_classes f subst =
|
|
|
|
|
Container.iter subst ~fold:AddressUF.fold_sets
|
|
|
|
|
~f:(fun ((repr : AddressUF.Repr.t), set) ->
|
|
|
|
|
L.d_printfln "%a=%a" AbstractAddress.pp
|
|
|
|
|
F.fprintf f "%a=%a@;" AbstractAddress.pp
|
|
|
|
|
(repr :> AbstractAddress.t)
|
|
|
|
|
AddressUnionSet.pp set ) ;
|
|
|
|
|
L.d_decrease_indent () ;
|
|
|
|
|
AddressUnionSet.pp set )
|
|
|
|
|
in
|
|
|
|
|
L.d_printfln "Join unified addresses:@\n@[<v2> %a@]" pp_union_find_classes state.subst ;
|
|
|
|
|
let stack = Stack.map (to_canonical_address state.subst) state.astate.stack in
|
|
|
|
|
{heap; stack} )
|
|
|
|
|
else normalize {state with astate= {state.astate with heap}}
|
|
|
|
|