- Show whether a zval is a reference in printzv user command

diff --git a/.gdbinit b/.gdbinit
index bdb5c69066ebbce9829c82b94881c93be7556722..5b11d4c26daa49f5a0d078db6d7eaa5239cea0a3 100644 (file)
--- a/.gdbinit
+++ b/.gdbinit
@@ -95,7 +95,11 @@ 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