ft: 部分优化

src/gen_apu.erl

@@ -314,7 +314,7 @@ system_code_change({Name, Module, HibernateAfterTimeout, Timers, CurState, IsHib
       try Module:code_change(OldVsn, CurState, Extra)
       catch
          throw:Result -> Result;
-         _C:_R -> {_R, _R}
+         _C:_R:_S -> {_C, _R, _S}
       end
    of
       {ok, NewState} -> {ok, {Name, Module, HibernateAfterTimeout, Timers, NewState, IsHib}};
@@ -1034,10 +1034,10 @@ try_terminate(Mod, Reason, State) ->
          try
             {ok, Mod:terminate(Reason, State)}
          catch
-            throw:R ->
-               {ok, R};
-            Class:R ->
-               {'EXIT', Class, R, ?STACKTRACE()}
+            throw:Ret ->
+               {ok, Ret};
+            Class:Reason:Strace ->
+               {'EXIT', Class, Reason, Strace}
          end;
       false ->
          {ok, ok}

src/gen_emm.erl

@@ -528,8 +528,8 @@ doEpmHandle(EpmHers, EpmId, Func, Event, From) ->
          catch
             throw:Ret ->
                handleEpmCR(Ret, EpmHers, EpmId, EpmHer, Event, From);
-            C:R:S ->
-               epmTerminate(EpmHer, {error, {C, R, S}}, Event, crash),
+            Class:Reason:Strace ->
+               epmTerminate(EpmHer, {error, {Class, Reason, Strace}}, Event, crash),
                maps:remove(EpmId, EpmHers)
          end;
       _ ->

src/gen_ipc.erl

@@ -468,7 +468,7 @@ system_code_change({Parent, Name, Module, HibernateAfterTimeout, IsEnter, EpmHer
       try Module:code_change(OldVsn, CurStatus, CurState, Extra)
       catch
          throw:Result -> Result;
-         _C:_R -> {_R, _R}
+         _C:_R:_S -> {_C, _R, _S}
       end
    of
       {ok, NewStatus, NewState} ->
@@ -2002,9 +2002,9 @@ terminate(Class, Reason, Stacktrace, Parent, Name, Module, HibernateAfterTimeout
             _ -> ok
          catch
             throw:_ -> ok;
-            C:R ->
-               error_info(C, R, ?STACKTRACE(), Parent, Name, Module, HibernateAfterTimeout, IsEnter, EpmHers, Postponed, Timers, CurStatus, CurState, Debug, LeftEvents),
-               erlang:raise(C, R, ?STACKTRACE())
+            Class:Reason:Strace ->
+               error_info(Class, Reason, Strace, Parent, Name, Module, HibernateAfterTimeout, IsEnter, EpmHers, Postponed, Timers, CurStatus, CurState, Debug, LeftEvents),
+               erlang:raise(Class, Reason, Strace)
          end;
       false ->
          ok

src/gen_mpp.erl

@@ -306,7 +306,7 @@ system_code_change({Name, Module, HibernateAfterTimeout, Timers, CurState, IsHib
       try Module:code_change(OldVsn, CurState, Extra)
       catch
          throw:Result -> Result;
-         _C:_R -> {_R, _R}
+         _C:_R:_S -> {_C, _R, _S}
       end
    of
       {ok, NewState} -> {ok, {Name, Module, HibernateAfterTimeout, Timers, NewState, IsHib}};
@@ -934,10 +934,10 @@ try_terminate(Mod, Reason, State) ->
          try
             {ok, Mod:terminate(Reason, State)}
          catch
-            throw:R ->
-               {ok, R};
-            Class:R:S ->
-               {'EXIT', Class, R, S}
+            throw:Ret ->
+               {ok, Ret};
+            Class:Reason:Strace ->
+               {'EXIT', Class, Reason, Strace}
          end;
       false ->
          {ok, ok}

src/gen_srv.erl

@@ -310,7 +310,7 @@ system_code_change({Name, Module, HibernateAfterTimeout, Timers, CurState, IsHib
       try Module:code_change(OldVsn, CurState, Extra)
       catch
          throw:Result -> Result;
-         _C:_R -> {_R, _R}
+         _C:_R:_S -> {_C, _R, _S}
       end
    of
       {ok, NewState} -> {ok, {Name, Module, HibernateAfterTimeout, Timers, NewState, IsHib}};
@@ -1014,10 +1014,10 @@ try_terminate(Mod, Reason, State) ->
          try
             {ok, Mod:terminate(Reason, State)}
          catch
-            throw:R ->
-               {ok, R};
-            Class:R ->
-               {'EXIT', Class, R, ?STACKTRACE()}
+            throw:Ret ->
+               {ok, Ret};
+            Class:Reason:Strace ->
+               {'EXIT', Class, Reason, Strace}
          end;
       false ->
          {ok, ok}