.gdbinit

   1 set break pending on
   2 set style enabled off
   3 # See .bashrc: export GDBHISTFILE="$HOME/.gdb_history"
   4 # Should also work <jefyi6bzm6.fsf@sykes.suse.de> (untested):
   5 # set history filename ~/.gdb_history
   6 set history save on
   7 # https://bugzilla.redhat.com/bugzilla/show_bug.cgi?id=106814
   8 set complaints 0
   9 set record insn-number-max 10000000
  10 define javadump
  11         call _Jv_DeepDebug($arg0)
  12 end
  13 document javadump
  14 call _Jv_DeepDebug($arg0)
  15 end
  16 define pglist
  17         if (*("$arg1")=='@')
  18                 set var $arg1=struct $arg1
  19         end
  20         set var $pglist_list=$arg0
  21         while ($pglist_list)
  22                 if $argc==2
  23                         print *(($arg1 *)$pglist_list->data)
  24                 else
  25                         print *(($arg1 *)$pglist_list->data)$arg2
  26                 end
  27                 set var $pglist_list=$pglist_list->next
  28         end
  29 end
  30 document pglist
  31 GList or GSList dumper iterating by `->next':
  32 pglist <head pointer> {<data type>|@<struct data type>} [<data field to display>]
  33 end
  34 define plist
  35         set var $plist_iter=$arg0
  36         while ($plist_iter)
  37                 if $argc==1
  38                         print *$plist_iter
  39                 else
  40                         if $argc==2
  41                                 print $plist_iter->$arg1
  42                         else
  43                                 print$arg2 $plist_iter->$arg1
  44                         end
  45                 end
  46                 set var $plist_iter=$plist_iter->next
  47         end
  48 end
  49 document plist
  50 List dumper iterating by `->next':
  51 plist <head pointer> [<data field to display>] [/<format>]
  52 end
  53 define countlist
  54         set var $countlist_iter=$arg0
  55         set var $countlist_count=0
  56         while ($countlist_iter)
  57                 set var $countlist_iter=$countlist_iter->next
  58                 set var $countlist_count=$countlist_count+1
  59         end
  60         p $countlist_count
  61 end
  62 document countlist
  63 List elements counter iterating by `->next':
  64 countlist <head pointer>
  65 end
  66 define debug
  67         set debug infrun 1
  68         set debug lin-lwp 1
  69 end
  70 document debug
  71 set debug infrun 1
  72 set debug lin-lwp 1
  73 end
  74 define sip
  75         stepi
  76         x/i $pc
  77 end
  78 define nip
  79         nexti
  80         x/i $pc
  81 end
  82
  83 define mycommand
  84   set $i = 0
  85   set $foo1=$arg1
  86   while $i < $argc
  87     eval "print $foo%d", $i
  88     set $i = $i + 1
  89   end
  90 end