2007-06-15 17:59:45 +04:00
|
|
|
define rp
|
2009-08-05 13:46:07 +04:00
|
|
|
if ruby_dummy_gdb_enums.special_consts
|
2009-06-15 06:04:36 +04:00
|
|
|
end
|
2009-05-21 17:17:54 +04:00
|
|
|
if (VALUE)($arg0) & RUBY_FIXNUM_FLAG
|
|
|
|
printf "FIXNUM: %ld\n", (long)($arg0) >> 1
|
2007-06-15 17:59:45 +04:00
|
|
|
else
|
2009-05-21 17:17:54 +04:00
|
|
|
if ((VALUE)($arg0) & ~(~(VALUE)0<<RUBY_SPECIAL_SHIFT)) == RUBY_SYMBOL_FLAG
|
|
|
|
set $id = (($arg0) >> RUBY_SPECIAL_SHIFT)
|
|
|
|
if $id == '!' || $id == '+' || $id == '-' || $id == '*' || $id == '/' || $id == '%' || $id == '<' || $id == '>' || $id == '`'
|
|
|
|
printf "SYMBOL(:%c)\n", $id
|
|
|
|
else
|
|
|
|
if $id == idDot2
|
|
|
|
echo SYMBOL(:..)\n
|
|
|
|
else
|
|
|
|
if $id == idDot3
|
|
|
|
echo SYMBOL(:...)\n
|
|
|
|
else
|
|
|
|
if $id == idUPlus
|
|
|
|
echo SYMBOL(:+@)\n
|
|
|
|
else
|
|
|
|
if $id == idUMinus
|
|
|
|
echo SYMBOL(:-@)\n
|
|
|
|
else
|
|
|
|
if $id == idPow
|
|
|
|
echo SYMBOL(:**)\n
|
|
|
|
else
|
|
|
|
if $id == idCmp
|
|
|
|
echo SYMBOL(:<=>)\n
|
|
|
|
else
|
|
|
|
if $id == idLTLT
|
|
|
|
echo SYMBOL(:<<)\n
|
|
|
|
else
|
|
|
|
if $id == idLE
|
|
|
|
echo SYMBOL(:<=)\n
|
|
|
|
else
|
|
|
|
if $id == idGE
|
|
|
|
echo SYMBOL(:>=)\n
|
|
|
|
else
|
|
|
|
if $id == idEq
|
|
|
|
echo SYMBOL(:==)\n
|
|
|
|
else
|
|
|
|
if $id == idEqq
|
|
|
|
echo SYMBOL(:===)\n
|
|
|
|
else
|
|
|
|
if $id == idNeq
|
|
|
|
echo SYMBOL(:!=)\n
|
|
|
|
else
|
|
|
|
if $id == idEqTilde
|
|
|
|
echo SYMBOL(:=~)\n
|
|
|
|
else
|
|
|
|
if $id == idNeqTilde
|
|
|
|
echo SYMBOL(:!~)\n
|
|
|
|
else
|
|
|
|
if $id == idAREF
|
|
|
|
echo SYMBOL(:[])\n
|
|
|
|
else
|
|
|
|
if $id == idASET
|
|
|
|
echo SYMBOL(:[]=)\n
|
|
|
|
else
|
|
|
|
printf "SYMBOL(%ld)\n", $id
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
2007-06-15 17:59:45 +04:00
|
|
|
else
|
2009-05-21 17:17:54 +04:00
|
|
|
if ($arg0) == RUBY_Qfalse
|
2007-06-15 17:59:45 +04:00
|
|
|
echo false\n
|
|
|
|
else
|
2009-05-21 17:17:54 +04:00
|
|
|
if ($arg0) == RUBY_Qtrue
|
2007-06-15 17:59:45 +04:00
|
|
|
echo true\n
|
|
|
|
else
|
2009-05-21 17:17:54 +04:00
|
|
|
if ($arg0) == RUBY_Qnil
|
2007-06-15 17:59:45 +04:00
|
|
|
echo nil\n
|
|
|
|
else
|
2009-05-21 17:17:54 +04:00
|
|
|
if ($arg0) == RUBY_Qundef
|
2007-06-15 17:59:45 +04:00
|
|
|
echo undef\n
|
|
|
|
else
|
2009-05-21 17:17:54 +04:00
|
|
|
if (VALUE)($arg0) & RUBY_IMMEDIATE_MASK
|
2007-06-15 17:59:45 +04:00
|
|
|
echo immediate\n
|
|
|
|
else
|
2009-05-21 17:17:54 +04:00
|
|
|
set $flags = ((struct RBasic*)($arg0))->flags
|
2007-10-07 17:26:41 +04:00
|
|
|
if ($flags & RUBY_T_MASK) == RUBY_T_NONE
|
2007-07-05 05:42:09 +04:00
|
|
|
printf "T_NONE: "
|
2009-05-21 17:17:54 +04:00
|
|
|
print (struct RBasic *)($arg0)
|
2007-06-15 17:59:45 +04:00
|
|
|
else
|
2007-10-07 17:26:41 +04:00
|
|
|
if ($flags & RUBY_T_MASK) == RUBY_T_NIL
|
2007-07-05 05:42:09 +04:00
|
|
|
printf "T_NIL: "
|
2009-05-21 17:17:54 +04:00
|
|
|
print (struct RBasic *)($arg0)
|
2007-06-15 17:59:45 +04:00
|
|
|
else
|
2007-10-07 17:26:41 +04:00
|
|
|
if ($flags & RUBY_T_MASK) == RUBY_T_OBJECT
|
2007-07-05 05:42:09 +04:00
|
|
|
printf "T_OBJECT: "
|
2009-05-21 17:17:54 +04:00
|
|
|
print (struct RObject *)($arg0)
|
2007-06-15 17:59:45 +04:00
|
|
|
else
|
2007-10-07 17:26:41 +04:00
|
|
|
if ($flags & RUBY_T_MASK) == RUBY_T_CLASS
|
2010-05-30 04:33:39 +04:00
|
|
|
printf "T_CLASS%s: ", ($flags & RUBY_FL_SINGLETON) ? "*" : ""
|
2009-05-21 17:17:54 +04:00
|
|
|
print (struct RClass *)($arg0)
|
2007-06-15 17:59:45 +04:00
|
|
|
else
|
2007-10-07 17:26:41 +04:00
|
|
|
if ($flags & RUBY_T_MASK) == RUBY_T_ICLASS
|
2007-07-05 05:42:09 +04:00
|
|
|
printf "T_ICLASS: "
|
2009-05-21 17:17:54 +04:00
|
|
|
print (struct RClass *)($arg0)
|
2007-06-15 17:59:45 +04:00
|
|
|
else
|
2007-10-07 17:26:41 +04:00
|
|
|
if ($flags & RUBY_T_MASK) == RUBY_T_MODULE
|
2007-07-05 05:42:09 +04:00
|
|
|
printf "T_MODULE: "
|
2009-05-21 17:17:54 +04:00
|
|
|
print (struct RClass *)($arg0)
|
2007-06-15 17:59:45 +04:00
|
|
|
else
|
2007-10-07 17:26:41 +04:00
|
|
|
if ($flags & RUBY_T_MASK) == RUBY_T_FLOAT
|
2009-05-21 17:17:54 +04:00
|
|
|
printf "T_FLOAT: %.16g ", (((struct RFloat*)($arg0))->float_value)
|
|
|
|
print (struct RFloat *)($arg0)
|
2007-06-15 17:59:45 +04:00
|
|
|
else
|
2007-10-07 17:26:41 +04:00
|
|
|
if ($flags & RUBY_T_MASK) == RUBY_T_STRING
|
2007-08-07 08:58:07 +04:00
|
|
|
printf "T_STRING: "
|
|
|
|
set print address off
|
|
|
|
output (char *)(($flags & RUBY_FL_USER1) ? \
|
2009-05-21 17:17:54 +04:00
|
|
|
((struct RString*)($arg0))->as.heap.ptr : \
|
|
|
|
((struct RString*)($arg0))->as.ary)
|
2007-08-07 08:58:07 +04:00
|
|
|
set print address on
|
2008-03-06 09:50:41 +03:00
|
|
|
printf " bytesize:%ld ", ($flags & RUBY_FL_USER1) ? \
|
2009-05-21 17:17:54 +04:00
|
|
|
((struct RString*)($arg0))->as.heap.len : \
|
2007-12-13 14:52:15 +03:00
|
|
|
(($flags & (RUBY_FL_USER2|RUBY_FL_USER3|RUBY_FL_USER4|RUBY_FL_USER5|RUBY_FL_USER6)) >> RUBY_FL_USHIFT+2)
|
|
|
|
if !($flags & RUBY_FL_USER1)
|
|
|
|
printf "(embed) "
|
2007-12-13 15:32:06 +03:00
|
|
|
else
|
|
|
|
if ($flags & RUBY_FL_USER2)
|
|
|
|
printf "(shared) "
|
|
|
|
end
|
|
|
|
if ($flags & RUBY_FL_USER3)
|
|
|
|
printf "(assoc) "
|
|
|
|
end
|
2007-12-13 14:52:15 +03:00
|
|
|
end
|
2007-12-21 11:31:24 +03:00
|
|
|
printf "encoding:%d ", ($flags & RUBY_ENCODING_MASK) >> RUBY_ENCODING_SHIFT
|
|
|
|
if ($flags & RUBY_ENC_CODERANGE_MASK) == 0
|
2007-10-16 13:17:28 +04:00
|
|
|
printf "coderange:unknown "
|
|
|
|
else
|
2007-12-21 11:31:24 +03:00
|
|
|
if ($flags & RUBY_ENC_CODERANGE_MASK) == RUBY_ENC_CODERANGE_7BIT
|
2007-12-17 16:11:13 +03:00
|
|
|
printf "coderange:7bit "
|
2007-10-16 13:17:28 +04:00
|
|
|
else
|
2007-12-21 11:31:24 +03:00
|
|
|
if ($flags & RUBY_ENC_CODERANGE_MASK) == RUBY_ENC_CODERANGE_VALID
|
2007-12-17 16:11:13 +03:00
|
|
|
printf "coderange:valid "
|
2007-10-16 13:17:28 +04:00
|
|
|
else
|
|
|
|
printf "coderange:broken "
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
2009-05-21 17:17:54 +04:00
|
|
|
print (struct RString *)($arg0)
|
2007-06-15 17:59:45 +04:00
|
|
|
else
|
2007-10-07 17:26:41 +04:00
|
|
|
if ($flags & RUBY_T_MASK) == RUBY_T_REGEXP
|
2009-05-21 17:17:54 +04:00
|
|
|
set $regsrc = ((struct RRegexp*)($arg0))->src
|
2008-10-17 02:21:42 +04:00
|
|
|
set $rsflags = ((struct RBasic*)$regsrc)->flags
|
2007-08-07 08:58:07 +04:00
|
|
|
printf "T_REGEXP: "
|
|
|
|
set print address off
|
2008-10-17 02:21:42 +04:00
|
|
|
output (char *)(($rsflags & RUBY_FL_USER1) ? \
|
|
|
|
((struct RString*)$regsrc)->as.heap.ptr : \
|
|
|
|
((struct RString*)$regsrc)->as.ary)
|
2007-08-07 08:58:07 +04:00
|
|
|
set print address on
|
2008-10-17 02:21:42 +04:00
|
|
|
printf " len:%ld ", ($rsflags & RUBY_FL_USER1) ? \
|
|
|
|
((struct RString*)$regsrc)->as.heap.len : \
|
|
|
|
(($rsflags & (RUBY_FL_USER2|RUBY_FL_USER3|RUBY_FL_USER4|RUBY_FL_USER5|RUBY_FL_USER6)) >> RUBY_FL_USHIFT+2)
|
2007-12-21 19:39:36 +03:00
|
|
|
if $flags & RUBY_FL_USER6
|
|
|
|
printf "(none) "
|
|
|
|
end
|
2007-12-17 16:11:13 +03:00
|
|
|
if $flags & RUBY_FL_USER5
|
|
|
|
printf "(literal) "
|
|
|
|
end
|
|
|
|
if $flags & RUBY_FL_USER4
|
|
|
|
printf "(fixed) "
|
|
|
|
end
|
2007-12-21 11:31:24 +03:00
|
|
|
printf "encoding:%d ", ($flags & RUBY_ENCODING_MASK) >> RUBY_ENCODING_SHIFT
|
2009-05-21 17:17:54 +04:00
|
|
|
print (struct RRegexp *)($arg0)
|
2007-06-15 17:59:45 +04:00
|
|
|
else
|
2007-10-07 17:26:41 +04:00
|
|
|
if ($flags & RUBY_T_MASK) == RUBY_T_ARRAY
|
2008-10-09 09:47:04 +04:00
|
|
|
if ($flags & RUBY_FL_USER1)
|
|
|
|
set $len = (($flags & (RUBY_FL_USER3|RUBY_FL_USER4)) >> (RUBY_FL_USHIFT+3))
|
|
|
|
printf "T_ARRAY: len=%ld ", $len
|
|
|
|
printf "(embed) "
|
|
|
|
if ($len == 0)
|
|
|
|
printf "{(empty)} "
|
|
|
|
else
|
2009-05-21 17:17:54 +04:00
|
|
|
output/x *((VALUE*)((struct RArray*)($arg0))->as.ary) @ $len
|
2008-10-09 09:47:04 +04:00
|
|
|
printf " "
|
|
|
|
end
|
|
|
|
else
|
2009-05-21 17:17:54 +04:00
|
|
|
set $len = ((struct RArray*)($arg0))->as.heap.len
|
2008-10-09 09:47:04 +04:00
|
|
|
printf "T_ARRAY: len=%ld ", $len
|
|
|
|
if ($flags & RUBY_FL_USER2)
|
|
|
|
printf "(shared) shared="
|
2009-05-21 17:17:54 +04:00
|
|
|
output/x ((struct RArray*)($arg0))->as.heap.aux.shared
|
2008-10-09 09:47:04 +04:00
|
|
|
printf " "
|
|
|
|
else
|
2009-05-21 17:17:54 +04:00
|
|
|
printf "(ownership) capa=%ld ", ((struct RArray*)($arg0))->as.heap.aux.capa
|
2008-10-09 09:47:04 +04:00
|
|
|
end
|
|
|
|
if ($len == 0)
|
|
|
|
printf "{(empty)} "
|
|
|
|
else
|
2009-05-21 17:17:54 +04:00
|
|
|
output/x *((VALUE*)((struct RArray*)($arg0))->as.heap.ptr) @ $len
|
2008-10-09 09:47:04 +04:00
|
|
|
printf " "
|
|
|
|
end
|
|
|
|
end
|
2009-05-21 17:17:54 +04:00
|
|
|
print (struct RArray *)($arg0)
|
2007-06-15 17:59:45 +04:00
|
|
|
else
|
2007-10-07 17:26:41 +04:00
|
|
|
if ($flags & RUBY_T_MASK) == RUBY_T_FIXNUM
|
2007-07-05 05:42:09 +04:00
|
|
|
printf "T_FIXNUM: "
|
2009-05-21 17:17:54 +04:00
|
|
|
print (struct RBasic *)($arg0)
|
2007-06-15 17:59:45 +04:00
|
|
|
else
|
2007-10-07 17:26:41 +04:00
|
|
|
if ($flags & RUBY_T_MASK) == RUBY_T_HASH
|
2007-08-07 08:58:07 +04:00
|
|
|
printf "T_HASH: ",
|
2009-05-21 17:17:54 +04:00
|
|
|
if ((struct RHash *)($arg0))->ntbl
|
|
|
|
printf "len=%ld ", ((struct RHash *)($arg0))->ntbl->num_entries
|
2007-08-07 08:58:07 +04:00
|
|
|
end
|
2009-05-21 17:17:54 +04:00
|
|
|
print (struct RHash *)($arg0)
|
2007-06-15 17:59:45 +04:00
|
|
|
else
|
2007-10-07 17:26:41 +04:00
|
|
|
if ($flags & RUBY_T_MASK) == RUBY_T_STRUCT
|
2008-03-06 09:50:41 +03:00
|
|
|
printf "T_STRUCT: len=%ld ", \
|
2007-08-07 08:58:07 +04:00
|
|
|
(($flags & (RUBY_FL_USER1|RUBY_FL_USER2)) ? \
|
|
|
|
($flags & (RUBY_FL_USER1|RUBY_FL_USER2)) >> (RUBY_FL_USHIFT+1) : \
|
2009-05-21 17:17:54 +04:00
|
|
|
((struct RStruct *)($arg0))->as.heap.len)
|
|
|
|
print (struct RStruct *)($arg0)
|
2007-08-07 08:58:07 +04:00
|
|
|
x/xw (($flags & (RUBY_FL_USER1|RUBY_FL_USER2)) ? \
|
2009-05-21 17:17:54 +04:00
|
|
|
((struct RStruct *)($arg0))->as.ary : \
|
|
|
|
((struct RStruct *)($arg0))->as.heap.ptr)
|
2007-06-15 17:59:45 +04:00
|
|
|
else
|
2007-10-07 17:26:41 +04:00
|
|
|
if ($flags & RUBY_T_MASK) == RUBY_T_BIGNUM
|
2008-03-06 09:50:41 +03:00
|
|
|
printf "T_BIGNUM: sign=%d len=%ld ", \
|
2007-09-01 16:02:36 +04:00
|
|
|
(($flags & RUBY_FL_USER1) != 0), \
|
|
|
|
(($flags & RUBY_FL_USER2) ? \
|
|
|
|
($flags & (RUBY_FL_USER5|RUBY_FL_USER4|RUBY_FL_USER3)) >> (RUBY_FL_USHIFT+3) : \
|
2009-05-21 17:17:54 +04:00
|
|
|
((struct RBignum*)($arg0))->as.heap.len)
|
2007-09-01 16:02:36 +04:00
|
|
|
if $flags & RUBY_FL_USER2
|
|
|
|
printf "(embed) "
|
|
|
|
end
|
2009-05-21 17:17:54 +04:00
|
|
|
print (struct RBignum *)($arg0)
|
2007-09-01 16:02:36 +04:00
|
|
|
x/xw (($flags & RUBY_FL_USER2) ? \
|
2009-05-21 17:17:54 +04:00
|
|
|
((struct RBignum*)($arg0))->as.ary : \
|
|
|
|
((struct RBignum*)($arg0))->as.heap.digits)
|
2007-06-15 17:59:45 +04:00
|
|
|
else
|
2008-04-02 01:54:16 +04:00
|
|
|
if ($flags & RUBY_T_MASK) == RUBY_T_RATIONAL
|
|
|
|
printf "T_RATIONAL: "
|
2009-05-21 17:17:54 +04:00
|
|
|
print (struct RRational *)($arg0)
|
2008-04-02 01:54:16 +04:00
|
|
|
else
|
|
|
|
if ($flags & RUBY_T_MASK) == RUBY_T_COMPLEX
|
|
|
|
printf "T_COMPLEX: "
|
2009-05-21 17:17:54 +04:00
|
|
|
print (struct RComplex *)($arg0)
|
2008-04-02 01:54:16 +04:00
|
|
|
else
|
2007-10-07 17:26:41 +04:00
|
|
|
if ($flags & RUBY_T_MASK) == RUBY_T_FILE
|
2007-07-05 05:42:09 +04:00
|
|
|
printf "T_FILE: "
|
2009-05-21 17:17:54 +04:00
|
|
|
print (struct RFile *)($arg0)
|
|
|
|
output *((struct RFile *)($arg0))->fptr
|
2007-07-05 05:42:09 +04:00
|
|
|
printf "\n"
|
2007-06-15 17:59:45 +04:00
|
|
|
else
|
2007-10-07 17:26:41 +04:00
|
|
|
if ($flags & RUBY_T_MASK) == RUBY_T_TRUE
|
2007-07-05 05:42:09 +04:00
|
|
|
printf "T_TRUE: "
|
2009-05-21 17:17:54 +04:00
|
|
|
print (struct RBasic *)($arg0)
|
2007-06-15 17:59:45 +04:00
|
|
|
else
|
2007-10-07 17:26:41 +04:00
|
|
|
if ($flags & RUBY_T_MASK) == RUBY_T_FALSE
|
2007-07-05 05:42:09 +04:00
|
|
|
printf "T_FALSE: "
|
2009-05-21 17:17:54 +04:00
|
|
|
print (struct RBasic *)($arg0)
|
2007-06-15 17:59:45 +04:00
|
|
|
else
|
2007-10-07 17:26:41 +04:00
|
|
|
if ($flags & RUBY_T_MASK) == RUBY_T_DATA
|
2007-07-05 05:42:09 +04:00
|
|
|
printf "T_DATA: "
|
2009-05-21 17:17:54 +04:00
|
|
|
print (struct RData *)($arg0)
|
2007-06-15 17:59:45 +04:00
|
|
|
else
|
2007-10-07 17:26:41 +04:00
|
|
|
if ($flags & RUBY_T_MASK) == RUBY_T_MATCH
|
2007-07-05 05:42:09 +04:00
|
|
|
printf "T_MATCH: "
|
2009-05-21 17:17:54 +04:00
|
|
|
print (struct RMatch *)($arg0)
|
2007-06-15 17:59:45 +04:00
|
|
|
else
|
2007-10-07 17:26:41 +04:00
|
|
|
if ($flags & RUBY_T_MASK) == RUBY_T_SYMBOL
|
2007-07-05 05:42:09 +04:00
|
|
|
printf "T_SYMBOL: "
|
2009-05-21 17:17:54 +04:00
|
|
|
print (struct RBasic *)($arg0)
|
2007-06-15 17:59:45 +04:00
|
|
|
else
|
2007-10-07 17:26:41 +04:00
|
|
|
if ($flags & RUBY_T_MASK) == RUBY_T_UNDEF
|
2007-07-05 05:42:09 +04:00
|
|
|
printf "T_UNDEF: "
|
2009-05-21 17:17:54 +04:00
|
|
|
print (struct RBasic *)($arg0)
|
2007-06-15 17:59:45 +04:00
|
|
|
else
|
2007-10-07 17:26:41 +04:00
|
|
|
if ($flags & RUBY_T_MASK) == RUBY_T_NODE
|
2007-07-05 05:42:09 +04:00
|
|
|
printf "T_NODE("
|
2007-10-07 17:03:05 +04:00
|
|
|
output (enum node_type)(($flags&RUBY_NODE_TYPEMASK)>>RUBY_NODE_TYPESHIFT)
|
2007-07-05 05:42:09 +04:00
|
|
|
printf "): "
|
2009-05-21 17:17:54 +04:00
|
|
|
print *(NODE *)($arg0)
|
2009-05-21 16:42:54 +04:00
|
|
|
else
|
2008-12-27 11:08:44 +03:00
|
|
|
if ($flags & RUBY_T_MASK) == RUBY_T_ZOMBIE
|
|
|
|
printf "T_ZOMBIE: "
|
2009-05-21 17:17:54 +04:00
|
|
|
print (struct RData *)($arg0)
|
2007-06-15 17:59:45 +04:00
|
|
|
else
|
2007-07-05 05:42:09 +04:00
|
|
|
printf "unknown: "
|
2009-05-21 17:17:54 +04:00
|
|
|
print (struct RBasic *)($arg0)
|
2007-06-15 17:59:45 +04:00
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
2008-12-27 11:08:44 +03:00
|
|
|
end
|
2007-06-15 17:59:45 +04:00
|
|
|
end
|
|
|
|
document rp
|
|
|
|
Print a Ruby's VALUE.
|
|
|
|
end
|
2007-07-05 05:42:09 +04:00
|
|
|
|
|
|
|
define nd_type
|
2009-05-21 17:17:54 +04:00
|
|
|
print (enum node_type)((((NODE*)($arg0))->flags&RUBY_NODE_TYPEMASK)>>RUBY_NODE_TYPESHIFT)
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
document nd_type
|
|
|
|
Print a Ruby' node type.
|
|
|
|
end
|
|
|
|
|
|
|
|
define nd_file
|
2009-05-21 17:17:54 +04:00
|
|
|
print ((NODE*)($arg0))->nd_file
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
document nd_file
|
|
|
|
Print the source file name of a node.
|
|
|
|
end
|
|
|
|
|
|
|
|
define nd_line
|
2009-05-21 17:17:54 +04:00
|
|
|
print ((unsigned int)((((NODE*)($arg0))->flags>>RUBY_NODE_LSHIFT)&RUBY_NODE_LMASK))
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
document nd_line
|
|
|
|
Print the source line number of a node.
|
|
|
|
end
|
|
|
|
|
|
|
|
# Print members of ruby node.
|
|
|
|
|
|
|
|
define nd_head
|
|
|
|
printf "u1.node: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u1.node
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define nd_alen
|
|
|
|
printf "u2.argc: "
|
2009-05-21 17:17:54 +04:00
|
|
|
p ($arg0).u2.argc
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define nd_next
|
|
|
|
printf "u3.node: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u3.node
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
define nd_cond
|
|
|
|
printf "u1.node: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u1.node
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define nd_body
|
|
|
|
printf "u2.node: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u2.node
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define nd_else
|
|
|
|
printf "u3.node: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u3.node
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
define nd_orig
|
|
|
|
printf "u3.value: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u3.value
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
define nd_resq
|
|
|
|
printf "u2.node: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u2.node
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define nd_ensr
|
|
|
|
printf "u3.node: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u3.node
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
define nd_1st
|
|
|
|
printf "u1.node: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u1.node
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define nd_2nd
|
|
|
|
printf "u2.node: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u2.node
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
define nd_stts
|
|
|
|
printf "u1.node: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u1.node
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
define nd_entry
|
|
|
|
printf "u3.entry: "
|
2009-05-21 17:17:54 +04:00
|
|
|
p ($arg0).u3.entry
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define nd_vid
|
|
|
|
printf "u1.id: "
|
2009-05-21 17:17:54 +04:00
|
|
|
p ($arg0).u1.id
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define nd_cflag
|
|
|
|
printf "u2.id: "
|
2009-05-21 17:17:54 +04:00
|
|
|
p ($arg0).u2.id
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define nd_cval
|
|
|
|
printf "u3.value: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u3.value
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
define nd_cnt
|
|
|
|
printf "u3.cnt: "
|
2009-05-21 17:17:54 +04:00
|
|
|
p ($arg0).u3.cnt
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define nd_tbl
|
|
|
|
printf "u1.tbl: "
|
2009-05-21 17:17:54 +04:00
|
|
|
p ($arg0).u1.tbl
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
define nd_var
|
|
|
|
printf "u1.node: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u1.node
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define nd_ibdy
|
|
|
|
printf "u2.node: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u2.node
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define nd_iter
|
|
|
|
printf "u3.node: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u3.node
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
define nd_value
|
|
|
|
printf "u2.node: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u2.node
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define nd_aid
|
|
|
|
printf "u3.id: "
|
2009-05-21 17:17:54 +04:00
|
|
|
p ($arg0).u3.id
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
define nd_lit
|
|
|
|
printf "u1.value: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u1.value
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
define nd_frml
|
|
|
|
printf "u1.node: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u1.node
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define nd_rest
|
|
|
|
printf "u2.argc: "
|
2009-05-21 17:17:54 +04:00
|
|
|
p ($arg0).u2.argc
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define nd_opt
|
|
|
|
printf "u1.node: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u1.node
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
define nd_recv
|
|
|
|
printf "u1.node: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u1.node
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define nd_mid
|
|
|
|
printf "u2.id: "
|
2009-05-21 17:17:54 +04:00
|
|
|
p ($arg0).u2.id
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define nd_args
|
|
|
|
printf "u3.node: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u3.node
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
define nd_noex
|
|
|
|
printf "u1.id: "
|
2009-05-21 17:17:54 +04:00
|
|
|
p ($arg0).u1.id
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define nd_defn
|
|
|
|
printf "u3.node: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u3.node
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
define nd_old
|
|
|
|
printf "u1.id: "
|
2009-05-21 17:17:54 +04:00
|
|
|
p ($arg0).u1.id
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define nd_new
|
|
|
|
printf "u2.id: "
|
2009-05-21 17:17:54 +04:00
|
|
|
p ($arg0).u2.id
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
define nd_cfnc
|
|
|
|
printf "u1.cfunc: "
|
2009-05-21 17:17:54 +04:00
|
|
|
p ($arg0).u1.cfunc
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define nd_argc
|
|
|
|
printf "u2.argc: "
|
2009-05-21 17:17:54 +04:00
|
|
|
p ($arg0).u2.argc
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
define nd_cname
|
|
|
|
printf "u1.id: "
|
2009-05-21 17:17:54 +04:00
|
|
|
p ($arg0).u1.id
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define nd_super
|
|
|
|
printf "u3.node: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u3.node
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
define nd_modl
|
|
|
|
printf "u1.id: "
|
2009-05-21 17:17:54 +04:00
|
|
|
p ($arg0).u1.id
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define nd_clss
|
|
|
|
printf "u1.value: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u1.value
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
define nd_beg
|
|
|
|
printf "u1.node: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u1.node
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define nd_end
|
|
|
|
printf "u2.node: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u2.node
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define nd_state
|
|
|
|
printf "u3.state: "
|
2009-05-21 17:17:54 +04:00
|
|
|
p ($arg0).u3.state
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define nd_rval
|
|
|
|
printf "u2.value: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u2.value
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
define nd_nth
|
|
|
|
printf "u2.argc: "
|
2009-05-21 17:17:54 +04:00
|
|
|
p ($arg0).u2.argc
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
define nd_tag
|
|
|
|
printf "u1.id: "
|
2009-05-21 17:17:54 +04:00
|
|
|
p ($arg0).u1.id
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define nd_tval
|
|
|
|
printf "u2.value: "
|
2009-05-21 17:17:54 +04:00
|
|
|
rp ($arg0).u2.value
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define rb_p
|
|
|
|
call rb_p($arg0)
|
|
|
|
end
|
|
|
|
|
2009-10-19 10:17:31 +04:00
|
|
|
define rb_numtable_entry
|
|
|
|
set $rb_numtable_tbl = $arg0
|
|
|
|
set $rb_numtable_id = (st_data_t)$arg1
|
|
|
|
set $rb_numtable_key = 0
|
|
|
|
set $rb_numtable_rec = 0
|
|
|
|
if $rb_numtable_tbl->entries_packed
|
|
|
|
set $rb_numtable_p = $rb_numtable_tbl->bins
|
|
|
|
while $rb_numtable_p && $rb_numtable_p < $rb_numtable_tbl->bins+$rb_numtable_tbl->num_entries
|
|
|
|
if (st_data_t)$rb_numtable_p[0] == $rb_numtable_id
|
|
|
|
set $rb_numtable_key = (st_data_t)$rb_numtable_p[0]
|
|
|
|
set $rb_numtable_rec = (st_data_t)$rb_numtable_p[1]
|
|
|
|
set $rb_numtable_p = 0
|
|
|
|
else
|
|
|
|
set $rb_numtable_p = $rb_numtable_p + 2
|
|
|
|
end
|
|
|
|
end
|
|
|
|
else
|
|
|
|
set $rb_numtable_p = $rb_numtable_tbl->bins[$rb_numtable_id % $rb_numtable_tbl->num_bins]
|
|
|
|
while $rb_numtable_p
|
|
|
|
if $rb_numtable_p->key == $rb_numtable_id
|
|
|
|
set $rb_numtable_key = $rb_numtable_p->key
|
|
|
|
set $rb_numtable_rec = $rb_numtable_p->record
|
|
|
|
set $rb_numtable_p = 0
|
|
|
|
else
|
|
|
|
set $rb_numtable_p = $rb_numtable_p->next
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
2007-07-05 05:42:09 +04:00
|
|
|
define rb_id2name
|
2009-10-19 10:17:31 +04:00
|
|
|
rb_numtable_entry global_symbols.id_str (ID)$arg0
|
|
|
|
if $rb_numtable_rec
|
|
|
|
rp $rb_numtable_rec
|
|
|
|
else
|
|
|
|
echo undef\n
|
|
|
|
end
|
|
|
|
end
|
|
|
|
document rb_id2name
|
|
|
|
Print the name of id
|
|
|
|
end
|
|
|
|
|
|
|
|
define rb_method_entry
|
|
|
|
set $rb_method_entry_klass = (struct RClass *)$arg0
|
|
|
|
set $rb_method_entry_id = (ID)$arg1
|
|
|
|
set $rb_method_entry_me = (rb_method_entry_t *)0
|
|
|
|
while !$rb_method_entry_me && $rb_method_entry_klass
|
|
|
|
rb_numtable_entry $rb_method_entry_klass->m_tbl $rb_method_entry_id
|
|
|
|
set $rb_method_entry_me = (rb_method_entry_t *)$rb_numtable_rec
|
|
|
|
if !$rb_method_entry_me
|
|
|
|
set $rb_method_entry_klass = (struct RClass *)$rb_method_entry_klass->ptr->super
|
|
|
|
end
|
|
|
|
end
|
|
|
|
if $rb_method_entry_me
|
|
|
|
print *$rb_method_entry_klass
|
|
|
|
print *$rb_method_entry_me
|
|
|
|
else
|
|
|
|
echo method not found\n
|
|
|
|
end
|
|
|
|
end
|
|
|
|
document rb_method_entry
|
|
|
|
Search method entry by class and id
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define rb_classname
|
|
|
|
call classname($arg0)
|
|
|
|
rb_p $
|
2009-05-21 17:17:54 +04:00
|
|
|
print *(struct RClass*)($arg0)
|
2007-07-05 05:42:09 +04:00
|
|
|
end
|
|
|
|
|
|
|
|
define rb_backtrace
|
|
|
|
call rb_backtrace()
|
|
|
|
end
|
2009-02-13 17:33:48 +03:00
|
|
|
|
|
|
|
define iseq
|
2009-06-15 06:04:36 +04:00
|
|
|
if dummy_gdb_enums.special_consts
|
|
|
|
end
|
2009-05-21 17:17:54 +04:00
|
|
|
if ($arg0)->type == ISEQ_ELEMENT_NONE
|
2009-02-13 17:33:48 +03:00
|
|
|
echo [none]\n
|
|
|
|
end
|
2009-05-21 17:17:54 +04:00
|
|
|
if ($arg0)->type == ISEQ_ELEMENT_LABEL
|
|
|
|
print *(LABEL*)($arg0)
|
2009-02-13 17:33:48 +03:00
|
|
|
end
|
2009-05-21 17:17:54 +04:00
|
|
|
if ($arg0)->type == ISEQ_ELEMENT_INSN
|
|
|
|
print *(INSN*)($arg0)
|
|
|
|
if ((INSN*)($arg0))->insn_id != YARVINSN_jump
|
2009-02-13 17:33:48 +03:00
|
|
|
set $i = 0
|
2009-05-21 17:17:54 +04:00
|
|
|
set $operand_size = ((INSN*)($arg0))->operand_size
|
|
|
|
set $operands = ((INSN*)($arg0))->operands
|
2009-02-13 17:33:48 +03:00
|
|
|
while $i < $operand_size
|
|
|
|
rp $operands[$i++]
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
2009-05-21 17:17:54 +04:00
|
|
|
if ($arg0)->type == ISEQ_ELEMENT_ADJUST
|
|
|
|
print *(ADJUST*)($arg0)
|
2009-02-13 17:33:48 +03:00
|
|
|
end
|
|
|
|
end
|
2009-10-19 06:34:40 +04:00
|
|
|
|
|
|
|
define rb_ps
|
|
|
|
rb_ps_vm ruby_current_vm
|
|
|
|
end
|
|
|
|
document rb_ps
|
|
|
|
Dump all threads and their callstacks
|
|
|
|
end
|
|
|
|
|
|
|
|
define rb_ps_vm
|
|
|
|
print $ps_vm = (rb_vm_t*)$arg0
|
|
|
|
set $ps_threads = (st_table*)$ps_vm->living_threads
|
|
|
|
if $ps_threads->entries_packed
|
|
|
|
set $ps_threads_i = 0
|
|
|
|
while $ps_threads_i < $ps_threads->num_entries
|
|
|
|
set $ps_threads_key = (st_data_t)$ps_threads->bins[$ps_threads_i * 2]
|
|
|
|
set $ps_threads_val = (st_data_t)$ps_threads->bins[$ps_threads_i * 2 + 1]
|
|
|
|
rb_ps_thread $ps_threads_key $ps_threads_val
|
|
|
|
set $ps_threads_i = $ps_threads_i + 1
|
|
|
|
end
|
|
|
|
else
|
|
|
|
set $ps_threads_ptr = (st_table_entry*)$ps_threads->head
|
|
|
|
while $ps_threads_ptr
|
|
|
|
set $ps_threads_key = (st_data_t)$ps_threads_ptr->key
|
|
|
|
set $ps_threads_val = (st_data_t)$ps_threads_ptr->record
|
|
|
|
rb_ps_thread $ps_threads_key $ps_threads_val
|
|
|
|
set $ps_threads_ptr = (st_table_entry*)$ps_threads_ptr->fore
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
document rb_ps_vm
|
|
|
|
Dump all threads in a (rb_vm_t*) and their callstacks
|
|
|
|
end
|
|
|
|
|
|
|
|
define rb_ps_thread
|
|
|
|
set $ps_thread = (struct RTypedData*)$arg0
|
|
|
|
set $ps_thread_id = $arg1
|
|
|
|
print $ps_thread_th = (rb_thread_t*)$ps_thread->data
|
|
|
|
end
|