forked from erlang/signerl
CCO: correctly resolve ISM Pid on response to outgoing Invokes
This commit is contained in:
parent
bc4c9669ae
commit
feb2275971
|
@ -345,7 +345,7 @@ process_rx_component(ISMs, C={invoke, #'Invoke'{invokeId=InvId}}) ->
|
||||||
ok
|
ok
|
||||||
end,
|
end,
|
||||||
Prim = asn_rec_to_uprim(C),
|
Prim = asn_rec_to_uprim(C),
|
||||||
ISM = lists:keyfind(InvId, 1, ISMs),
|
{InvId, ISM} = lists:keyfind(InvId, 1, ISMs),
|
||||||
gen_fsm:send_event(ISM, Prim);
|
gen_fsm:send_event(ISM, Prim);
|
||||||
process_rx_component(ISMs, C={reject, #'Reject'{invokeId=InvId,
|
process_rx_component(ISMs, C={reject, #'Reject'{invokeId=InvId,
|
||||||
problem=Problem}}) ->
|
problem=Problem}}) ->
|
||||||
|
@ -359,12 +359,12 @@ process_rx_component(ISMs, C={reject, #'Reject'{invokeId=InvId,
|
||||||
end,
|
end,
|
||||||
% FIXME: decide on TC-U-REJECT or TC-R-REJECT
|
% FIXME: decide on TC-U-REJECT or TC-R-REJECT
|
||||||
Prim = asn_rec_to_uprim(C),
|
Prim = asn_rec_to_uprim(C),
|
||||||
ISM = lists:keyfind(InvId, 1, ISMs),
|
{InvId, ISM} = lists:keyfind(InvId, 1, ISMs),
|
||||||
gen_fsm:send_event(ISM, Prim);
|
gen_fsm:send_event(ISM, Prim);
|
||||||
process_rx_component(ISMs, Comp) ->
|
process_rx_component(ISMs, Comp) ->
|
||||||
% syntax error?
|
% syntax error?
|
||||||
InvId = get_invoke_id_from_comp(Comp),
|
InvId = get_invoke_id_from_comp(Comp),
|
||||||
ISM = lists:keyfind(InvId, 1, ISMs),
|
{InvId, ISM} = lists:keyfind(InvId, 1, ISMs),
|
||||||
% FIXME: ISM active (No -> 6)
|
% FIXME: ISM active (No -> 6)
|
||||||
Prim = asn_rec_to_uprim(Comp),
|
Prim = asn_rec_to_uprim(Comp),
|
||||||
gen_fsm:send_event(ISM, Prim).
|
gen_fsm:send_event(ISM, Prim).
|
||||||
|
|
Loading…
Reference in New Issue