summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorHarald Welte <laforge@gnumonks.org>2012-02-01 21:58:13 +0100
committerHarald Welte <laforge@gnumonks.org>2012-02-01 21:58:13 +0100
commitd0b28f51c37d8a4d27175ff703636990b480106d (patch)
tree6a9ef240f2769c54309410e50c18c8d0af28b1c8
parent148d299b2856be3a527a922958dadbac2336070a (diff)
ISM: use gen_fsm:send_event(usap), not gen_server:cast(usap)
-rw-r--r--TCAP/src/ITU/tcap_ism_fsm.erl10
1 files changed, 5 insertions, 5 deletions
diff --git a/TCAP/src/ITU/tcap_ism_fsm.erl b/TCAP/src/ITU/tcap_ism_fsm.erl
index 82eeaee..3c12c7a 100644
--- a/TCAP/src/ITU/tcap_ism_fsm.erl
+++ b/TCAP/src/ITU/tcap_ism_fsm.erl
@@ -122,7 +122,7 @@ idle('operation-sent', State) ->
op_sent_cl1(P=#'TC-RESULT-L'{}, State) ->
% Figure A.7/Q.774 (2 of 6)
% TC-RESULT-L.ind to user
- gen_server:cast(P, State#state.usap),
+ gen_fsm:send_event(State#state.usap, P),
% stop invocation timer
timer:cancel(State#state.inv_timer),
% start reject timer
@@ -131,7 +131,7 @@ op_sent_cl1(P=#'TC-RESULT-L'{}, State) ->
op_sent_cl1(P=#'TC-U-REJECT'{}, State) ->
% Figure A.7/Q.774 (2 of 6)
% TC-U-ERROR.ind to user
- gen_server:cast(P, State#state.usap),
+ gen_fsm:send_event(State#state.usap, P),
% stop invocation timer
timer:cancel(State#state.inv_timer),
% start reject timer
@@ -140,7 +140,7 @@ op_sent_cl1(P=#'TC-U-REJECT'{}, State) ->
op_sent_cl1(P=#'TC-RESULT-NL'{}, State) ->
% Figure A.7/Q.774 (2 of 6)
% TC-RESULT-NL.ind to user
- gen_server:cast(P, State#state.usap),
+ gen_fsm:send_event(State#state.usap, P),
{next_state, op_sent_cl1, State};
op_sent_cl1('terminate', State) ->
% stop invocation timer
@@ -183,7 +183,7 @@ op_sent_cl2('terminate', State) ->
op_sent_cl3(P=#'TC-RESULT-L'{}, State) ->
% Figure A.7/Q.774 (5 of 6)
% TC-RESULT-L.ind to user
- gen_server:cast(State#state.usap, P),
+ gen_fsm:send_event(State#state.usap, P),
% stop invocation timer
timer:cancel(State#state.inv_timer),
% start reject timer
@@ -191,7 +191,7 @@ op_sent_cl3(P=#'TC-RESULT-L'{}, State) ->
{next_state, wait_for_reject, State#state{rej_timer = Trej}};
op_sent_cl3(P=#'TC-RESULT-NL'{}, State) ->
% TC-RESULT-NL.ind to user
- gen_server:cast(State#state.usap, P),
+ gen_fsm:send_event(State#state.usap, P),
{next_state, op_sent_cl3, State};
op_sent_cl3('terminate', State) ->
% stop invocation timter