forked from erlang/signerl
ISM: give ISM processes a proper name to help debugging
This commit is contained in:
parent
c2773f018b
commit
153cdc4564
|
@ -54,8 +54,9 @@ init([]) ->
|
|||
|
||||
start_ism(USAP, DlgId, InvokeID, CcoPid, OpClass, Timeout) ->
|
||||
SupRef = list_to_atom("tcap_invocation_sup_" ++ integer_to_list(DlgId)),
|
||||
Name = list_to_atom("tcap_ism_" ++ integer_to_list(DlgId) ++ "_" ++ integer_to_list(InvokeID)),
|
||||
StartArgs = [USAP, DlgId, InvokeID, CcoPid, OpClass, Timeout],
|
||||
StartFunc = {gen_fsm, start_link, [tcap_ism_fsm, StartArgs, [{debug,[trace]}]]},
|
||||
StartFunc = {gen_fsm, start_link, [{local, Name}, tcap_ism_fsm, StartArgs, [{debug,[trace]}]]},
|
||||
ChildSpec = {ism, StartFunc, temporary, 4000, worker,
|
||||
[tcap_ism_sup]},
|
||||
supervisor:start_child(SupRef, ChildSpec).
|
||||
|
|
Loading…
Reference in New Issue