Add more PULSE instrumentation -> more deadlocks

src/machi_chain_manager1.erl

@@ -118,6 +118,7 @@
 -endif.
 -ifdef(PULSE).
 -compile({parse_transform, pulse_instrument}).
+-include_lib("pulse_otp/include/pulse_otp.hrl").
 -endif.
 
 -include_lib("eunit/include/eunit.hrl").

src/machi_flu1_client.erl

@@ -45,6 +45,11 @@
 -include("machi_pb.hrl").
 -include("machi_projection.hrl").
 
+-ifdef(PULSE).
+-compile({parse_transform, pulse_instrument}).
+-include_lib("pulse_otp/include/pulse_otp.hrl").
+-endif.
+
 -define(HARD_TIMEOUT, 2500).
 
 -export([

src/machi_pb_translate.erl

@@ -26,6 +26,11 @@
 -include("machi_pb.hrl").
 -include("machi_projection.hrl").
 
+-ifdef(PULSE).
+-compile({parse_transform, pulse_instrument}).
+-include_lib("pulse_otp/include/pulse_otp.hrl").
+-endif.
+
 -export([from_pb_request/1,
          from_pb_response/1,
          to_pb_request/2,

src/machi_projection_store.erl

@@ -42,6 +42,11 @@
 
 -include("machi_projection.hrl").
 
+-ifdef(PULSE).
+-compile({parse_transform, pulse_instrument}).
+-include_lib("pulse_otp/include/pulse_otp.hrl").
+-endif.
+
 %% API
 -export([
          start_link/3,

src/machi_proxy_flu1_client.erl

@@ -47,6 +47,10 @@
 
 -ifdef(TEST).
 -include_lib("eunit/include/eunit.hrl").
+-ifdef(PULSE).
+-compile({parse_transform, pulse_instrument}).
+-include_lib("pulse_otp/include/pulse_otp.hrl").
+-endif.
 -endif. % TEST.
 
 -export([start_link/1]).

test/machi_chain_manager1_pulse.erl

@@ -469,8 +469,8 @@ shutdown_hard() ->
 exec_ticks(Num, All_listE) ->
     Parent = self(),
     Pids = [spawn_link(fun() ->
+                          %% ?V("tick-~w,", [self()]),
                           [begin
-                               erlang:yield(),
                                M_name = P#p_srvr.name,
                                %% Max = 10,
                                Max = 25,