You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
22 lines
671 B
22 lines
671 B
-ifdef(OTP_RELEASE). %% this implies 21 or higher
|
|
-define(EXCEPTION(Class, Reason, Stacktrace), Class:Reason:Stacktrace).
|
|
-define(GET_STACK(Stacktrace), Stacktrace).
|
|
-else.
|
|
-define(EXCEPTION(Class, Reason, _), Class:Reason).
|
|
-define(GET_STACK(_), erlang:get_stacktrace()).
|
|
-endif.
|
|
|
|
-define(GSS(Stacktrace), try throw(0) catch _:_:Stacktrace -> Stacktrace end).
|
|
|
|
%% 追溯打印函数调用流程
|
|
-define(PRINT_STACK(Tag),
|
|
Stack =
|
|
try
|
|
throw(0)
|
|
catch
|
|
?EXCEPTION(_Class, _Reason, Stacktrace) ->
|
|
?GET_STACK(Stacktrace)
|
|
end,
|
|
io:format("tarce tag:~p cur Stacktrace:", [Tag]),
|
|
io:format(utParseStack:parseStack(Stack))
|
|
).
|