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

-- 
PHP CVS Mailing List (http://www.php.net/)
To unsubscribe, visit: http://www.php.net/unsub.php

Reply via email to