File 0001-Remove-deprecated-function-erlang-get_stac... of Package looking_glass

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

Places

File 0001-Remove-deprecated-function-erlang-get_stacktrace.patch of Package looking_glass

Places