diff options
Diffstat (limited to 'vm_backtrace.c')
-rw-r--r-- | vm_backtrace.c | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/vm_backtrace.c b/vm_backtrace.c index 1f2e8c3f19..74a9df2ed0 100644 --- a/vm_backtrace.c +++ b/vm_backtrace.c @@ -1343,3 +1343,22 @@ rb_profile_frame_qualified_method_name(VALUE frame) return Qnil; } } + +VALUE +rb_profile_frame_full_label(VALUE frame) +{ + VALUE label = rb_profile_frame_label(frame); + VALUE base_label = rb_profile_frame_base_label(frame); + VALUE qualified_method_name = rb_profile_frame_qualified_method_name(frame); + + if (NIL_P(qualified_method_name) || base_label == qualified_method_name) { + return label; + } + else { + long label_length = RSTRING_LEN(label); + long base_label_length = RSTRING_LEN(base_label); + VALUE prefix = rb_str_new(RSTRING_PTR(label), label_length - base_label_length); + + return rb_sprintf("%"PRIsVALUE"%"PRIsVALUE, prefix, qualified_method_name); + } +} |