54690
|
1 # Copyright (C) 1992, 93, 94, 95, 96, 97, 1998, 2000, 01, 2004
|
36219
|
2 # Free Software Foundation, Inc.
|
|
3 #
|
|
4 # This file is part of GNU Emacs.
|
|
5 #
|
|
6 # GNU Emacs is free software; you can redistribute it and/or modify
|
|
7 # it under the terms of the GNU General Public License as published by
|
|
8 # the Free Software Foundation; either version 2, or (at your option)
|
|
9 # any later version.
|
|
10 #
|
|
11 # GNU Emacs is distributed in the hope that it will be useful,
|
|
12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
14 # GNU General Public License for more details.
|
|
15 #
|
|
16 # You should have received a copy of the GNU General Public License
|
|
17 # along with GNU Emacs; see the file COPYING. If not, write to the
|
|
18 # Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
19 # Boston, MA 02111-1307, USA.
|
|
20
|
13359
|
21 # Force loading of symbols, enough to give us gdb_valbits etc.
|
|
22 set main
|
|
23
|
15536
|
24 # Find lwlib source files too.
|
|
25 dir ../lwlib
|
34876
|
26 #dir /gd/gnu/lesstif-0.89.9/lib/Xm
|
15536
|
27
|
20672
|
28 # Don't enter GDB when user types C-g to quit.
|
|
29 # This has one unfortunate effect: you can't type C-c
|
|
30 # at the GDB to stop Emacs, when using X.
|
|
31 # However, C-z works just as well in that case.
|
|
32 handle 2 noprint pass
|
|
33
|
30636
|
34 # Don't pass SIGALRM to Emacs. This makes problems when
|
|
35 # debugging.
|
|
36 handle SIGALRM ignore
|
|
37
|
20672
|
38 # Set up a mask to use.
|
12278
|
39 # This should be EMACS_INT, but in some cases that is a macro.
|
|
40 # long ought to work in all cases right now.
|
54690
|
41
|
|
42 define xgetptr
|
|
43 set $ptr = (gdb_use_union ? $arg0.u.val : $arg0 & $valmask) | gdb_data_seg_bits
|
|
44 end
|
|
45
|
|
46 define xgetint
|
|
47 set $int = gdb_use_union ? $arg0.s.val : (gdb_use_lsb ? $arg0 : $arg0 << gdb_gctypebits) >> gdb_gctypebits
|
|
48 end
|
|
49
|
|
50 define xgettype
|
|
51 set $type = gdb_use_union ? $arg0.s.type : (enum Lisp_Type) (gdb_use_lsb ? $arg0 & $tagmask : $arg0 >> gdb_valbits)
|
|
52 end
|
11872
|
53
|
567
|
54 # Set up something to print out s-expressions.
|
|
55 define pr
|
54690
|
56 set debug_print ($)
|
567
|
57 end
|
|
58 document pr
|
|
59 Print the emacs s-expression which is $.
|
|
60 Works only when an inferior emacs is executing.
|
|
61 end
|
|
62
|
57306
|
63 # Print out s-expressions
|
|
64 define pp
|
|
65 set $tmp = $arg0
|
|
66 set debug_print ($tmp)
|
|
67 end
|
|
68 document pp
|
|
69 Print the argument as an emacs s-expression
|
|
70 Works only when an inferior emacs is executing.
|
|
71 end
|
|
72
|
567
|
73 define xtype
|
54690
|
74 xgettype $
|
|
75 output $type
|
|
76 echo \n
|
|
77 if $type == Lisp_Misc
|
|
78 xmisctype
|
|
79 else
|
|
80 if $type == Lisp_Vectorlike
|
|
81 xvectype
|
|
82 end
|
|
83 end
|
567
|
84 end
|
638
|
85 document xtype
|
7962
|
86 Print the type of $, assuming it is an Emacs Lisp value.
|
10299
|
87 If the first type printed is Lisp_Vector or Lisp_Misc,
|
54690
|
88 a second line gives the more precise type.
|
10299
|
89 end
|
|
90
|
|
91 define xvectype
|
54690
|
92 xgetptr $
|
|
93 set $size = ((struct Lisp_Vector *) $ptr)->size
|
55609
|
94 output ($size & PVEC_FLAG) ? (enum pvec_type) ($size & PVEC_TYPE_MASK) : $size & ~gdb_array_mark_flag
|
54690
|
95 echo \n
|
10299
|
96 end
|
|
97 document xvectype
|
54690
|
98 Print the size or vector subtype of $, assuming it is a vector or pseudovector.
|
10299
|
99 end
|
|
100
|
|
101 define xmisctype
|
54690
|
102 xgetptr $
|
|
103 output (enum Lisp_Misc_Type) (((struct Lisp_Free *) $ptr)->type)
|
|
104 echo \n
|
10299
|
105 end
|
|
106 document xmisctype
|
|
107 Print the specific type of $, assuming it is some misc type.
|
638
|
108 end
|
567
|
109
|
|
110 define xint
|
54690
|
111 xgetint $
|
|
112 print $int
|
567
|
113 end
|
638
|
114 document xint
|
7962
|
115 Print $, assuming it is an Emacs Lisp integer. This gets the sign right.
|
638
|
116 end
|
567
|
117
|
|
118 define xptr
|
54690
|
119 xgetptr $
|
|
120 print (void *) $ptr
|
567
|
121 end
|
638
|
122 document xptr
|
7962
|
123 Print the pointer portion of $, assuming it is an Emacs Lisp value.
|
638
|
124 end
|
567
|
125
|
|
126 define xmarker
|
54690
|
127 xgetptr $
|
|
128 print (struct Lisp_Marker *) $ptr
|
567
|
129 end
|
638
|
130 document xmarker
|
7962
|
131 Print $ as a marker pointer, assuming it is an Emacs Lisp marker value.
|
638
|
132 end
|
567
|
133
|
10483
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
134 define xoverlay
|
54690
|
135 xgetptr $
|
|
136 print (struct Lisp_Overlay *) $ptr
|
10483
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
137 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
138 document xoverlay
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
139 Print $ as a overlay pointer, assuming it is an Emacs Lisp overlay value.
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
140 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
141
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
142 define xmiscfree
|
54690
|
143 xgetptr $
|
|
144 print (struct Lisp_Free *) $ptr
|
10483
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
145 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
146 document xmiscfree
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
147 Print $ as a misc free-cell pointer, assuming it is an Emacs Lisp Misc value.
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
148 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
149
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
150 define xintfwd
|
54690
|
151 xgetptr $
|
|
152 print (struct Lisp_Intfwd *) $ptr
|
10483
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
153 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
154 document xintfwd
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
155 Print $ as an integer forwarding pointer, assuming it is an Emacs Lisp Misc value.
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
156 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
157
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
158 define xboolfwd
|
54690
|
159 xgetptr $
|
|
160 print (struct Lisp_Boolfwd *) $ptr
|
10483
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
161 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
162 document xboolfwd
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
163 Print $ as a boolean forwarding pointer, assuming it is an Emacs Lisp Misc value.
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
164 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
165
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
166 define xobjfwd
|
54690
|
167 xgetptr $
|
|
168 print (struct Lisp_Objfwd *) $ptr
|
10483
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
169 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
170 document xobjfwd
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
171 Print $ as an object forwarding pointer, assuming it is an Emacs Lisp Misc value.
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
172 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
173
|
10495
|
174 define xbufobjfwd
|
54690
|
175 xgetptr $
|
|
176 print (struct Lisp_Buffer_Objfwd *) $ptr
|
10483
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
177 end
|
10495
|
178 document xbufobjfwd
|
10483
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
179 Print $ as a buffer-local object forwarding pointer, assuming it is an Emacs Lisp Misc value.
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
180 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
181
|
11006
|
182 define xkbobjfwd
|
54690
|
183 xgetptr $
|
|
184 print (struct Lisp_Kboard_Objfwd *) $ptr
|
10582
|
185 end
|
11006
|
186 document xkbobjfwd
|
|
187 Print $ as a kboard-local object forwarding pointer, assuming it is an Emacs Lisp Misc value.
|
10582
|
188 end
|
|
189
|
10495
|
190 define xbuflocal
|
54690
|
191 xgetptr $
|
|
192 print (struct Lisp_Buffer_Local_Value *) $ptr
|
10483
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
193 end
|
10495
|
194 document xbuflocal
|
10483
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
195 Print $ as a buffer-local-value pointer, assuming it is an Emacs Lisp Misc value.
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
196 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
197
|
567
|
198 define xsymbol
|
55686
|
199 set $sym = $
|
|
200 xgetptr $sym
|
54690
|
201 print (struct Lisp_Symbol *) $ptr
|
55686
|
202 xprintsym $sym
|
54690
|
203 echo \n
|
567
|
204 end
|
638
|
205 document xsymbol
|
|
206 Print the name and address of the symbol $.
|
7962
|
207 This command assumes that $ is an Emacs Lisp symbol value.
|
638
|
208 end
|
567
|
209
|
|
210 define xstring
|
54690
|
211 xgetptr $
|
|
212 print (struct Lisp_String *) $ptr
|
55681
|
213 xprintstr $
|
54690
|
214 echo \n
|
567
|
215 end
|
|
216 document xstring
|
638
|
217 Print the contents and address of the string $.
|
7962
|
218 This command assumes that $ is an Emacs Lisp string value.
|
567
|
219 end
|
|
220
|
|
221 define xvector
|
54690
|
222 xgetptr $
|
|
223 print (struct Lisp_Vector *) $ptr
|
55609
|
224 output ($->size > 50) ? 0 : ($->contents[0])@($->size & ~gdb_array_mark_flag)
|
999
|
225 echo \n
|
567
|
226 end
|
|
227 document xvector
|
638
|
228 Print the contents and address of the vector $.
|
7962
|
229 This command assumes that $ is an Emacs Lisp vector value.
|
567
|
230 end
|
|
231
|
22012
|
232 define xprocess
|
54690
|
233 xgetptr $
|
|
234 print (struct Lisp_Process *) $ptr
|
|
235 output *$
|
|
236 echo \n
|
22012
|
237 end
|
|
238 document xprocess
|
|
239 Print the address of the struct Lisp_process which the Lisp_Object $ points to.
|
|
240 end
|
|
241
|
1113
|
242 define xframe
|
54690
|
243 xgetptr $
|
|
244 print (struct frame *) $ptr
|
567
|
245 end
|
1113
|
246 document xframe
|
7962
|
247 Print $ as a frame pointer, assuming it is an Emacs Lisp frame value.
|
638
|
248 end
|
567
|
249
|
22012
|
250 define xcompiled
|
54690
|
251 xgetptr $
|
|
252 print (struct Lisp_Vector *) $ptr
|
|
253 output ($->contents[0])@($->size & 0xff)
|
22012
|
254 end
|
|
255 document xcompiled
|
|
256 Print $ as a compiled function pointer, assuming it is an Emacs Lisp compiled value.
|
|
257 end
|
|
258
|
|
259 define xwindow
|
54690
|
260 xgetptr $
|
|
261 print (struct window *) $ptr
|
|
262 printf "%dx%d+%d+%d\n", $->width, $->height, $->left, $->top
|
22012
|
263 end
|
|
264 document xwindow
|
|
265 Print $ as a window pointer, assuming it is an Emacs Lisp window value.
|
|
266 Print the window's position as "WIDTHxHEIGHT+LEFT+TOP".
|
|
267 end
|
|
268
|
10495
|
269 define xwinconfig
|
54690
|
270 xgetptr $
|
|
271 print (struct save_window_data *) $ptr
|
10483
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
272 end
|
10495
|
273 document xwinconfig
|
10483
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
274 Print $ as a window configuration pointer, assuming it is an Emacs Lisp window configuration value.
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
275 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
276
|
22012
|
277 define xsubr
|
54690
|
278 xgetptr $
|
|
279 print (struct Lisp_Subr *) $ptr
|
|
280 output *$
|
|
281 echo \n
|
22012
|
282 end
|
|
283 document xsubr
|
|
284 Print the address of the subr which the Lisp_Object $ points to.
|
|
285 end
|
|
286
|
|
287 define xchartable
|
54690
|
288 xgetptr $
|
|
289 print (struct Lisp_Char_Table *) $ptr
|
|
290 printf "Purpose: "
|
|
291 xprintsym $->purpose
|
|
292 printf " %d extra slots", ($->size & 0x1ff) - 388
|
|
293 echo \n
|
22012
|
294 end
|
|
295 document xchartable
|
|
296 Print the address of the char-table $, and its purpose.
|
|
297 This command assumes that $ is an Emacs Lisp char-table value.
|
10483
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
298 end
|
22012
|
299
|
|
300 define xboolvector
|
54690
|
301 xgetptr $
|
|
302 print (struct Lisp_Bool_Vector *) $ptr
|
55609
|
303 output ($->size > 256) ? 0 : ($->data[0])@((($->size & ~gdb_array_mark_flag) + 7)/ 8)
|
54690
|
304 echo \n
|
22012
|
305 end
|
|
306 document xboolvector
|
|
307 Print the contents and address of the bool-vector $.
|
|
308 This command assumes that $ is an Emacs Lisp bool-vector value.
|
|
309 end
|
|
310
|
|
311 define xbuffer
|
54690
|
312 xgetptr $
|
|
313 print (struct buffer *) $ptr
|
|
314 xgetptr $->name
|
|
315 output ((struct Lisp_String *) $ptr)->data
|
|
316 echo \n
|
22012
|
317 end
|
|
318 document xbuffer
|
|
319 Set $ as a buffer pointer, assuming it is an Emacs Lisp buffer value.
|
|
320 Print the name of the buffer.
|
10483
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
321 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
322
|
30636
|
323 define xhashtable
|
54690
|
324 xgetptr $
|
|
325 print (struct Lisp_Hash_Table *) $ptr
|
30636
|
326 end
|
|
327 document xhashtable
|
|
328 Set $ as a hash table pointer, assuming it is an Emacs Lisp hash table value.
|
|
329 end
|
|
330
|
567
|
331 define xcons
|
54690
|
332 xgetptr $
|
|
333 print (struct Lisp_Cons *) $ptr
|
|
334 output/x *$
|
|
335 echo \n
|
567
|
336 end
|
638
|
337 document xcons
|
7962
|
338 Print the contents of $, assuming it is an Emacs Lisp cons.
|
638
|
339 end
|
567
|
340
|
18522
|
341 define nextcons
|
54690
|
342 p $.cdr
|
|
343 xcons
|
18522
|
344 end
|
|
345 document nextcons
|
|
346 Print the contents of the next cell in a list.
|
|
347 This assumes that the last thing you printed was a cons cell contents
|
|
348 (type struct Lisp_Cons) or a pointer to one.
|
|
349 end
|
567
|
350 define xcar
|
54690
|
351 xgetptr $
|
|
352 xgettype $
|
|
353 print/x ($type == Lisp_Cons ? ((struct Lisp_Cons *) $ptr)->car : 0)
|
567
|
354 end
|
638
|
355 document xcar
|
7962
|
356 Print the car of $, assuming it is an Emacs Lisp pair.
|
638
|
357 end
|
567
|
358
|
|
359 define xcdr
|
54690
|
360 xgetptr $
|
|
361 xgettype $
|
|
362 print/x ($type == Lisp_Cons ? ((struct Lisp_Cons *) $ptr)->cdr : 0)
|
567
|
363 end
|
638
|
364 document xcdr
|
7962
|
365 Print the cdr of $, assuming it is an Emacs Lisp pair.
|
638
|
366 end
|
567
|
367
|
4267
|
368 define xfloat
|
54690
|
369 xgetptr $
|
|
370 print ((struct Lisp_Float *) $ptr)->data
|
4267
|
371 end
|
|
372 document xfloat
|
|
373 Print $ assuming it is a lisp floating-point number.
|
|
374 end
|
|
375
|
1789
|
376 define xscrollbar
|
54690
|
377 xgetptr $
|
|
378 print (struct scrollbar *) $ptr
|
1789
|
379 output *$
|
|
380 echo \n
|
|
381 end
|
4268
|
382 document xscrollbar
|
1789
|
383 Print $ as a scrollbar pointer.
|
|
384 end
|
|
385
|
55681
|
386 define xprintstr
|
|
387 set $data = $arg0->data
|
|
388 output ($arg0->size > 1000) ? 0 : ($data[0])@($arg0->size_byte < 0 ? $arg0->size & ~gdb_array_mark_flag : $arg0->size_byte)
|
|
389 end
|
|
390
|
27290
|
391 define xprintsym
|
54690
|
392 xgetptr $arg0
|
|
393 set $sym = (struct Lisp_Symbol *) $ptr
|
|
394 xgetptr $sym->xname
|
|
395 set $sym_name = (struct Lisp_String *) $ptr
|
55681
|
396 xprintstr $sym_name
|
27290
|
397 end
|
|
398 document xprintsym
|
|
399 Print argument as a symbol.
|
|
400 end
|
|
401
|
|
402 define xbacktrace
|
|
403 set $bt = backtrace_list
|
49600
|
404 while $bt
|
54690
|
405 xgettype (*$bt->function)
|
32812
|
406 if $type == Lisp_Symbol
|
54690
|
407 xprintsym (*$bt->function)
|
|
408 echo \n
|
32812
|
409 else
|
|
410 printf "0x%x ", *$bt->function
|
|
411 if $type == Lisp_Vectorlike
|
54690
|
412 xgetptr (*$bt->function)
|
|
413 set $size = ((struct Lisp_Vector *) $ptr)->size
|
55609
|
414 output ($size & PVEC_FLAG) ? (enum pvec_type) ($size & PVEC_TYPE_MASK) : $size & ~gdb_array_mark_flag
|
32812
|
415 else
|
|
416 printf "Lisp type %d", $type
|
|
417 end
|
|
418 echo \n
|
|
419 end
|
27290
|
420 set $bt = $bt->next
|
|
421 end
|
|
422 end
|
|
423 document xbacktrace
|
|
424 Print a backtrace of Lisp function calls from backtrace_list.
|
49600
|
425 Set a breakpoint at Fsignal and call this to see from where
|
32812
|
426 an error was signaled.
|
27290
|
427 end
|
|
428
|
|
429 define xreload
|
54690
|
430 set $tagmask = (((long)1 << gdb_gctypebits) - 1)
|
|
431 set $valmask = gdb_use_lsb ? ~($tagmask) : ((long)1 << gdb_valbits) - 1
|
27290
|
432 end
|
|
433 document xreload
|
|
434 When starting Emacs a second time in the same gdb session under
|
54690
|
435 FreeBSD 2.2.5, gdb 4.13, $valmask have lost
|
35792
|
436 their values. (The same happens on current (2000) versions of GNU/Linux
|
|
437 with gdb 5.0.)
|
31960
|
438 This function reloads them.
|
27290
|
439 end
|
54690
|
440 xreload
|
27290
|
441
|
57306
|
442 # Flush display (X only)
|
|
443 define ff
|
|
444 set x_flush (0)
|
|
445 end
|
|
446 document ff
|
|
447 Flush pending X window display updates to screen.
|
|
448 Works only when an inferior emacs is executing.
|
|
449 end
|
|
450
|
|
451
|
35792
|
452 define hook-run
|
|
453 xreload
|
|
454 end
|
|
455
|
42907
|
456 # Call xreload if a new Emacs executable is loaded.
|
|
457 define hookpost-run
|
|
458 xreload
|
|
459 end
|
|
460
|
638
|
461 set print pretty on
|
4267
|
462 set print sevenbit-strings
|
567
|
463
|
732
|
464 show environment DISPLAY
|
4487
|
465 show environment TERM
|
|
466 set args -geometry 80x40+0+0
|
732
|
467
|
567
|
468 # Don't let abort actually run, as it will make
|
2162
|
469 # stdio stop working and therefore the `pr' command above as well.
|
567
|
470 break abort
|
|
471
|
|
472 # If we are running in synchronous mode, we want a chance to look around
|
|
473 # before Emacs exits. Perhaps we should put the break somewhere else
|
|
474 # instead...
|
8310
def3ab3a6f01
Set the breakpoint in x_error_quitter instead of _XPrintDefaultError.
Richard M. Stallman <rms@gnu.org>
diff
changeset
|
475 break x_error_quitter
|
52401
|
476
|
|
477 # arch-tag: 12f34321-7bfa-4240-b77a-3cd3a1696dfe
|