gdb utility

gistfile1.txt

# print 'next' field of object(by chain)
#
# usage:
# (gdb)pnext ptr (equals to 'print ptr->next')
# (gdb)ENTER (equals to 'ptr->next->next')
define pnext
    init-if-undefined $a = $arg0
    init-if-undefined $b = $arg0

    # 0 means initialize
    if $arg0 == 0
        set $a = 0
        set $b = 0
    else
        if $b != $arg0
            set $a = $arg0
            set $b = $arg0
        end
        set $a = $a->next
        p *$a
    end
end