Add more ?REACT() tracing

This commit is contained in:
Scott Lystig Fritchie 2015-08-14 19:30:05 +09:00
parent 5aff775383
commit 9e02a1ea73

View file

@ -640,6 +640,9 @@ calc_projection(#ch_mgr{proj=LastProj, consistency_mode=CMode,
{_, false} -> {_, false} ->
case make_zerf(LastProj, S) of case make_zerf(LastProj, S) of
Zerf when is_record(Zerf, projection_v1) -> Zerf when is_record(Zerf, projection_v1) ->
?REACT({calc,?LINE,
[{zerf_backstop, true},
{zerf_in, machi_projection:make_summary(Zerf)}]}),
calc_projection2(Zerf, RelativeToServer, AllHosed, calc_projection2(Zerf, RelativeToServer, AllHosed,
[{zerf_backstop, true}]++Dbg, S); [{zerf_backstop, true}]++Dbg, S);
Zerf -> Zerf ->
@ -673,6 +676,8 @@ calc_projection2(LastProj, RelativeToServer, AllHosed, Dbg,
NewUp = Up -- LastUp, NewUp = Up -- LastUp,
Down = AllMembers -- Up, Down = AllMembers -- Up,
?REACT({calc,?LINE,[{last_up, LastUp}, {up0, Up0}, {all_hosed, AllHosed},
{up, Up}, {new_up, NewUp}, {down, Down}]}),
NewUPI_list = NewUPI_list =
[X || X <- OldUPI_list, lists:member(X, Up) andalso [X || X <- OldUPI_list, lists:member(X, Up) andalso