From 5e9f4b26db8ffc5cb1e5ebca597f220130e572fb Mon Sep 17 00:00:00 2001 From: Marcus Boerger Date: Sun, 13 Jul 2008 21:26:53 +0000 Subject: [PATCH] - Improve/fix debugging experience --- .gdbinit | 19 ++++++++++++++++--- 1 file changed, 16 insertions(+), 3 deletions(-) diff --git a/.gdbinit b/.gdbinit index 522f16de2d..fbc211a36c 100644 --- a/.gdbinit +++ b/.gdbinit @@ -95,8 +95,8 @@ define ____printzv_contents 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 @@ define ____printzv_contents 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 -- 2.50.1