aboutsummaryrefslogtreecommitdiffstats
path: root/lib/stdlib
diff options
context:
space:
mode:
authorDan Gudmundsson <[email protected]>2016-05-30 14:14:54 +0200
committerDan Gudmundsson <[email protected]>2016-05-30 14:14:54 +0200
commit5e316eca0302c1664b9076284f38cd9b98a88dea (patch)
tree7ff77b3a0ed55dfe3affc2e243f6d8ecc45517cc /lib/stdlib
parent9e1cf7d76879d9e4d2a32e12ac036b195fcecbb1 (diff)
parentcd412d911efbda23e7dd3aef5cf910defc886211 (diff)
downloadotp-5e316eca0302c1664b9076284f38cd9b98a88dea.tar.gz
otp-5e316eca0302c1664b9076284f38cd9b98a88dea.tar.bz2
otp-5e316eca0302c1664b9076284f38cd9b98a88dea.zip
Merge branch 'dgud/stdlib/relax-proc_lib-initial-call/OTP-13623'
* dgud/stdlib/relax-proc_lib-initial-call/OTP-13623: Relax translation of initial calls
Diffstat (limited to 'lib/stdlib')
-rw-r--r--lib/stdlib/src/proc_lib.erl14
1 files changed, 4 insertions, 10 deletions
diff --git a/lib/stdlib/src/proc_lib.erl b/lib/stdlib/src/proc_lib.erl
index 4a19603ec2..3dc1848550 100644
--- a/lib/stdlib/src/proc_lib.erl
+++ b/lib/stdlib/src/proc_lib.erl
@@ -479,18 +479,12 @@ trans_init(gen,init_it,[gen_server,_,_,supervisor_bridge,[Module|_],_]) ->
{supervisor_bridge,Module,1};
trans_init(gen,init_it,[gen_server,_,_,_,supervisor_bridge,[Module|_],_]) ->
{supervisor_bridge,Module,1};
-trans_init(gen,init_it,[GenMod,_,_,Module,_,_])
- when GenMod =:= gen_server;
- GenMod =:= gen_statem;
- GenMod =:= gen_fsm ->
- {Module,init,1};
-trans_init(gen,init_it,[GenMod,_,_,_,Module|_])
- when GenMod =:= gen_server;
- GenMod =:= gen_statem;
- GenMod =:= gen_fsm ->
- {Module,init,1};
trans_init(gen,init_it,[gen_event|_]) ->
{gen_event,init_it,6};
+trans_init(gen,init_it,[_GenMod,_,_,Module,_,_]) when is_atom(Module) ->
+ {Module,init,1};
+trans_init(gen,init_it,[_GenMod,_,_,_,Module|_]) when is_atom(Module) ->
+ {Module,init,1};
trans_init(M, F, A) when is_atom(M), is_atom(F) ->
{M,F,length(A)}.