Merge branch 'hasse/no_get_stacktrace/OTP-14861'

* hasse/no_get_stacktrace/OTP-14861:
  erts: Update abstract format doc with stacktrace variable
  wx: Do not call erlang:get_stacktrace()
  tools: Do not call erlang:get_stacktrace()
  stdlib: Do not call erlang:get_stacktrace()
  sasl: Do not call erlang:get_stacktrace()
  runtime_tools: Do not call erlang:get_stacktrace()
  reltool: Do not call erlang:get_stacktrace()
  parsetools: Do not call erlang:get_stacktrace()
  observer: Do not call erlang:get_stacktrace()
  mnesia: Do not call erlang:get_stacktrace() (cont)
  mnesia: Do not call erlang:get_stacktrace()
  kernel: Do not call erlang:get_stacktrace()
  inets: Do not call erlang:get_stacktrace()
  eunit: Do not call erlang:get_stacktrace()
  et: Do not call erlang:get_stacktrace()
  dialyzer: Do not call erlang:get_stacktrace()
  debugger: Do not call erlang:get_stacktrace()
  debugger: Do not try to restore stacktrace
  common_test: Do not call erlang:get_stacktrace()

1 files changed, 10 insertions, 10 deletions

diff --git a/lib/stdlib/src/gen_server.erl b/lib/stdlib/src/gen_server.erl
index ac172325b5..77a46419f6 100644
--- a/lib/stdlib/src/gen_server.erl
+++ b/lib/stdlib/src/gen_server.erl
@@ -109,7 +109,7 @@
 
 -define(
    STACKTRACE(),
-   try throw(ok) catch _ -> erlang:get_stacktrace() end).
+   element(2, erlang:process_info(self(), current_stacktrace))).
 
 %%%=========================================================================
 %%%  API
@@ -369,7 +369,7 @@ init_it(Mod, Args) ->
 	{ok, Mod:init(Args)}
     catch
 	throw:R -> {ok, R};
-	Class:R -> {'EXIT', Class, R, erlang:get_stacktrace()}
+	Class:R:S -> {'EXIT', Class, R, S}
     end.
 
 %%%========================================================================
@@ -634,7 +634,7 @@ try_dispatch(Mod, Func, Msg, State) ->
     catch
 	throw:R ->
 	    {ok, R};
-        error:undef = R when Func == handle_info ->
+        error:undef = R:Stacktrace when Func == handle_info ->
             case erlang:function_exported(Mod, handle_info, 2) of
                 false ->
                     error_logger:warning_msg("** Undefined handle_info in ~p~n"
@@ -642,10 +642,10 @@ try_dispatch(Mod, Func, Msg, State) ->
                                              [Mod, Msg]),
                     {ok, {noreply, State}};
                 true ->
-                    {'EXIT', error, R, erlang:get_stacktrace()}
+                    {'EXIT', error, R, Stacktrace}
             end;
-	Class:R ->
-	    {'EXIT', Class, R, erlang:get_stacktrace()}
+	Class:R:Stacktrace ->
+	    {'EXIT', Class, R, Stacktrace}
     end.
 
 try_handle_call(Mod, Msg, From, State) ->
@@ -654,8 +654,8 @@ try_handle_call(Mod, Msg, From, State) ->
     catch
 	throw:R ->
 	    {ok, R};
-	Class:R ->
-	    {'EXIT', Class, R, erlang:get_stacktrace()}
+	Class:R:Stacktrace ->
+	    {'EXIT', Class, R, Stacktrace}
     end.
 
 try_terminate(Mod, Reason, State) ->
@@ -666,8 +666,8 @@ try_terminate(Mod, Reason, State) ->
 	    catch
 		throw:R ->
 		    {ok, R};
-		Class:R ->
-		    {'EXIT', Class, R, erlang:get_stacktrace()}
+		Class:R:Stacktrace ->
+		    {'EXIT', Class, R, Stacktrace}
 	   end;
 	false ->
 	    {ok, ok}