X-Git-Url: http://git.jankratochvil.net/?p=nethome.git;a=blobdiff_plain;f=.gdbinit;h=5a1e9b73b13d3656555ed59f995b80cbdf18c092;hp=ecf313227f264abf5b71afbcd049c7b42c3753b0;hb=8a47384c9f3098cadea7b18039a8ec4880c013d7;hpb=53db4430a3d42884f270ee7db42fae6e437a4d36 diff --git a/.gdbinit b/.gdbinit index ecf3132..5a1e9b7 100644 --- a/.gdbinit +++ b/.gdbinit @@ -4,38 +4,76 @@ set history save on # https://bugzilla.redhat.com/bugzilla/show_bug.cgi?id=106814 set complaints 0 -define rt - break $arg0 - run -# clear $arg0 - end -define ct - tbreak $arg0 - continue - end -define rtl - start - break $arg0 - continue -# clear $arg0 - end +set record insn-number-max 10000000 define javadump call _Jv_DeepDebug($arg0) - end -define pglist3 +end +document javadump +call _Jv_DeepDebug($arg0) +end +define pglist if (*("$arg1")=='@') set var $arg1=struct $arg1 - end + end set var $pglist_list=$arg0 while ($pglist_list) - if (!strcmp("$arg2",".")) + if $argc==2 print *(($arg1 *)$pglist_list->data) else print *(($arg1 *)$pglist_list->data)$arg2 - end + end set var $pglist_list=$pglist_list->next + end +end +document pglist +GList or GSList dumper iterating by `->next': +pglist
{|@