summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--.gdbinit36
1 files changed, 25 insertions, 11 deletions
diff --git a/.gdbinit b/.gdbinit
index 99c2337..9d14fb2 100644
--- a/.gdbinit
+++ b/.gdbinit
@@ -445,6 +445,18 @@ define output_string
end
end
+define print_string
+ set $flags = ((struct RBasic*)($arg0))->flags
+ set $len = ($flags & RUBY_FL_USER1) ? \
+ ((struct RString*)($arg0))->as.heap.len : \
+ (($flags & (RUBY_FL_USER2|RUBY_FL_USER3|RUBY_FL_USER4|RUBY_FL_USER5|RUBY_FL_USER6)) >> RUBY_FL_USHIFT+2)
+ if $len > 0
+ printf "%s", *(char *)(($flags & RUBY_FL_USER1) ? \
+ ((struct RString*)($arg0))->as.heap.ptr : \
+ ((struct RString*)($arg0))->as.ary) @ $len
+ end
+end
+
define rp_string
output_string $arg0
printf " bytesize:%ld ", $len
@@ -1049,7 +1061,7 @@ define check_method_entry
end
end
-define output_id
+define print_id
set $id = $arg0
# rb_id_to_serial
if $id > tLAST_OP_ID
@@ -1081,16 +1093,16 @@ define output_id
set $arylen = $ary->as.heap.len
end
set $result = $aryptr[($serial % ID_ENTRY_UNIT) * ID_ENTRY_SIZE + $t]
- output_string $result
+ print_string $result
end
end
end
end
-define output_pathobj
+define print_pathobj
set $flags = ((struct RBasic*)($arg0))->flags
if ($flags & RUBY_T_MASK) == RUBY_T_STRING
- output_string $arg0
+ print_string $arg0
end
if ($flags & RUBY_T_MASK) == RUBY_T_ARRAY
if $flags & RUBY_FL_USER1
@@ -1098,7 +1110,7 @@ define output_pathobj
else
set $str = ((struct RArray*)($arg0))->as.heap.ptr[0]
end
- output_string $str
+ printf "%s", $str
end
end
@@ -1112,7 +1124,7 @@ define rb_ps_thread
while $cfp < $cfpend
if $cfp->iseq
if !((VALUE)$cfp->iseq & RUBY_IMMEDIATE_MASK) && (((imemo_ifunc << RUBY_FL_USHIFT) | RUBY_T_IMEMO)==$cfp->iseq->flags & ((imemo_mask << RUBY_FL_USHIFT) | RUBY_T_MASK))
- printf "ifunc "
+ printf "%d:ifunc ", $cfpend-$cfp
set print symbol-filename on
output/a $cfp->iseq.body
set print symbol-filename off
@@ -1120,14 +1132,15 @@ define rb_ps_thread
else
if $cfp->pc
set $location = $cfp->iseq->body->location
- output_pathobj $location.pathobj
+ printf "%d:", $cfpend-$cfp
+ print_pathobj $location.pathobj
printf ":"
print_lineno $cfp
printf ":in `"
- output_string $location.label
+ print_string $location.label
printf "'\n"
else
- printf "???.rb:???:in `???'\n"
+ printf "%d: ???.rb:???:in `???'\n", $cfpend-$cfp
end
end
else
@@ -1151,15 +1164,16 @@ define rb_ps_thread
if $me == 0
check_method_entry $env_me_cref
end
+ printf "%d:", $cfpend-$cfp
set print symbol-filename on
output/a $me->def->body.cfunc.func
set print symbol-filename off
set $mid = $me->def->original_id
printf ":in `"
- output_id $mid
+ print_id $mid
printf "'\n"
else
- printf "unknown_frame:???:in `???'\n"
+ printf "%d:unknown_frame:???:in `???'\n", $cfpend-$cfp
end
end
set $cfp = $cfp + 1