From 5dd6a853edf522c09ee793b3d8dbf78fd42c02ca Mon Sep 17 00:00:00 2001 From: nobu Date: Mon, 14 Jan 2008 18:41:44 +0000 Subject: * eval.c (eval): check if backtrace is empty. [ruby-core:15040] git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@15054 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ChangeLog | 4 ++++ eval.c | 11 ++++++----- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index 45a4a147c2..4752aaec09 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +Tue Jan 15 03:41:42 2008 Nobuyoshi Nakada + + * eval.c (eval): check if backtrace is empty. [ruby-core:15040] + Tue Jan 15 01:28:47 2008 Nobuyoshi Nakada * common.mk: simplified dummy objects dependencies. diff --git a/eval.c b/eval.c index cc965f2a12..e83e9327c1 100644 --- a/eval.c +++ b/eval.c @@ -6535,16 +6535,17 @@ eval(self, src, scope, file, line) if (state) { if (state == TAG_RAISE) { if (strcmp(file, "(eval)") == 0) { - VALUE mesg, errat; + VALUE mesg, errat, bt2; errat = get_backtrace(ruby_errinfo); - mesg = rb_attr_get(ruby_errinfo, rb_intern("mesg")); - if (!NIL_P(errat) && TYPE(errat) == T_ARRAY) { + mesg = rb_attr_get(ruby_errinfo, rb_intern("mesg")); + if (!NIL_P(errat) && TYPE(errat) == T_ARRAY && + (bt2 = backtrace(-2), RARRAY_LEN(bt2) > 0)) { if (!NIL_P(mesg) && TYPE(mesg) == T_STRING) { rb_str_update(mesg, 0, 0, rb_str_new2(": ")); - rb_str_update(mesg, 0, 0, RARRAY(errat)->ptr[0]); + rb_str_update(mesg, 0, 0, RARRAY_PTR(errat)[0]); } - RARRAY(errat)->ptr[0] = RARRAY(backtrace(-2))->ptr[0]; + RARRAY_PTR(errat)[0] = RARRAY_PTR(bt2)[0]; } } rb_exc_raise(ruby_errinfo); -- cgit v1.2.3