Restore MRB_API function `mrb_exc_backtrace(mrb, exc)`; ref 9644ad5

2 files changed, 18 insertions, 18 deletions

diff --git a/src/backtrace.c b/src/backtrace.c
index ea88aca9f..dd00bc9d2 100644
--- a/src/backtrace.c
+++ b/src/backtrace.c
@@ -227,7 +227,23 @@ mrb_unpack_backtrace(mrb_state *mrb, mrb_value backtrace)
   return backtrace;
 }
 
-mrb_value
+MRB_API mrb_value
+mrb_exc_backtrace(mrb_state *mrb, mrb_value exc)
+{
+  mrb_sym attr_name;
+  mrb_value backtrace;
+
+  attr_name = mrb_intern_lit(mrb, "backtrace");
+  backtrace = mrb_iv_get(mrb, exc, attr_name);
+  if (mrb_nil_p(backtrace) || mrb_array_p(backtrace)) {
+    return backtrace;
+  }
+  backtrace = mrb_unpack_backtrace(mrb, backtrace);
+  mrb_iv_set(mrb, exc, attr_name, backtrace);
+  return backtrace;
+}
+
+MRB_API mrb_value
 mrb_get_backtrace(mrb_state *mrb)
 {
   return mrb_unpack_backtrace(mrb, packed_backtrace(mrb));
diff --git a/src/error.c b/src/error.c
index b71c718e2..d30ef9322 100644
--- a/src/error.c
+++ b/src/error.c
@@ -164,22 +164,6 @@ exc_inspect(mrb_state *mrb, mrb_value exc)
 }
 
 void mrb_keep_backtrace(mrb_state *mrb, mrb_value exc);
-mrb_value mrb_unpack_backtrace(mrb_state *mrb, mrb_value backtrace);
-
-static mrb_value
-exc_get_backtrace(mrb_state *mrb, mrb_value exc)
-{
-  mrb_sym attr_name;
-  mrb_value backtrace;
-
-  attr_name = mrb_intern_lit(mrb, "backtrace");
-  backtrace = mrb_iv_get(mrb, exc, attr_name);
-  if (!mrb_array_p(backtrace)) {
-    backtrace = mrb_unpack_backtrace(mrb, backtrace);
-    mrb_iv_set(mrb, exc, attr_name, backtrace);
-  }
-  return backtrace;
-}
 
 static void
 set_backtrace(mrb_state *mrb, mrb_value exc, mrb_value backtrace)
@@ -498,7 +482,7 @@ mrb_init_exception(mrb_state *mrb)
   mrb_define_method(mrb, exception, "to_s",            exc_to_s,          MRB_ARGS_NONE());
   mrb_define_method(mrb, exception, "message",         exc_message,       MRB_ARGS_NONE());
   mrb_define_method(mrb, exception, "inspect",         exc_inspect,       MRB_ARGS_NONE());
-  mrb_define_method(mrb, exception, "backtrace",       exc_get_backtrace, MRB_ARGS_NONE());
+  mrb_define_method(mrb, exception, "backtrace",       mrb_exc_backtrace, MRB_ARGS_NONE());
   mrb_define_method(mrb, exception, "set_backtrace",   exc_set_backtrace, MRB_ARGS_REQ(1));
 
   mrb->eStandardError_class = mrb_define_class(mrb, "StandardError", mrb->eException_class); /* 15.2.23 */