cvs: php-src(PHP_5_2) / .gdbinit

helly Sun May 20 21:46:17 2007 UTC Modified files: (Branch: PHP_5_2) /php-src .gdbinit Log: - MFH Add print_htptr, print_htstr http://cvs.php.net/viewvc.cgi/php-src/.gdbinit?r1=1.10.4.3&r2=1.10.4.3.2.1&diff_format=u Index: php-src/.gdbinit diff -u php-src/.gdbinit:1.10.4.3 php-src/.gdbinit:1.10.4.3.2.1 --- php-src/.gdbinit:1.10.4.3 Fri May 5 15:49:41 2006 +++ php-src/.gdbinit Sun May 20 21:46:17 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 @@ -39,14 +39,18 @@ end document printzv - prints content of zval + prints zval contents end define ____printzv_contents set $zvalue = $arg0 set $type = $zvalue->type - printf "(refcount=%d) ", $zvalue->refcount + printf "(refcount=%d", $zvalue->refcount + if $zvalue->is_ref + printf ",is_ref" + end + printf ") " if $type == 0 printf "NULL" end @@ -69,7 +73,7 @@ if ! $arg1 printf "{\n" set $ind = $ind + 1 - ____print_ht $zvalue->value.ht + ____print_ht $zvalue->value.ht 1 set $ind = $ind - 1 set $i = $ind while $i > 0 @@ -103,7 +107,7 @@ printf "(%d): ", $ht->nNumOfElements printf "{\n" set $ind = $ind + 1 - ____print_ht $ht + ____print_ht $ht 1 set $ind = $ind - 1 set $i = $ind while $i > 0 @@ -188,12 +192,10 @@ end define ____print_ht - set $ht = $arg0 + set $ht = (HashTable*)$arg0 set $p = $ht->pListHead while $p != 0 - set $zval = *(zval **)$p->pData - set $i = $ind while $i > 0 printf " " @@ -206,8 +208,18 @@ else printf "%d => ", $p->h end + + 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 - ____printzv $zval 1 set $p = $p->pListNext end end @@ -215,7 +227,7 @@ define print_ht set $ind = 1 printf "[0x%08x] {\n", $arg0 - ____print_ht $arg0 + ____print_ht $arg0 1 printf "}\n" end @@ -223,6 +235,28 @@ dumps elements of HashTable made of zval end +define print_htptr + set $ind = 1 + printf "[0x%08x] {\n", $arg0 + ____print_ht $arg0 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 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