Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Ledest:erlang:23
erlang
0473-dbg_SUITE-Remove-unused-functions.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
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
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor