File 0473-dbg_SUITE-Remove-unused-functions.patch of Package erlang
From d7529175233abae6b6d384011b2d28c625314bd0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= <bjorn@erlang.org>
Date: Thu, 25 Feb 2021 09:49:59 +0100
Subject: [PATCH 3/9] dbg_SUITE: Remove unused functions
---
lib/runtime_tools/test/dbg_SUITE.erl | 118 ---------------------------
1 file changed, 118 deletions(-)
diff --git a/lib/runtime_tools/test/dbg_SUITE.erl b/lib/runtime_tools/test/dbg_SUITE.erl
index f28681ef05..31605d7da5 100644
--- a/lib/runtime_tools/test/dbg_SUITE.erl
+++ b/lib/runtime_tools/test/dbg_SUITE.erl
@@ -991,121 +991,3 @@ start() ->
stop() ->
dbg:stop().
-
-
-
-schedstat_handler(TraceMsg, {Parent, Tag, Data} = State) ->
- case TraceMsg of
- {trace_ts, Pid, in, _, Ts} ->
- NewData =
- case lists:keysearch(Pid, 1, Data) of
- {value, {Pid, Acc}} ->
- [{Pid, Acc, Ts} | lists:keydelete(Pid, 1, Data)];
- false ->
- [{Pid, {0, 0, 0}, Ts} | Data];
- Other ->
- exit(Parent, {?MODULE, ?LINE, Other}),
- erlang:display({?MODULE, ?LINE, Other}),
- Data
- end,
- {Parent, Tag, NewData};
- {trace_ts, Pid, out, _, {A3, B3, C3}} ->
- NewData =
- case lists:keysearch(Pid, 1, Data) of
- {value, {Pid, {A1, B1, C1}, {A2, B2, C2}}} ->
- [{Pid, {A3-A2+A1, B3-B2+B1, C3-C2+C1}} |
- lists:keydelete(Pid, 1, Data)];
- Other ->
- exit(Parent, {?MODULE, ?LINE, Other}),
- erlang:display({?MODULE, ?LINE, Other}),
- Data
- end,
- {Parent, Tag, NewData};
- {trace_ts,_Pid,spawned,_OtherPid,_,_Ts} ->
- State;
- {trace_ts,_Pid,getting_linked,_OtherPid,_Ts} ->
- State;
- {trace_ts, Pid, exit, normal, {A3, B3, C3}} ->
- NewData =
- case lists:keysearch(Pid, 1, Data) of
- {value, {Pid, {A1, B1, C1}, {A2, B2, C2}}} ->
- [{Pid, {A3-A2+A1, B3-B2+B1, C3-C2+C1}} |
- lists:keydelete(Pid, 1, Data)];
- {value, {Pid, _Acc}} ->
- Data;
- false ->
- [{Pid, {0, 0, 0}} | Data];
- Other ->
- exit(Parent, {?MODULE, ?LINE, Other}),
- erlang:display({?MODULE, ?LINE, Other}),
- Data
- end,
- {Parent, Tag, NewData};
- {trace_ts, _Pid, send, _Msg, _OtherPid, _Ts} ->
- State;
- end_of_trace ->
- Parent ! {Tag, Data},
- State
- end.
-
-
-
-pass_token(Token, Next, Loops) ->
- receive
- {Token, 1} = Msg ->
- sendloop(Loops),
- Next ! Msg;
- {Token, _Cnt} = Msg->
- sendloop(Loops),
- Next ! Msg,
- pass_token(Token, Next, Loops)
- end.
-
-pass_token(Token, Final, Cnt, Loops) ->
- receive
- {Token, start, Next} ->
- sendloop(Loops),
- Msg = {Token, Cnt},
- Next ! Msg,
- pass_token(Token, Final, Next, Cnt, Loops)
- end.
-
-pass_token(Token, Final, Next, Cnt, Loops) ->
- receive
- {Token, 1} ->
- sendloop(Loops),
- Msg = {Token, done},
- Final ! Msg;
- {Token, Cnt} ->
- sendloop(Loops),
- NextCnt = Cnt-1,
- Msg = {Token, NextCnt},
- Next ! Msg,
- pass_token(Token, Final, Next, NextCnt, Loops)
- end.
-
-sendloop(Loops) ->
- sendloop(make_ref(), Loops).
-
-sendloop(_Tag, 0) ->
- ok;
-sendloop(Tag, Loops) ->
- self() ! {Tag, Loops},
- receive {Tag, Loops} -> ok end,
- sendloop(Tag, Loops-1).
-
-token_volleyball(N, Cnt, Loops)
- when is_integer(N), N >= 1, is_integer(Cnt), Cnt >= 1,
- is_integer(Loops), Loops >= 0 ->
- Self = self(),
- Token = make_ref(),
- Last = spawn_link(fun() -> pass_token(Token, Self, Cnt, Loops) end),
- First = token_volleyball(Token, Last, N-1, Loops),
- Last ! {Token, start, First},
- receive {Token, done} -> ok end.
-
-token_volleyball(Token, Next, 1, Loops) ->
- spawn_link(fun() -> pass_token(Token, Next, Loops) end);
-token_volleyball(Token, Next, N, Loops) ->
- Pid = spawn_link(fun() -> pass_token(Token, Next, Loops) end),
- token_volleyball(Token, Pid, N-1, Loops).
--
2.26.2
