36219
|
1 # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2000, 2001
|
|
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.
|
|
41 set $valmask = ((long)1 << gdb_valbits) - 1
|
11872
|
42 set $nonvalbits = gdb_emacs_intbits - gdb_valbits
|
|
43
|
567
|
44 # Set up something to print out s-expressions.
|
|
45 define pr
|
6534
|
46 set debug_print ($)
|
567
|
47 end
|
|
48 document pr
|
|
49 Print the emacs s-expression which is $.
|
|
50 Works only when an inferior emacs is executing.
|
|
51 end
|
|
52
|
|
53 define xtype
|
11872
|
54 output (enum Lisp_Type) (($ >> gdb_valbits) & 0x7)
|
10299
|
55 echo \n
|
11872
|
56 output ((($ >> gdb_valbits) & 0x7) == Lisp_Misc ? (enum Lisp_Misc_Type) (((struct Lisp_Free *) (($ & $valmask) | gdb_data_seg_bits))->type) : (($ >> gdb_valbits) & 0x7) == Lisp_Vectorlike ? ($size = ((struct Lisp_Vector *) (($ & $valmask) | gdb_data_seg_bits))->size, (enum pvec_type) (($size & PVEC_FLAG) ? $size & PVEC_TYPE_MASK : 0)) : 0)
|
999
|
57 echo \n
|
567
|
58 end
|
638
|
59 document xtype
|
7962
|
60 Print the type of $, assuming it is an Emacs Lisp value.
|
10299
|
61 If the first type printed is Lisp_Vector or Lisp_Misc,
|
|
62 the second line gives the more precise type.
|
|
63 Otherwise the second line doesn't mean anything.
|
|
64 end
|
|
65
|
|
66 define xvectype
|
11872
|
67 set $size = ((struct Lisp_Vector *) (($ & $valmask) | gdb_data_seg_bits))->size
|
10299
|
68 output (enum pvec_type) (($size & PVEC_FLAG) ? $size & PVEC_TYPE_MASK : 0)
|
|
69 echo \n
|
|
70 end
|
|
71 document xvectype
|
|
72 Print the vector subtype of $, assuming it is a vector or pseudovector.
|
|
73 end
|
|
74
|
|
75 define xmisctype
|
11872
|
76 output (enum Lisp_Misc_Type) (((struct Lisp_Free *) (($ & $valmask) | gdb_data_seg_bits))->type)
|
10299
|
77 echo \n
|
|
78 end
|
|
79 document xmisctype
|
|
80 Print the specific type of $, assuming it is some misc type.
|
638
|
81 end
|
567
|
82
|
|
83 define xint
|
11872
|
84 print (($ & $valmask) << $nonvalbits) >> $nonvalbits
|
567
|
85 end
|
638
|
86 document xint
|
7962
|
87 Print $, assuming it is an Emacs Lisp integer. This gets the sign right.
|
638
|
88 end
|
567
|
89
|
|
90 define xptr
|
11872
|
91 print (void *) (($ & $valmask) | gdb_data_seg_bits)
|
567
|
92 end
|
638
|
93 document xptr
|
7962
|
94 Print the pointer portion of $, assuming it is an Emacs Lisp value.
|
638
|
95 end
|
567
|
96
|
|
97 define xmarker
|
11872
|
98 print (struct Lisp_Marker *) (($ & $valmask) | gdb_data_seg_bits)
|
567
|
99 end
|
638
|
100 document xmarker
|
7962
|
101 Print $ as a marker pointer, assuming it is an Emacs Lisp marker value.
|
638
|
102 end
|
567
|
103
|
10483
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
104 define xoverlay
|
11872
|
105 print (struct Lisp_Overlay *) (($ & $valmask) | gdb_data_seg_bits)
|
10483
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
106 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
107 document xoverlay
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
108 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
|
109 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
110
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
111 define xmiscfree
|
11872
|
112 print (struct Lisp_Free *) (($ & $valmask) | gdb_data_seg_bits)
|
10483
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
113 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
114 document xmiscfree
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
115 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
|
116 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
117
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
118 define xintfwd
|
11872
|
119 print (struct Lisp_Intfwd *) (($ & $valmask) | gdb_data_seg_bits)
|
10483
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
120 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
121 document xintfwd
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
122 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
|
123 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
124
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
125 define xboolfwd
|
11872
|
126 print (struct Lisp_Boolfwd *) (($ & $valmask) | gdb_data_seg_bits)
|
10483
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
127 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
128 document xboolfwd
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
129 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
|
130 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
131
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
132 define xobjfwd
|
11872
|
133 print (struct Lisp_Objfwd *) (($ & $valmask) | gdb_data_seg_bits)
|
10483
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
134 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
135 document xobjfwd
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
136 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
|
137 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
138
|
10495
|
139 define xbufobjfwd
|
11872
|
140 print (struct Lisp_Buffer_Objfwd *) (($ & $valmask) | gdb_data_seg_bits)
|
10483
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
141 end
|
10495
|
142 document xbufobjfwd
|
10483
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
143 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
|
144 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
145
|
11006
|
146 define xkbobjfwd
|
11872
|
147 print (struct Lisp_Kboard_Objfwd *) (($ & $valmask) | gdb_data_seg_bits)
|
10582
|
148 end
|
11006
|
149 document xkbobjfwd
|
|
150 Print $ as a kboard-local object forwarding pointer, assuming it is an Emacs Lisp Misc value.
|
10582
|
151 end
|
|
152
|
10495
|
153 define xbuflocal
|
11872
|
154 print (struct Lisp_Buffer_Local_Value *) (($ & $valmask) | gdb_data_seg_bits)
|
10483
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
155 end
|
10495
|
156 document xbuflocal
|
10483
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
157 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
|
158 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
159
|
567
|
160 define xsymbol
|
11872
|
161 print (struct Lisp_Symbol *) ((((int) $) & $valmask) | gdb_data_seg_bits)
|
45966
|
162 xprintsym $
|
567
|
163 end
|
638
|
164 document xsymbol
|
|
165 Print the name and address of the symbol $.
|
7962
|
166 This command assumes that $ is an Emacs Lisp symbol value.
|
638
|
167 end
|
567
|
168
|
|
169 define xstring
|
11872
|
170 print (struct Lisp_String *) (($ & $valmask) | gdb_data_seg_bits)
|
22012
|
171 output ($->size > 1000) ? 0 : ($->data[0])@($->size_byte < 0 ? $->size : $->size_byte)
|
999
|
172 echo \n
|
567
|
173 end
|
|
174 document xstring
|
638
|
175 Print the contents and address of the string $.
|
7962
|
176 This command assumes that $ is an Emacs Lisp string value.
|
567
|
177 end
|
|
178
|
|
179 define xvector
|
11872
|
180 print (struct Lisp_Vector *) (($ & $valmask) | gdb_data_seg_bits)
|
7961
|
181 output ($->size > 50) ? 0 : ($->contents[0])@($->size)
|
999
|
182 echo \n
|
567
|
183 end
|
|
184 document xvector
|
638
|
185 Print the contents and address of the vector $.
|
7962
|
186 This command assumes that $ is an Emacs Lisp vector value.
|
567
|
187 end
|
|
188
|
22012
|
189 define xprocess
|
|
190 print (struct Lisp_Process *) (($ & $valmask) | gdb_data_seg_bits)
|
|
191 output *$
|
|
192 echo \n
|
|
193 end
|
|
194 document xprocess
|
|
195 Print the address of the struct Lisp_process which the Lisp_Object $ points to.
|
|
196 end
|
|
197
|
1113
|
198 define xframe
|
11872
|
199 print (struct frame *) (($ & $valmask) | gdb_data_seg_bits)
|
567
|
200 end
|
1113
|
201 document xframe
|
7962
|
202 Print $ as a frame pointer, assuming it is an Emacs Lisp frame value.
|
638
|
203 end
|
567
|
204
|
22012
|
205 define xcompiled
|
|
206 print (struct Lisp_Vector *) (($ & $valmask) | gdb_data_seg_bits)
|
|
207 output ($->contents[0])@($->size & 0xff)
|
|
208 end
|
|
209 document xcompiled
|
|
210 Print $ as a compiled function pointer, assuming it is an Emacs Lisp compiled value.
|
|
211 end
|
|
212
|
|
213 define xwindow
|
|
214 print (struct window *) (($ & $valmask) | gdb_data_seg_bits)
|
|
215 printf "%dx%d+%d+%d\n", $->width, $->height, $->left, $->top
|
|
216 end
|
|
217 document xwindow
|
|
218 Print $ as a window pointer, assuming it is an Emacs Lisp window value.
|
|
219 Print the window's position as "WIDTHxHEIGHT+LEFT+TOP".
|
|
220 end
|
|
221
|
10495
|
222 define xwinconfig
|
11872
|
223 print (struct save_window_data *) (($ & $valmask) | gdb_data_seg_bits)
|
10483
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
224 end
|
10495
|
225 document xwinconfig
|
10483
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
226 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
|
227 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
228
|
22012
|
229 define xsubr
|
|
230 print (struct Lisp_Subr *) (($ & $valmask) | gdb_data_seg_bits)
|
|
231 output *$
|
|
232 echo \n
|
|
233 end
|
|
234 document xsubr
|
|
235 Print the address of the subr which the Lisp_Object $ points to.
|
|
236 end
|
|
237
|
|
238 define xchartable
|
|
239 print (struct Lisp_Char_Table *) (($ & $valmask) | gdb_data_seg_bits)
|
|
240 printf "Purpose: "
|
|
241 output (char*)&((struct Lisp_Symbol *) ((((int) $->purpose) & $valmask) | gdb_data_seg_bits))->name->data
|
|
242 printf " %d extra slots", ($->size & 0x1ff) - 388
|
|
243 echo \n
|
|
244 end
|
|
245 document xchartable
|
|
246 Print the address of the char-table $, and its purpose.
|
|
247 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
|
248 end
|
22012
|
249
|
|
250 define xboolvector
|
|
251 print (struct Lisp_Bool_Vector *) (($ & $valmask) | gdb_data_seg_bits)
|
|
252 output ($->size > 256) ? 0 : ($->data[0])@(($->size + 7)/ 8)
|
|
253 echo \n
|
|
254 end
|
|
255 document xboolvector
|
|
256 Print the contents and address of the bool-vector $.
|
|
257 This command assumes that $ is an Emacs Lisp bool-vector value.
|
|
258 end
|
|
259
|
|
260 define xbuffer
|
|
261 print (struct buffer *) (($ & $valmask) | gdb_data_seg_bits)
|
42682
|
262 output ((struct Lisp_String *) ((($->name) & $valmask) | gdb_data_seg_bits))->data
|
22012
|
263 echo \n
|
|
264 end
|
|
265 document xbuffer
|
|
266 Set $ as a buffer pointer, assuming it is an Emacs Lisp buffer value.
|
|
267 Print the name of the buffer.
|
10483
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
268 end
|
727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
Karl Heuer <kwzh@gnu.org>
diff
changeset
|
269
|
30636
|
270 define xhashtable
|
|
271 print (struct Lisp_Hash_Table *) (($ & $valmask) | gdb_data_seg_bits)
|
|
272 end
|
|
273 document xhashtable
|
|
274 Set $ as a hash table pointer, assuming it is an Emacs Lisp hash table value.
|
|
275 end
|
|
276
|
567
|
277 define xcons
|
11872
|
278 print (struct Lisp_Cons *) (($ & $valmask) | gdb_data_seg_bits)
|
18522
|
279 output/x *$
|
999
|
280 echo \n
|
567
|
281 end
|
638
|
282 document xcons
|
7962
|
283 Print the contents of $, assuming it is an Emacs Lisp cons.
|
638
|
284 end
|
567
|
285
|
18522
|
286 define nextcons
|
|
287 p $.cdr
|
|
288 xcons
|
|
289 end
|
|
290 document nextcons
|
|
291 Print the contents of the next cell in a list.
|
|
292 This assumes that the last thing you printed was a cons cell contents
|
|
293 (type struct Lisp_Cons) or a pointer to one.
|
|
294 end
|
567
|
295 define xcar
|
18835
|
296 print/x ((($ >> gdb_valbits) & 0xf) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & $valmask) | gdb_data_seg_bits))->car : 0)
|
567
|
297 end
|
638
|
298 document xcar
|
7962
|
299 Print the car of $, assuming it is an Emacs Lisp pair.
|
638
|
300 end
|
567
|
301
|
|
302 define xcdr
|
18835
|
303 print/x ((($ >> gdb_valbits) & 0xf) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & $valmask) | gdb_data_seg_bits))->cdr : 0)
|
567
|
304 end
|
638
|
305 document xcdr
|
7962
|
306 Print the cdr of $, assuming it is an Emacs Lisp pair.
|
638
|
307 end
|
567
|
308
|
4267
|
309 define xfloat
|
11872
|
310 print ((struct Lisp_Float *) (($ & $valmask) | gdb_data_seg_bits))->data
|
4267
|
311 end
|
|
312 document xfloat
|
|
313 Print $ assuming it is a lisp floating-point number.
|
|
314 end
|
|
315
|
1789
|
316 define xscrollbar
|
11872
|
317 print (struct scrollbar *) (($ & $valmask) | gdb_data_seg_bits)
|
1789
|
318 output *$
|
|
319 echo \n
|
|
320 end
|
4268
|
321 document xscrollbar
|
1789
|
322 Print $ as a scrollbar pointer.
|
|
323 end
|
|
324
|
27290
|
325 define xprintsym
|
|
326 set $sym = (struct Lisp_Symbol *) ((((int) $arg0) & $valmask) | gdb_data_seg_bits)
|
45966
|
327 set $sym_name = ((struct Lisp_String *)(($sym->xname & $valmask) | gdb_data_seg_bits))
|
|
328 output ($sym_name->data[0])@($sym_name->size_byte < 0 ? $sym_name->size : $sym_name->size_byte)
|
27290
|
329 echo \n
|
|
330 end
|
|
331 document xprintsym
|
|
332 Print argument as a symbol.
|
|
333 end
|
|
334
|
|
335 define xbacktrace
|
|
336 set $bt = backtrace_list
|
49600
|
337 while $bt
|
32812
|
338 set $type = (enum Lisp_Type) ((*$bt->function >> gdb_valbits) & 0x7)
|
|
339 if $type == Lisp_Symbol
|
|
340 xprintsym *$bt->function
|
|
341 else
|
|
342 printf "0x%x ", *$bt->function
|
|
343 if $type == Lisp_Vectorlike
|
|
344 set $size = ((struct Lisp_Vector *) ((*$bt->function & $valmask) | gdb_data_seg_bits))->size
|
|
345 output (enum pvec_type) (($size & PVEC_FLAG) ? $size & PVEC_TYPE_MASK : 0)
|
|
346 else
|
|
347 printf "Lisp type %d", $type
|
|
348 end
|
|
349 echo \n
|
|
350 end
|
27290
|
351 set $bt = $bt->next
|
|
352 end
|
|
353 end
|
|
354 document xbacktrace
|
|
355 Print a backtrace of Lisp function calls from backtrace_list.
|
49600
|
356 Set a breakpoint at Fsignal and call this to see from where
|
32812
|
357 an error was signaled.
|
27290
|
358 end
|
|
359
|
|
360 define xreload
|
|
361 set $valmask = ((long)1 << gdb_valbits) - 1
|
|
362 set $nonvalbits = gdb_emacs_intbits - gdb_valbits
|
|
363 end
|
|
364 document xreload
|
|
365 When starting Emacs a second time in the same gdb session under
|
|
366 FreeBSD 2.2.5, gdb 4.13, $valmask and $nonvalbits have lost
|
35792
|
367 their values. (The same happens on current (2000) versions of GNU/Linux
|
|
368 with gdb 5.0.)
|
31960
|
369 This function reloads them.
|
27290
|
370 end
|
|
371
|
35792
|
372 define hook-run
|
|
373 xreload
|
|
374 end
|
|
375
|
42907
|
376 # Call xreload if a new Emacs executable is loaded.
|
|
377 define hookpost-run
|
|
378 xreload
|
|
379 end
|
|
380
|
638
|
381 set print pretty on
|
4267
|
382 set print sevenbit-strings
|
567
|
383
|
732
|
384 show environment DISPLAY
|
4487
|
385 show environment TERM
|
|
386 set args -geometry 80x40+0+0
|
732
|
387
|
567
|
388 # Don't let abort actually run, as it will make
|
2162
|
389 # stdio stop working and therefore the `pr' command above as well.
|
567
|
390 break abort
|
|
391
|
|
392 # If we are running in synchronous mode, we want a chance to look around
|
|
393 # before Emacs exits. Perhaps we should put the break somewhere else
|
|
394 # instead...
|
8310
def3ab3a6f01
Set the breakpoint in x_error_quitter instead of _XPrintDefaultError.
Richard M. Stallman <rms@gnu.org>
diff
changeset
|
395 break x_error_quitter
|