File 1163-dbg_SUITE-Remove-unused-functions.patch of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 1163-dbg_SUITE-Remove-unused-functions.patch of Package erlang (Revision 84136f040b8e10a77a20fc548a9bd409)

Currently displaying revision 84136f040b8e10a77a20fc548a9bd409 , Show latest

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

Places

File 1163-dbg_SUITE-Remove-unused-functions.patch of Package erlang (Revision 84136f040b8e10a77a20fc548a9bd409)

Places