From f6896751b454451fe05636d9d8b4f80eb191fd9c Mon Sep 17 00:00:00 2001 From: Tomoyuki Sahara Date: Thu, 2 Nov 2017 15:44:05 +0900 Subject: don't overwrite backtrace info. --- src/backtrace.c | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'src/backtrace.c') diff --git a/src/backtrace.c b/src/backtrace.c index 232d1c2f4..ddeb2a3ca 100644 --- a/src/backtrace.c +++ b/src/backtrace.c @@ -215,11 +215,14 @@ packed_backtrace(mrb_state *mrb) void mrb_keep_backtrace(mrb_state *mrb, mrb_value exc) { + mrb_sym sym = mrb_intern_lit(mrb, "backtrace"); mrb_value backtrace; - int ai = mrb_gc_arena_save(mrb); + int ai; + if (mrb_iv_defined(mrb, exc, sym)) return; + ai = mrb_gc_arena_save(mrb); backtrace = packed_backtrace(mrb); - mrb_iv_set(mrb, exc, mrb_intern_lit(mrb, "backtrace"), backtrace); + mrb_iv_set(mrb, exc, sym, backtrace); mrb_gc_arena_restore(mrb, ai); } -- cgit v1.2.3