Bumping gaia.json for 1 gaia revision(s) a=gaia-bump
[gecko.git] / .gdbinit
blob22190e3ce71380c4f0755c3c58c2e3436024463c
1 # .gdbinit file for debugging Mozilla
3 # You may need to put an 'add-auto-load-safe-path' command in your
4 # $HOME/.gdbinit file to get GDB to trust this file. If your builds are
5 # generally in $HOME/moz, then you can say:
7 #  add-auto-load-safe-path ~/moz
9 # Don't stop for the SIG32/33/etc signals that Flash produces
10 handle SIG32 noprint nostop pass
11 handle SIG33 noprint nostop pass
12 handle SIGPIPE noprint nostop pass
14 # Show the concrete types behind nsIFoo
15 set print object on
17 # run when using the auto-solib-add trick
18 def prun
19         tbreak main
20         run
21         set auto-solib-add 0
22         cont
23 end
25 # run -mail, when using the auto-solib-add trick
26 def pmail
27         tbreak main
28         run -mail
29         set auto-solib-add 0
30         cont
31 end
33 # Define a "pu" command to display PRUnichar * strings (100 chars max)
34 # Also allows an optional argument for how many chars to print as long as
35 # it's less than 100.
36 def pu
37   set $uni = $arg0
38   if $argc == 2
39     set $limit = $arg1
40     if $limit > 100
41       set $limit = 100
42     end
43   else
44     set $limit = 100
45   end
46   # scratch array with space for 100 chars plus null terminator.  Make
47   # sure to not use ' ' as the char so this copy/pastes well.
48   set $scratch = "____________________________________________________________________________________________________"
49   set $i = 0
50   set $scratch_idx = 0
51   while (*$uni && $i++ < $limit)
52     if (*$uni < 0x80)
53       set $scratch[$scratch_idx++] = *(char*)$uni++
54     else
55       if ($scratch_idx > 0)
56         set $scratch[$scratch_idx] = '\0'
57         print $scratch
58         set $scratch_idx = 0
59       end
60       print /x *(short*)$uni++
61     end
62   end
63   if ($scratch_idx > 0)
64     set $scratch[$scratch_idx] = '\0'
65     print $scratch
66   end
67 end
69 # Define a "ps" command to display subclasses of nsAC?String.  Note that
70 # this assumes strings as of Gecko 1.9 (well, and probably a few
71 # releases before that as well); going back far enough will get you
72 # to string classes that this function doesn't work for.
73 def ps
74   set $str = $arg0
75   if (sizeof(*$str.mData) == 1 && ($str.mFlags & 1) != 0)
76     print $str.mData
77   else
78     pu $str.mData $str.mLength
79   end
80 end
82 # Define a "pa" command to display the string value for an nsIAtom
83 def pa
84   set $atom = $arg0
85   if (sizeof(*((&*$atom)->mString)) == 2)
86     pu (&*$atom)->mString
87   end
88 end
90 # define a "pxul" command to display the type of a XUL element from
91 # an nsXULElement* pointer.
92 def pxul
93   set $p = $arg0
94   print $p->mNodeInfo.mRawPtr->mInner.mName->mStaticAtom->mString
95 end
97 # define a "prefcnt" command to display the refcount of an XPCOM obj
98 def prefcnt
99   set $p = $arg0
100   print ((nsPurpleBufferEntry*)$p->mRefCnt.mTagged)->mRefCnt
103 # define a "ptag" command to display the tag name of a content node
104 def ptag
105   set $p = $arg0
106   pa $p->mNodeInfo.mRawPtr->mInner.mName
110 ## nsTArray
112 define ptarray
113         if $argc == 0
114                 help ptarray
115         else
116                 set $size = $arg0.mHdr->mLength
117                 set $capacity = $arg0.mHdr->mCapacity
118                 set $size_max = $size - 1
119                 set $elts = $arg0.Elements()
120         end
121         if $argc == 1
122                 set $i = 0
123                 while $i < $size
124                         printf "elem[%u]: ", $i
125                         p *($elts + $i)
126                         set $i++
127                 end
128         end
129         if $argc == 2
130                 set $idx = $arg1
131                 if $idx < 0 || $idx > $size_max
132                         printf "idx1, idx2 are not in acceptable range: [0..%u].\n", $size_max
133                 else
134                         printf "elem[%u]: ", $idx
135                         p *($elts + $idx)
136                 end
137         end
138         if $argc == 3
139           set $start_idx = $arg1
140           set $stop_idx = $arg2
141           if $start_idx > $stop_idx
142             set $tmp_idx = $start_idx
143             set $start_idx = $stop_idx
144             set $stop_idx = $tmp_idx
145           end
146           if $start_idx < 0 || $stop_idx < 0 || $start_idx > $size_max || $stop_idx > $size_max
147             printf "idx1, idx2 are not in acceptable range: [0..%u].\n", $size_max
148           else
149             set $i = $start_idx
150                 while $i <= $stop_idx
151                         printf "elem[%u]: ", $i
152                         p *($elts + $i)
153                         set $i++
154                 end
155           end
156         end
157         if $argc > 0
158                 printf "nsTArray length = %u\n", $size
159                 printf "nsTArray capacity = %u\n", $capacity
160                 printf "Element "
161                 whatis *$elts
162         end
165 document ptarray
166         Prints nsTArray information.
167         Syntax: ptarray   
168         Note: idx, idx1 and idx2 must be in acceptable range [0...size()-1].
169         Examples:
170         ptarray a - Prints tarray content, size, capacity and T typedef
171         ptarray a 0 - Prints element[idx] from tarray
172         ptarray a 1 2 - Prints elements in range [idx1..idx2] from tarray
175 def js
176   call DumpJSStack()
179 def ft
180   call nsFrame::DumpFrameTree($arg0)