cvs: php-src / .gdbinit

helly Sun May 20 21:45:58 2007 UTC Modified files: /php-src .gdbinit Log: - Add print_htptr, print_htstr http://cvs.php.net/viewvc.cgi/php-src/.gdbinit?r1=1.20&r2=1.21&diff_format=u Index: php-src/.gdbinit diff -u php-src/.gdbinit:1.20 php-src/.gdbinit:1.21 --- php-src/.gdbinit:1.20 Thu Feb 8 15:28:43 2007 +++ php-src/.gdbinit Sun May 20 21:45:58 2007 @@ -8,7 +8,7 @@ end document ____executor_globals - portable way of accessing executor_globals + portable way of accessing executor_globals, set $eg ZTS detection is automatically based on ext/standard module struct end @@ -122,7 +122,7 @@ if ! $arg1 printf "{\n" set $ind = $ind + 1 - ____print_ht $zvalue->value.ht 0 + ____print_ht $zvalue->value.ht 0 1 set $ind = $ind - 1 set $i = $ind while $i > 0 @@ -155,7 +155,7 @@ printf "(%d): ", $ht->nNumOfElements printf "{\n" set $ind = $ind + 1 - ____print_ht $ht 1 + ____print_ht $ht 1 1 set $ind = $ind - 1 set $i = $ind while $i > 0 @@ -243,8 +243,6 @@ set $p = $ht->pListHead while $p != 0 - set $zval = *(zval **)$p->pData - set $i = $ind while $i > 0 printf " " @@ -269,7 +267,17 @@ printf "%d => ", $p->h end - ____printzv $zval 1 + if $arg1 == 0 + printf "%p\n", (void*)$p->pData + end + if $arg1 == 1 + set $zval = *(zval **)$p->pData + ____printzv $zval 1 + end + if $arg1 == 2 + printf "%s\n", (char*)$p->pData + end + set $p = $p->pListNext end end @@ -277,7 +285,7 @@ define print_ht set $ind = 1 printf "[0x%08x] {\n", $arg0 - ____print_ht $arg0 0 + ____print_ht $arg0 0 1 printf "}\n" end @@ -285,6 +293,28 @@ dumps elements of HashTable made of zval end +define print_htptr + set $ind = 1 + printf "[0x%08x] {\n", $arg0 + ____print_ht $arg0 0 0 + printf "}\n" +end + +document print_htptr + dumps elements of HashTable made of pointers +end + +define print_htstr + set $ind = 1 + printf "[0x%08x] {\n", $arg0 + ____print_ht $arg0 0 2 + printf "}\n" +end + +document print_htstr + dumps elements of HashTable made of strings +end + define ____print_ft set $ht = $arg0 set $p = $ht->pListHead