Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Ledest:erlang:19
looking_glass
0001-Remove-deprecated-function-erlang-get_stac...
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File 0001-Remove-deprecated-function-erlang-get_stacktrace.patch of Package looking_glass
From ab429c9c2f69a2a5a9bc01fbcfb27f120b8944b4 Mon Sep 17 00:00:00 2001 From: Michal Slaski <michal.slaski@erlang-solutions.com> Date: Fri, 12 Feb 2021 08:23:41 -0500 Subject: [PATCH] Remove deprecated function erlang:get_stacktrace() --- src/lg_flame.erl | 28 ++++++++++++---------------- 1 file changed, 12 insertions(+), 16 deletions(-) diff --git a/src/lg_flame.erl b/src/lg_flame.erl index a62cddc..b86e75c 100644 --- a/src/lg_flame.erl +++ b/src/lg_flame.erl @@ -125,8 +121,8 @@ exp1_inner({trace_ts, Pid, call, MFA, BIN, TS}, end, %% TODO: more state tracking here. S#state{pid=Pid, last_ts=TS, count=Count+1, acc=Acc2} - catch XX:YY -> - io:format(user, "~p: ~p:~p @ ~p\n", [?LINE, XX, YY, erlang:get_stacktrace()]), + catch XX:YY:ZZ -> + io:format(user, "~p: ~p:~p @ ~p\n", [?LINE, XX, YY, ZZ]), S end; exp1_inner({trace_ts, _Pid, return_to, MFA, TS}, #state{last_ts=LastTS, acc=Acc} = S) -> @@ -146,8 +142,8 @@ exp1_inner({trace_ts, _Pid, return_to, MFA, TS}, #state{last_ts=LastTS, acc=Acc} {LastStack, LastTime + USec}|Tail], % io:format(user, "return-to: ~p\n", [lists:sublist(Acc2, 4)]), S#state{last_ts=TS, acc=Acc2} - catch XX:YY -> - io:format(user, "~p: ~p:~p @ ~p\n", [?LINE, XX, YY, erlang:get_stacktrace()]), + catch XX:YY:ZZ -> + io:format(user, "~p: ~p:~p @ ~p\n", [?LINE, XX, YY, ZZ]), S end; @@ -161,8 +157,8 @@ exp1_inner({trace_ts, _Pid, gc_start, _Info, TS}, #state{last_ts=LastTS, acc=Acc {LastStack, LastTime + USec}|Tail], % io:format(user, "GC 1: ~p\n", [lists:sublist(Acc2, 4)]), S#state{last_ts=TS, acc=Acc2} - catch _XX:_YY -> - %% io:format(user, "~p: ~p:~p @ ~p\n", [?LINE, _XX, _YY, erlang:get_stacktrace()]), + catch _XX:_YY:_ZZ -> + %% io:format(user, "~p: ~p:~p @ ~p\n", [?LINE, _XX, _YY, _ZZ]), S end; exp1_inner({trace_ts, _Pid, gc_end, _Info, TS}, #state{last_ts=LastTS, acc=Acc} = S) -> @@ -174,8 +170,8 @@ exp1_inner({trace_ts, _Pid, gc_end, _Info, TS}, #state{last_ts=LastTS, acc=Acc} Acc2 = [{LastExecStack, 0}, {GCStack, GCTime + USec}|Tail], % io:format(user, "GC 2: ~p\n", [lists:sublist(Acc2, 4)]), S#state{last_ts=TS, acc=Acc2} - catch _XX:_YY -> - %% io:format(user, "~p: ~p:~p @ ~p\n", [?LINE, _XX, _YY, erlang:get_stacktrace()]), + catch _XX:_YY:_ZZ -> + %% io:format(user, "~p: ~p:~p @ ~p\n", [?LINE, _XX, _YY, _ZZ]), S end; @@ -191,8 +187,8 @@ exp1_inner({trace_ts, _Pid, out, MFA, TS}, #state{last_ts=LastTS, acc=Acc} = S) Acc2 = [{NewStack, 0}, {LastStack, LastTime + USec}|Tail], S#state{last_ts=TS, acc=Acc2} - catch XX:YY -> - io:format(user, "~p: ~p:~p @ ~p\n", [?LINE, XX, YY, erlang:get_stacktrace()]), + catch XX:YY:ZZ -> + io:format(user, "~p: ~p:~p @ ~p\n", [?LINE, XX, YY, ZZ]), S end; exp1_inner({trace_ts, _Pid, in, MFA, TS}, #state{last_ts=LastTS, acc=Acc} = S) -> @@ -206,8 +202,8 @@ exp1_inner({trace_ts, _Pid, in, MFA, TS}, #state{last_ts=LastTS, acc=Acc} = S) - USec = TS - LastTS, Acc2 = [{[MFA_bin|LastExecStack], 0}, {SleepStack, SleepTime + USec}|Tail], S#state{last_ts=TS, acc=Acc2} - catch XX:YY -> - io:format(user, "~p: ~p:~p @ ~p\n", [?LINE, XX, YY, erlang:get_stacktrace()]), + catch XX:YY:ZZ -> + io:format(user, "~p: ~p:~p @ ~p\n", [?LINE, XX, YY, ZZ]), S end; -- 2.35.3
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