kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

output some strings without quotes

Browse source 
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@59855 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
naruse 2017-09-12 12:49:38 +00:00
parent 7f24b0aabd
commit 2698d34dbd
1 changed files with 25 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

36
.gdbinit
View file

@ -445,6 +445,18 @@ define output_string
end end
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 define rp_string
output_string $arg0 output_string $arg0
printf " bytesize:%ld ", $len printf " bytesize:%ld ", $len
@ -1049,7 +1061,7 @@ define check_method_entry
end end
end end
define output_id define print_id
set $id = $arg0 set $id = $arg0
# rb_id_to_serial # rb_id_to_serial
if $id > tLAST_OP_ID if $id > tLAST_OP_ID
@ -1081,16 +1093,16 @@ define output_id
set $arylen = $ary->as.heap.len set $arylen = $ary->as.heap.len
end end
set $result = $aryptr[($serial % ID_ENTRY_UNIT) * ID_ENTRY_SIZE + $t] set $result = $aryptr[($serial % ID_ENTRY_UNIT) * ID_ENTRY_SIZE + $t]
output_string $result print_string $result
end end
end end
end end
end end
define output_pathobj define print_pathobj
set $flags = ((struct RBasic*)($arg0))->flags set $flags = ((struct RBasic*)($arg0))->flags
if ($flags & RUBY_T_MASK) == RUBY_T_STRING if ($flags & RUBY_T_MASK) == RUBY_T_STRING
output_string $arg0 print_string $arg0
end end
if ($flags & RUBY_T_MASK) == RUBY_T_ARRAY if ($flags & RUBY_T_MASK) == RUBY_T_ARRAY
if $flags & RUBY_FL_USER1 if $flags & RUBY_FL_USER1
@ -1098,7 +1110,7 @@ define output_pathobj
else else
set $str = ((struct RArray*)($arg0))->as.heap.ptr[0] set $str = ((struct RArray*)($arg0))->as.heap.ptr[0]
end end
output_string $str printf "%s", $str
end end
end end
@ -1112,7 +1124,7 @@ define rb_ps_thread
while $cfp < $cfpend while $cfp < $cfpend
if $cfp->iseq 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)) 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 set print symbol-filename on
output/a $cfp->iseq.body output/a $cfp->iseq.body
set print symbol-filename off set print symbol-filename off
@ -1120,14 +1132,15 @@ define rb_ps_thread
else else
if $cfp->pc if $cfp->pc
set $location = $cfp->iseq->body->location set $location = $cfp->iseq->body->location
output_pathobj $location.pathobj printf "%d:", $cfpend-$cfp
print_pathobj $location.pathobj
printf ":" printf ":"
print_lineno $cfp print_lineno $cfp
printf ":in `" printf ":in `"
output_string $location.label print_string $location.label
printf "'\n" printf "'\n"
else else
printf "???.rb:???:in `???'\n" printf "%d: ???.rb:???:in `???'\n", $cfpend-$cfp
end end
end end
else else
@ -1151,15 +1164,16 @@ define rb_ps_thread
if $me == 0 if $me == 0
check_method_entry $env_me_cref check_method_entry $env_me_cref
end end
printf "%d:", $cfpend-$cfp
set print symbol-filename on set print symbol-filename on
output/a $me->def->body.cfunc.func output/a $me->def->body.cfunc.func
set print symbol-filename off set print symbol-filename off
set $mid = $me->def->original_id set $mid = $me->def->original_id
printf ":in `" printf ":in `"
output_id $mid print_id $mid
printf "'\n" printf "'\n"
else else
printf "unknown_frame:???:in `???'\n" printf "%d:unknown_frame:???:in `???'\n", $cfpend-$cfp
end end
end end
set $cfp = $cfp + 1 set $cfp = $cfp + 1