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

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

Reply via email to