1berry/ruby
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

.gdbinit: Fix T_HASH printing [ci skip]

Browse Source 
Tested and it works with both AR and ST tables, with live process and
core dumps.
This commit is contained in:
Alan Wu 2025-03-03 18:54:08 -05:00
parent 5085ec3ed9
commit 40ae7d9650
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
.gdbinit
View File

@ -139,13 +139,15 @@ define rp
if ($flags & RUBY_T_MASK) == RUBY_T_HASH
printf "%sT_HASH%s: ", $color_type, $color_end,
if (((struct RHash *)($arg0))->basic.flags & RHASH_ST_TABLE_FLAG)
printf "st len=%ld ", ((struct RHash *)($arg0))->as.st->num_entries
set $st = (struct st_table *)((uintptr_t)($arg0) + sizeof(struct RHash))
printf "st len=%ld ", $st->num_entries
print $st
else
printf "li len=%ld bound=%ld ", \
((((struct RHash *)($arg0))->basic.flags & RHASH_AR_TABLE_SIZE_MASK) >> RHASH_AR_TABLE_SIZE_SHIFT), \
((((struct RHash *)($arg0))->basic.flags & RHASH_AR_TABLE_BOUND_MASK) >> RHASH_AR_TABLE_BOUND_SHIFT)
print (struct ar_table_struct *)((uintptr_t)($arg0) + sizeof(struct RHash))
end
print (struct RHash *)($arg0)
else
if ($flags & RUBY_T_MASK) == RUBY_T_STRUCT
set $len = (($flags & (RUBY_FL_USER1|RUBY_FL_USER2)) ? \