archive/php-src
1
0
Fork 0
mirror of https://github.com/php/php-src.git synced 2025-08-15 21:48:51 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 3

.gdbinit: Update print_ht for new compact packed arrays representation (#8966)

Browse source
This commit is contained in:
Arnaud Le Blanc 2022-07-11 18:04:56 +02:00 • committed by GitHub
parent 75a9a5f311
commit c654973c02
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 21 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

32
.gdbinit
View file

@ -318,7 +318,8 @@ define ____print_ht
set $n = $n - 1 set $n = $n - 1
end end
if $ht->u.v.flags & 4 set $packed = $ht->u.v.flags & 4
if $packed
printf "Packed" printf "Packed"
else else
printf "Hash" printf "Hash"
@ -329,36 +330,45 @@ define ____print_ht
set $i = 0 set $i = 0
set $ind = $ind + 1 set $ind = $ind + 1
while $i < $num while $i < $num
set $p = (Bucket*)($ht->arData + $i) if $packed
set $val = (zval*)($ht->arPacked + $i)
set $key = (zend_string*)0
set $h = $i
else
set $bucket = (Bucket*)($ht->arData + $i)
set $val = &$bucket->val
set $key = $bucket->key
set $h = $bucket->h
end
set $n = $ind set $n = $ind
if $p->val.u1.v.type > 0 if $val->u1.v.type > 0
while $n > 0 while $n > 0
printf " " printf " "
set $n = $n - 1 set $n = $n - 1
end end
printf "[%d] ", $i printf "[%d] ", $i
if $p->key if $key
____print_str $p->key->val $p->key->len ____print_str $key->val $key->len
printf " => " printf " => "
else else
printf "%d => ", $p->h printf "%d => ", $h
end end
if $arg1 == 0 if $arg1 == 0
printf "%p\n", (zval *)&$p->val printf "%p\n", $val
end end
if $arg1 == 1 if $arg1 == 1
set $zval = (zval *)&$p->val set $zval = $val
____printzv $zval 1 ____printzv $zval 1
end end
if $arg1 == 2 if $arg1 == 2
printf "%s\n", (char*)$p->val.value.ptr printf "%s\n", (char*)$val->value.ptr
end end
if $arg1 == 3 if $arg1 == 3
set $func = (zend_function*)$p->val.value.ptr set $func = (zend_function*)$val->value.ptr
printf "\"%s\"\n", $func->common.function_name->val printf "\"%s\"\n", $func->common.function_name->val
end end
if $arg1 == 4 if $arg1 == 4
set $const = (zend_constant *)$p->val.value.ptr set $const = (zend_constant *)$val->value.ptr
____printzv $const 1 ____printzv $const 1
end end
end end