1 # Copyright (C) 1992, 93, 94, 95, 96, 97, 1998, 2000, 01, 2004
2 # Free Software Foundation, Inc.
4 # This file is part of GNU Emacs.
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)
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.
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.
21 # Force loading of symbols, enough to give us gdb_valbits etc.
24 # Find lwlib source files too.
26 #dir /gd/gnu/lesstif-0.89.9/lib/Xm
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.
34 # Don't pass SIGALRM to Emacs. This makes problems when
38 # Set up a mask to use.
39 # This should be EMACS_INT, but in some cases that is a macro.
40 # long ought to work in all cases right now.
43 set $ptr = (gdb_use_union ? $arg0.u.val : $arg0 & $valmask) | gdb_data_seg_bits
47 set $int = gdb_use_union ? $arg0.s.val : (gdb_use_lsb ? $arg0 : $arg0 << gdb_gctypebits) >> gdb_gctypebits
51 set $type = gdb_use_union ? $arg0.s.type : (enum Lisp_Type) (gdb_use_lsb ? $arg0 & $tagmask : $arg0 >> gdb_valbits)
54 # Set up something to print out s-expressions.
59 Print the emacs s-expression which is $.
60 Works only when an inferior emacs is executing.
70 if $type == Lisp_Vectorlike
76 Print the type of $, assuming it is an Emacs Lisp value.
77 If the first type printed is Lisp_Vector or Lisp_Misc,
78 a second line gives the more precise type.
83 set $size = ((struct Lisp_Vector *) $ptr)->size
84 output ($size & PVEC_FLAG) ? (enum pvec_type) ($size & PVEC_TYPE_MASK) : $size & ~gdb_array_mark_flag
88 Print the size or vector subtype of $, assuming it is a vector or pseudovector.
93 output (enum Lisp_Misc_Type) (((struct Lisp_Free *) $ptr)->type)
97 Print the specific type of $, assuming it is some misc type.
105 Print $, assuming it is an Emacs Lisp integer. This gets the sign right.
113 Print the pointer portion of $, assuming it is an Emacs Lisp value.
118 print (struct Lisp_Marker *) $ptr
121 Print $ as a marker pointer, assuming it is an Emacs Lisp marker value.
126 print (struct Lisp_Overlay *) $ptr
129 Print $ as a overlay pointer, assuming it is an Emacs Lisp overlay value.
134 print (struct Lisp_Free *) $ptr
137 Print $ as a misc free-cell pointer, assuming it is an Emacs Lisp Misc value.
142 print (struct Lisp_Intfwd *) $ptr
145 Print $ as an integer forwarding pointer, assuming it is an Emacs Lisp Misc value.
150 print (struct Lisp_Boolfwd *) $ptr
153 Print $ as a boolean forwarding pointer, assuming it is an Emacs Lisp Misc value.
158 print (struct Lisp_Objfwd *) $ptr
161 Print $ as an object forwarding pointer, assuming it is an Emacs Lisp Misc value.
166 print (struct Lisp_Buffer_Objfwd *) $ptr
169 Print $ as a buffer-local object forwarding pointer, assuming it is an Emacs Lisp Misc value.
174 print (struct Lisp_Kboard_Objfwd *) $ptr
177 Print $ as a kboard-local object forwarding pointer, assuming it is an Emacs Lisp Misc value.
182 print (struct Lisp_Buffer_Local_Value *) $ptr
185 Print $ as a buffer-local-value pointer, assuming it is an Emacs Lisp Misc value.
191 print (struct Lisp_Symbol *) $ptr
196 Print the name and address of the symbol $.
197 This command assumes that $ is an Emacs Lisp symbol value.
202 print (struct Lisp_String *) $ptr
207 Print the contents and address of the string $.
208 This command assumes that $ is an Emacs Lisp string value.
213 print (struct Lisp_Vector *) $ptr
214 output ($->size > 50) ? 0 : ($->contents[0])@($->size & ~gdb_array_mark_flag)
218 Print the contents and address of the vector $.
219 This command assumes that $ is an Emacs Lisp vector value.
224 print (struct Lisp_Process *) $ptr
229 Print the address of the struct Lisp_process which the Lisp_Object $ points to.
234 print (struct frame *) $ptr
237 Print $ as a frame pointer, assuming it is an Emacs Lisp frame value.
242 print (struct Lisp_Vector *) $ptr
243 output ($->contents[0])@($->size & 0xff)
246 Print $ as a compiled function pointer, assuming it is an Emacs Lisp compiled value.
251 print (struct window *) $ptr
252 printf "%dx%d+%d+%d\n", $->width, $->height, $->left, $->top
255 Print $ as a window pointer, assuming it is an Emacs Lisp window value.
256 Print the window's position as "WIDTHxHEIGHT+LEFT+TOP".
261 print (struct save_window_data *) $ptr
264 Print $ as a window configuration pointer, assuming it is an Emacs Lisp window configuration value.
269 print (struct Lisp_Subr *) $ptr
274 Print the address of the subr which the Lisp_Object $ points to.
279 print (struct Lisp_Char_Table *) $ptr
282 printf " %d extra slots", ($->size & 0x1ff) - 388
286 Print the address of the char-table $, and its purpose.
287 This command assumes that $ is an Emacs Lisp char-table value.
292 print (struct Lisp_Bool_Vector *) $ptr
293 output ($->size > 256) ? 0 : ($->data[0])@((($->size & ~gdb_array_mark_flag) + 7)/ 8)
297 Print the contents and address of the bool-vector $.
298 This command assumes that $ is an Emacs Lisp bool-vector value.
303 print (struct buffer *) $ptr
305 output ((struct Lisp_String *) $ptr)->data
309 Set $ as a buffer pointer, assuming it is an Emacs Lisp buffer value.
310 Print the name of the buffer.
315 print (struct Lisp_Hash_Table *) $ptr
318 Set $ as a hash table pointer, assuming it is an Emacs Lisp hash table value.
323 print (struct Lisp_Cons *) $ptr
328 Print the contents of $, assuming it is an Emacs Lisp cons.
336 Print the contents of the next cell in a list.
337 This assumes that the last thing you printed was a cons cell contents
338 (type struct Lisp_Cons) or a pointer to one.
343 print/x ($type == Lisp_Cons ? ((struct Lisp_Cons *) $ptr)->car : 0)
346 Print the car of $, assuming it is an Emacs Lisp pair.
352 print/x ($type == Lisp_Cons ? ((struct Lisp_Cons *) $ptr)->cdr : 0)
355 Print the cdr of $, assuming it is an Emacs Lisp pair.
360 print ((struct Lisp_Float *) $ptr)->data
363 Print $ assuming it is a lisp floating-point number.
368 print (struct scrollbar *) $ptr
373 Print $ as a scrollbar pointer.
377 set $data = $arg0->data
378 output ($arg0->size > 1000) ? 0 : ($data[0])@($arg0->size_byte < 0 ? $arg0->size & ~gdb_array_mark_flag : $arg0->size_byte)
383 set $sym = (struct Lisp_Symbol *) $ptr
385 set $sym_name = (struct Lisp_String *) $ptr
389 Print argument as a symbol.
393 set $bt = backtrace_list
395 xgettype (*$bt->function)
396 if $type == Lisp_Symbol
397 xprintsym (*$bt->function)
400 printf "0x%x ", *$bt->function
401 if $type == Lisp_Vectorlike
402 xgetptr (*$bt->function)
403 set $size = ((struct Lisp_Vector *) $ptr)->size
404 output ($size & PVEC_FLAG) ? (enum pvec_type) ($size & PVEC_TYPE_MASK) : $size & ~gdb_array_mark_flag
406 printf "Lisp type %d", $type
414 Print a backtrace of Lisp function calls from backtrace_list.
415 Set a breakpoint at Fsignal and call this to see from where
416 an error was signaled.
420 set $tagmask = (((long)1 << gdb_gctypebits) - 1)
421 set $valmask = gdb_use_lsb ? ~($tagmask) : ((long)1 << gdb_valbits) - 1
424 When starting Emacs a second time in the same gdb session under
425 FreeBSD 2.2.5, gdb 4.13, $valmask have lost
426 their values. (The same happens on current (2000) versions of GNU/Linux
428 This function reloads them.
436 # Call xreload if a new Emacs executable is loaded.
442 set print sevenbit-strings
444 show environment DISPLAY
445 show environment TERM
446 set args -geometry 80x40+0+0
448 # Don't let abort actually run, as it will make
449 # stdio stop working and therefore the `pr' command above as well.
452 # If we are running in synchronous mode, we want a chance to look around
453 # before Emacs exits. Perhaps we should put the break somewhere else
455 break x_error_quitter
457 # arch-tag: 12f34321-7bfa-4240-b77a-3cd3a1696dfe