X-Git-Url: https://git.jankratochvil.net/?p=nethome.git;a=blobdiff_plain;f=.gdbinit;h=c2d57d007d646120ecb6772c8229f33eec7347ff;hp=1fbf9687eb9466deabaa1682bb6c64ac2c45c868;hb=7d51d1c10f33e2d6fd505763f32b44353e14042c;hpb=02c2070831c36926e60e1aaa6323cf2fa39757dd diff --git a/.gdbinit b/.gdbinit index 1fbf968..c2d57d0 100644 --- a/.gdbinit +++ b/.gdbinit @@ -34,14 +34,31 @@ define plist if $argc==1 print *$plist_iter else - print $plist_iter->$arg1 + if $argc==2 + print $plist_iter->$arg1 + else + print$arg2 $plist_iter->$arg1 + end end set var $plist_iter=$plist_iter->next end end document plist List dumper iterating by `->next': -plist [] +plist [] [/] +end +define countlist + set var $countlist_iter=$arg0 + set var $countlist_count=0 + while ($countlist_iter) + set var $countlist_iter=$countlist_iter->next + set var $countlist_count=$countlist_count+1 + end + p $countlist_count +end +document countlist +List elements counter iterating by `->next': +countlist end define debug set debug infrun 1 @@ -51,3 +68,11 @@ document debug set debug infrun 1 set debug lin-lwp 1 end +define sip + stepi + x/i $pc +end +define nip + nexti + x/i $pc +end