helly           Sun Jul 13 21:26:53 2008 UTC

  Modified files:              
    /php-src    .gdbinit 
  Log:
  - Improve/fix debugging experience
  
http://cvs.php.net/viewvc.cgi/php-src/.gdbinit?r1=1.21&r2=1.22&diff_format=u
Index: php-src/.gdbinit
diff -u php-src/.gdbinit:1.21 php-src/.gdbinit:1.22
--- php-src/.gdbinit:1.21       Sun May 20 21:45:58 2007
+++ php-src/.gdbinit    Sun Jul 13 21:26:53 2008
@@ -95,8 +95,8 @@
        set $zvalue = $arg0
        set $type = $zvalue->type
 
-       printf "(refcount=%d", $zvalue->refcount
-       if $zvalue->is_ref
+       printf "(refcount=%d", $zvalue->refcount__gc
+       if $zvalue->is_ref__gc
                printf ",is_ref"
        end
        printf ") "
@@ -181,7 +181,20 @@
        if $type == 9
        end
        if $type == 10
-               printf "(%d): [%p]", $zvalue->value.str.len, 
$zvalue->value.str.val
+               printf "(%d): [%p]: \"", $zvalue->value.str.len, 
$zvalue->value.str.val
+               set $pos = 0
+               while $pos < 20 && $pos < $zvalue->value.str.len
+                       if $zvalue->value.ustr.val[$pos] < 256
+                               printf "%c", $zvalue->value.ustr.val[$pos]
+                       else
+                               printf "\\u%04X", $zvalue->value.ustr.val[$pos]
+                       end
+                       set $pos = $pos + 1
+               end
+               printf "\""
+               if $pos < $zvalue->value.str.len
+                       printf "[...]"
+               end
        end
        if $type > 10
        end



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

Reply via email to