CERBERUS/mtproto_proxy
1
0
Fork 0
mirror of https://github.com/seriyps/mtproto_proxy.git synced 2026-08-04 15:19:47 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Garbage-collect self before making final decision about termination

Browse source
This commit is contained in:
Сергей Прохоров 2018-10-27 20:35:44 +02:00
parent 835f82aa73
commit 120bf6a46e
No known key found for this signature in database
GPG key ID: 1C570244E4EF3337
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/mtp_handler.erl
View file

@ -320,7 +320,7 @@ check_queue_overflow(#state{last_queue_check = LastCheck} = S) ->
true ->
{noreply, S};
false ->
case do_check_queue_overflow() of
case do_check_queue_overflow(true) of
ok ->
{noreply, S#state{last_queue_check = NowMs}};
overflow ->
@ -328,7 +328,7 @@ check_queue_overflow(#state{last_queue_check = LastCheck} = S) ->
end
end.
do_check_queue_overflow() ->
do_check_queue_overflow(Gc) ->
[{_, QLen}, {_, Mem}, {_, Bin}] =
erlang:process_info(self(), [message_queue_len, memory, binary]),
%% BinSum = sum_binary(Bin),
@ -339,6 +339,9 @@ do_check_queue_overflow() ->
RefcBinSize = sum_binary(Bin),
TotalMem = Mem + RefcBinSize,
case TotalMem > ?QUEUE_CHECK_MAX_MEM of
true when Gc->
erlang:garbage_collect(self()),
do_check_queue_overflow(false);
true ->
lager:warning(
"Process too large queue_len=~w, memory=~w, binary_sum=~w, binary=~p",