1 # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2000, 2001,
2 # 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
3 # Free Software Foundation, Inc.
5 # This file is part of GNU Emacs.
7 # GNU Emacs is free software; you can redistribute it and/or modify
8 # it under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3, or (at your option)
12 # GNU Emacs is distributed in the hope that it will be useful,
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with GNU Emacs; see the file COPYING. If not, write to the
19 # Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
20 # Boston, MA 02110-1301, USA.
22 # Force loading of symbols, enough to give us gdb_valbits etc.
25 # Find lwlib source files too.
27 #dir /gd/gnu/lesstif-0.89.9/lib/Xm
29 # Don't enter GDB when user types C-g to quit.
30 # This has one unfortunate effect: you can't type C-c
31 # at the GDB to stop Emacs, when using X.
32 # However, C-z works just as well in that case.
35 # Make it work like SIGINT normally does.
38 # Pass on user signals
39 handle SIGUSR1 noprint pass
40 handle SIGUSR2 noprint pass
42 # Don't pass SIGALRM to Emacs. This makes problems when
46 # $valmask and $tagmask are mask values set up by the xreload macro below.
48 # Use $bugfix so that the value isn't a constant.
49 # Using a constant runs into GDB bugs sometimes.
52 set $ptr = (gdb_use_union ? $bugfix.u.val : $bugfix & $valmask) | gdb_data_seg_bits
57 set $int = gdb_use_union ? $bugfix.s.val : (gdb_use_lsb ? $bugfix : $bugfix << gdb_gctypebits) >> gdb_gctypebits
62 set $type = gdb_use_union ? $bugfix.s.type : (enum Lisp_Type) (gdb_use_lsb ? $bugfix & $tagmask : $bugfix >> gdb_valbits)
65 # Set up something to print out s-expressions.
66 # We save and restore print_output_debug_flag to prevent the w32 port
67 # from calling OutputDebugString, which causes GDB to display each
68 # character twice (yuk!).
70 set $output_debug = print_output_debug_flag
71 set print_output_debug_flag = 0
73 set print_output_debug_flag = $output_debug
76 Print the emacs s-expression which is $.
77 Works only when an inferior emacs is executing.
80 # Print out s-expressions
83 set $output_debug = print_output_debug_flag
84 set print_output_debug_flag = 0
85 set safe_debug_print ($tmp)
86 set print_output_debug_flag = $output_debug
89 Print the argument as an emacs s-expression
90 Works only when an inferior emacs is executing.
93 # Print out s-expressions from tool bar
96 set $output_debug = print_output_debug_flag
97 set print_output_debug_flag = 0
98 set safe_debug_print ($tmp)
99 set print_output_debug_flag = $output_debug
102 Print the argument as an emacs s-expression.
103 Works only when an inferior emacs is executing.
104 For use on tool bar when debugging in Emacs
105 where the variable name would not otherwise
106 be recorded in the GUD buffer.
109 # Print value of lisp variable
112 set $output_debug = print_output_debug_flag
113 set print_output_debug_flag = 0
114 set safe_debug_print ( find_symbol_value (intern ($tmp)))
115 set print_output_debug_flag = $output_debug
118 Print the value of the lisp variable given as argument.
119 Works only when an inferior emacs is executing.
122 # Print value of lisp variable
125 set $output_debug = print_output_debug_flag
126 set print_output_debug_flag = 0
127 set safe_debug_print (find_symbol_value (intern ($tmp)))
128 set print_output_debug_flag = $output_debug
131 Print the value of the lisp variable given as argument.
132 Works only when an inferior emacs is executing.
133 For use when debugging in Emacs where the variable
134 name would not otherwise be recorded in the GUD buffer.
137 # Print out current buffer point and boundaries
139 set $b = current_buffer
141 printf "BUF PT: %d", $b->pt
142 if ($b->pt != $b->pt_byte)
143 printf "[%d]", $b->pt_byte
145 printf " of 1..%d", $t->z
146 if ($t->z != $t->z_byte)
147 printf "[%d]", $t->z_byte
149 if ($b->begv != 1 || $b->zv != $t->z)
150 printf " NARROW=%d..%d", $b->begv, $b->zv
151 if ($b->begv != $b->begv_byte || $b->zv != $b->zv_byte)
152 printf " [%d..%d]", $b->begv_byte, $b->zv_byte
155 printf " GAP: %d", $t->gpt
156 if ($t->gpt != $t->gpt_byte)
157 printf "[%d]", $t->gpt_byte
159 printf " SZ=%d\n", $t->gap_size
162 Print current buffer's point and boundaries.
163 Prints values of point, beg, end, narrow, and gap for current buffer.
167 set $itmethod = $arg0
170 printf "GET_FROM_BUFFER"
173 printf "GET_FROM_DISPLAY_VECTOR"
176 printf "GET_FROM_STRING"
179 printf "GET_FROM_C_STRING"
182 printf "GET_FROM_IMAGE"
185 printf "GET_FROM_STRETCH"
187 if ($itmethod < 0 || $itmethod > 5)
192 Pretty print it->method given as first arg
195 # Print out iterator given as first arg
198 printf "cur=%d", $it->current.pos.charpos
199 if ($it->current.pos.charpos != $it->current.pos.bytepos)
200 printf "[%d]", $it->current.pos.bytepos
202 printf " pos=%d", $it->position.charpos
203 if ($it->position.charpos != $it->position.bytepos)
204 printf "[%d]", $it->position.bytepos
206 printf " start=%d", $it->start.pos.charpos
207 if ($it->start.pos.charpos != $it->start.pos.bytepos)
208 printf "[%d]", $it->start.pos.bytepos
210 printf " end=%d", $it->end_charpos
211 printf " stop=%d", $it->stop_charpos
212 printf " face=%d", $it->face_id
213 if ($it->multibyte_p)
216 if ($it->header_line_p)
219 if ($it->n_overlay_strings > 0)
220 printf " nov=%d", $it->n_overlay_strings
223 printf " sp=%d", $it->sp
227 if ($it->len == 1 && $it->c >= ' ' && it->c < 255)
228 printf " ch='%c'", $it->c
230 printf " ch=[%d,%d]", $it->c, $it->len
236 printf "IT_CHARACTER"
239 printf "IT_COMPOSITION"
251 printf "IT_TRUNCATION"
254 printf "IT_CONTINUATION"
256 if ($it->what < 0 || $it->what > 6)
260 if ($it->method != 0)
263 pitmethod $it->method
264 if ($it->method == 2)
266 printf "[%d]", $it->current.string_pos.charpos
268 if ($it->method == 4)
270 printf "[%d]", $it->image_id
275 printf "BIDI: base_stop=%d prev_stop=%d level=%d\n", $it->base_level_stop, $it->prev_stop, $it->bidi_it.resolved_level
277 if ($it->region_beg_charpos >= 0)
278 printf "reg=%d-%d ", $it->region_beg_charpos, $it->region_end_charpos
280 printf "vpos=%d hpos=%d", $it->vpos, $it->hpos,
281 printf " y=%d lvy=%d", $it->current_y, $it->last_visible_y
282 printf " x=%d vx=%d-%d", $it->current_x, $it->first_visible_x, $it->last_visible_x
283 printf " w=%d", $it->pixel_width
284 printf " a+d=%d+%d=%d", $it->ascent, $it->descent, $it->ascent+$it->descent
285 printf " max=%d+%d=%d", $it->max_ascent, $it->max_descent, $it->max_ascent+$it->max_descent
288 while ($i < $it->sp && $i < 4)
289 set $e = $it->stack[$i]
290 printf "stack[%d]: ", $i
292 printf "[%d]", $e->position.charpos
298 Pretty print a display iterator.
299 Take one arg, an iterator object or pointer.
306 Pretty print the display iterator it.
311 printf "y=%d x=%d pwid=%d", $row->y, $row->x, $row->pixel_width
312 printf " a+d=%d+%d=%d", $row->ascent, $row->height-$row->ascent, $row->height
313 printf " phys=%d+%d=%d", $row->phys_ascent, $row->phys_height-$row->phys_ascent, $row->phys_height
314 printf " vis=%d", $row->visible_height
315 printf " L=%d T=%d R=%d", $row->used[0], $row->used[1], $row->used[2]
317 printf "start=%d end=%d", $row->start.pos.charpos, $row->end.pos.charpos
321 if ($row->displays_text_p)
324 if ($row->mode_line_p)
327 if ($row->continued_p)
330 if ($row-> truncated_on_left_p)
333 if ($row-> truncated_on_right_p)
336 if ($row->starts_in_middle_of_char_p)
339 if ($row->ends_in_middle_of_char_p)
342 if ($row->ends_in_newline_from_string_p)
345 if ($row->ends_at_zv_p)
348 if ($row->overlapped_p)
351 if ($row->overlapping_p)
357 Pretty print information about glyph_row.
358 Takes one argument, a row object or pointer.
365 Pretty print information about glyph_row in row.
371 printf "y=%d x=%d vpos=%d hpos=%d", $cp->y, $cp->x, $cp->vpos, $cp->hpos
374 Pretty print a window cursor.
379 pcursorx output_cursor
383 Pretty print the output_cursor.
388 xgetint $w->sequence_number
389 if ($w->mini_p != Qnil)
392 printf "Window %d ", $int
394 set $tem = (struct buffer *) $ptr
396 printf "%s", ((struct Lisp_String *) $ptr)->data
399 set $tem = (struct Lisp_Marker *) $ptr
400 printf "start=%d end:", $tem->charpos
401 if ($w->window_end_valid != Qnil)
402 xgetint $w->window_end_pos
403 printf "pos=%d", $int
404 xgetint $w->window_end_vpos
405 printf " vpos=%d", $int
409 printf " vscroll=%d", $w->vscroll
410 if ($w->force_start != Qnil)
411 printf " FORCE_START"
413 if ($w->must_be_updated_p)
420 pcursorx $w->phys_cursor
421 if ($w->phys_cursor_on_p)
427 if ($w->last_cursor_off_p != $w->cursor_off_p)
428 if ($w->last_cursor_off_p)
434 if ($w->cursor_off_p)
442 Pretty print a window structure.
443 Takes one argument, a pointer to a window structure.
450 Pretty print window structure w.
475 if ($arg0 < 0 || $arg0 > 6)
480 Print textual description of bidi type given as first argument.
487 if ($g->u.ch >= ' ' && $g->u.ch < 127)
488 printf "CHAR[%c]", $g->u.ch
490 printf "CHAR[0x%x]", $g->u.ch
495 printf "COMP[%d (%d..%d)]", $g->u.cmp.id, $g->u.cmp.from, $g->u.cmp.to
499 printf "IMAGE[%d]", $g->u.img_id
503 printf "STRETCH[%d+%d]", $g->u.stretch.height, $g->u.stretch.ascent
505 xgettype ($g->object)
506 if ($type == Lisp_String)
507 printf " str=%x[%d]", $g->object, $g->charpos
509 printf " pos=%d", $g->charpos
511 # For characters, print their resolved level and bidi type
513 printf " blev=%d,btyp=", $g->resolved_level
514 pbiditype $g->bidi_type
516 printf " w=%d a+d=%d+%d", $g->pixel_width, $g->ascent, $g->descent
517 # If not DEFAULT_FACE_ID
518 if ($g->face_id != 0)
519 printf " face=%d", $g->face_id
522 printf " vof=%d", $g->voffset
530 if ($g->glyph_not_available_p)
533 if ($g->overlaps_vertically_p)
536 if ($g->left_box_line_p)
539 if ($g->right_box_line_p)
542 if ($g->slice.x || $g->slice.y || $g->slice.width || $g->slice.height)
543 printf " slice=%d,%d,%d,%d" ,$g->slice.x, $g->slice.y, $g->slice.width, $g->slice.height
548 Pretty print a glyph structure.
549 Takes one argument, a pointer to a glyph structure.
557 Pretty print glyph structure glyph.
565 Pretty print glyph structure glyph[I].
566 Takes one argument, a integer I.
570 set $pgidx = $pgidx + 1
574 Pretty print next glyph structure.
582 set $used = $row->used[$area]
584 set $gl0 = $row->glyphs[$area]
586 printf "%s: %d glyphs\n", ($area == 0 ? "LEFT" : $area == 2 ? "RIGHT" : "TEXT"), $used
587 while ($pgidx < $used)
588 printf "%3d %4d: ", $pgidx, $xofs
590 set $xofs = $xofs + $gl0[$pgidx]->pixel_width
591 set $pgidx = $pgidx + 1
594 set $area = $area + 1
598 Pretty print all glyphs in a row structure.
599 Takes one argument, a pointer to a row structure.
606 Pretty print all glyphs in row structure row.
613 Pretty print all glyphs in it->glyph_row.
620 if $type == Lisp_Misc
623 if $type == Lisp_Vectorlike
629 Print the type of $, assuming it is an Emacs Lisp value.
630 If the first type printed is Lisp_Vector or Lisp_Misc,
631 a second line gives the more precise type.
636 set $size = ((struct Lisp_Vector *) $ptr)->size
637 output ($size & PVEC_FLAG) ? (enum pvec_type) ($size & PVEC_TYPE_MASK) : $size & ~gdb_array_mark_flag
641 Print the size or vector subtype of $.
642 This command assumes that $ is a vector or pseudovector.
647 output (enum Lisp_Misc_Type) (((struct Lisp_Free *) $ptr)->type)
651 Assume that $ is some misc type and print its specific type.
659 Print $ as an Emacs Lisp integer. This gets the sign right.
667 Print the pointer portion of an Emacs Lisp value in $.
672 print (struct Lisp_Marker *) $ptr
675 Print $ as a marker pointer.
676 This command assumes that $ is an Emacs Lisp marker value.
681 print (struct Lisp_Overlay *) $ptr
684 Print $ as a overlay pointer.
685 This command assumes that $ is an Emacs Lisp overlay value.
690 print (struct Lisp_Free *) $ptr
693 Print $ as a misc free-cell pointer.
694 This command assumes that $ is an Emacs Lisp Misc value.
699 print (struct Lisp_Intfwd *) $ptr
702 Print $ as an integer forwarding pointer.
703 This command assumes that $ is an Emacs Lisp Misc value.
708 print (struct Lisp_Boolfwd *) $ptr
711 Print $ as a boolean forwarding pointer.
712 This command assumes that $ is an Emacs Lisp Misc value.
717 print (struct Lisp_Objfwd *) $ptr
720 Print $ as an object forwarding pointer.
721 This command assumes that $ is an Emacs Lisp Misc value.
726 print (struct Lisp_Buffer_Objfwd *) $ptr
729 Print $ as a buffer-local object forwarding pointer.
730 This command assumes that $ is an Emacs Lisp Misc value.
735 print (struct Lisp_Kboard_Objfwd *) $ptr
738 Print $ as a kboard-local object forwarding pointer.
739 This command assumes that $ is an Emacs Lisp Misc value.
744 print (struct Lisp_Buffer_Local_Value *) $ptr
747 Print $ as a buffer-local-value pointer.
748 This command assumes that $ is an Emacs Lisp Misc value.
754 print (struct Lisp_Symbol *) $ptr
759 Print the name and address of the symbol $.
760 This command assumes that $ is an Emacs Lisp symbol value.
765 print (struct Lisp_String *) $ptr
770 Print the contents and address of the string $.
771 This command assumes that $ is an Emacs Lisp string value.
776 print (struct Lisp_Vector *) $ptr
777 output ($->size > 50) ? 0 : ($->contents[0])@($->size & ~gdb_array_mark_flag)
781 Print the contents and address of the vector $.
782 This command assumes that $ is an Emacs Lisp vector value.
787 print (struct Lisp_Process *) $ptr
792 Print the address of the struct Lisp_process to which $ points.
793 This command assumes that $ is a Lisp_Object.
798 print (struct frame *) $ptr
800 set $ptr = (struct Lisp_String *) $ptr
805 Print $ as a frame pointer.
806 This command assumes $ is an Emacs Lisp frame value.
811 print (struct Lisp_Vector *) $ptr
812 output ($->contents[0])@($->size & 0xff)
815 Print $ as a compiled function pointer.
816 This command assumes that $ is an Emacs Lisp compiled value.
821 print (struct window *) $ptr
822 set $window = (struct window *) $ptr
823 xgetint $window->total_cols
825 xgetint $window->total_lines
827 xgetint $window->left_col
829 xgetint $window->top_line
831 printf "%dx%d+%d+%d\n", $width, $height, $left, $top
834 Print $ as a window pointer, assuming it is an Emacs Lisp window value.
835 Print the window's position as "WIDTHxHEIGHT+LEFT+TOP".
840 print (struct save_window_data *) $ptr
843 Print $ as a window configuration pointer.
844 This command assumes that $ is an Emacs Lisp window configuration value.
849 print (struct Lisp_Subr *) $ptr
854 Print the address of the subr which the Lisp_Object $ points to.
859 print (struct Lisp_Char_Table *) $ptr
862 printf " %d extra slots", ($->size & 0x1ff) - 68
866 Print the address of the char-table $, and its purpose.
867 This command assumes that $ is an Emacs Lisp char-table value.
872 print (struct Lisp_Bool_Vector *) $ptr
873 output ($->size > 256) ? 0 : ($->data[0])@((($->size & ~gdb_array_mark_flag) + 7)/ 8)
877 Print the contents and address of the bool-vector $.
878 This command assumes that $ is an Emacs Lisp bool-vector value.
883 print (struct buffer *) $ptr
885 output ((struct Lisp_String *) $ptr)->data
889 Set $ as a buffer pointer and the name of the buffer.
890 This command assumes $ is an Emacs Lisp buffer value.
895 print (struct Lisp_Hash_Table *) $ptr
898 Set $ as a hash table pointer.
899 This command assumes that $ is an Emacs Lisp hash table value.
904 print (struct Lisp_Cons *) $ptr
909 Print the contents of $ as an Emacs Lisp cons.
917 Print the contents of the next cell in a list.
918 This command assumes that the last thing you printed was a cons cell contents
919 (type struct Lisp_Cons) or a pointer to one.
924 print/x ($type == Lisp_Cons ? ((struct Lisp_Cons *) $ptr)->car : 0)
927 Assume that $ is an Emacs Lisp pair and print its car.
933 print/x ($type == Lisp_Cons ? ((struct Lisp_Cons *) $ptr)->u.cdr : 0)
936 Assume that $ is an Emacs Lisp pair and print its cdr.
941 set $cons = (struct Lisp_Cons *) $ptr
945 while $cons != $nil && $i < 10
949 set $cons = (struct Lisp_Cons *) $ptr
961 Print $ assuming it is a list.
966 print ((struct Lisp_Float *) $ptr)->u.data
969 Print $ assuming it is a lisp floating-point number.
974 print (struct scrollbar *) $ptr
979 Print $ as a scrollbar pointer.
987 if $type == Lisp_Symbol
990 if $type == Lisp_String
993 if $type == Lisp_Cons
996 if $type == Lisp_Float
999 if $type == Lisp_Misc
1000 set $misc = (enum Lisp_Misc_Type) (((struct Lisp_Free *) $ptr)->type)
1001 if $misc == Lisp_Misc_Free
1004 if $misc == Lisp_Misc_Boolfwd
1007 if $misc == Lisp_Misc_Marker
1010 if $misc == Lisp_Misc_Intfwd
1013 if $misc == Lisp_Misc_Boolfwd
1016 if $misc == Lisp_Misc_Objfwd
1019 if $misc == Lisp_Misc_Buffer_Objfwd
1022 if $misc == Lisp_Misc_Buffer_Local_Value
1025 # if $misc == Lisp_Misc_Some_Buffer_Local_Value
1028 if $misc == Lisp_Misc_Overlay
1031 if $misc == Lisp_Misc_Kboard_Objfwd
1034 # if $misc == Lisp_Misc_Save_Value
1038 if $type == Lisp_Vectorlike
1039 set $size = ((struct Lisp_Vector *) $ptr)->size
1040 if ($size & PVEC_FLAG)
1041 set $vec = (enum pvec_type) ($size & PVEC_TYPE_MASK)
1042 if $vec == PVEC_NORMAL_VECTOR
1045 if $vec == PVEC_PROCESS
1048 if $vec == PVEC_FRAME
1051 if $vec == PVEC_COMPILED
1054 if $vec == PVEC_WINDOW
1057 if $vec == PVEC_WINDOW_CONFIGURATION
1060 if $vec == PVEC_SUBR
1063 if $vec == PVEC_CHAR_TABLE
1066 if $vec == PVEC_BOOL_VECTOR
1069 if $vec == PVEC_BUFFER
1072 if $vec == PVEC_HASH_TABLE
1081 Print $ as a lisp object of any type.
1085 set $data = (char *) $arg0->data
1086 output ($arg0->size > 1000) ? 0 : ($data[0])@($arg0->size_byte < 0 ? $arg0->size & ~gdb_array_mark_flag : $arg0->size_byte)
1091 set $sym = (struct Lisp_Symbol *) $ptr
1093 set $sym_name = (struct Lisp_String *) $ptr
1097 Print argument as a symbol.
1101 set $tmp = (struct Lisp_Hash_Table *) ((Vcoding_system_hash_table & $valmask) | gdb_data_seg_bits)
1102 set $tmp = (struct Lisp_Vector *) (($tmp->key_and_value & $valmask) | gdb_data_seg_bits)
1103 set $name = $tmp->contents[$arg0 * 2]
1106 print $tmp->contents[$arg0 * 2 + 1]
1110 Print the name and attributes of coding system that has ID (argument).
1114 set $tmp = (struct Lisp_Hash_Table *) ((Vcharset_hash_table & $valmask) | gdb_data_seg_bits)
1115 set $tmp = (struct Lisp_Vector *) (($tmp->key_and_value & $valmask) | gdb_data_seg_bits)
1116 p $tmp->contents[charset_table[$arg0].hash_index * 2]
1120 Print the name of charset that has ID (argument).
1125 set $tbl = (struct Lisp_Char_Table *) $ptr
1127 xgetint $tbl->extras[0]
1128 printf " ID:%d", $int
1129 xgettype $tbl->extras[1]
1130 xgetptr $tbl->extras[1]
1131 if $type == Lisp_String
1132 set $ptr = (struct Lisp_String *) $ptr
1136 xgetptr $tbl->extras[2]
1137 set $ptr = (struct Lisp_Char_Table *) $ptr
1138 xgetptr $ptr->extras[1]
1139 set $ptr = (struct Lisp_String *) $ptr
1140 printf " Realized from:"
1148 set $size = (((struct Lisp_Vector *) $ptr)->size & 0x1FF)
1149 if $size == FONT_SPEC_MAX
1150 print (struct font_spec *) $ptr
1152 if $size == FONT_ENTITY_MAX
1153 print (struct font_entity *) $ptr
1155 print (struct font *) $ptr
1160 Print $ assuming it is a list font (font-spec, font-entity, or font-object).
1164 set $bt = backtrace_list
1166 xgettype (*$bt->function)
1167 if $type == Lisp_Symbol
1168 xprintsym (*$bt->function)
1169 printf " (0x%x)\n", $bt->args
1171 printf "0x%x ", *$bt->function
1172 if $type == Lisp_Vectorlike
1173 xgetptr (*$bt->function)
1174 set $size = ((struct Lisp_Vector *) $ptr)->size
1175 output ($size & PVEC_FLAG) ? (enum pvec_type) ($size & PVEC_TYPE_MASK) : $size & ~gdb_array_mark_flag
1177 printf "Lisp type %d", $type
1185 Print a backtrace of Lisp function calls from backtrace_list.
1186 Set a breakpoint at Fsignal and call this to see from where
1187 an error was signaled.
1191 set debug_print (which_symbols ($arg0))
1194 Print symbols which references a given lisp object
1195 either as its symbol value or symbol function.
1199 set $bt = byte_stack_list
1201 xgettype ($bt->byte_string)
1202 printf "0x%x => ", $bt->byte_string
1203 which $bt->byte_string
1208 Print a backtrace of the byte code stack.
1211 # Show Lisp backtrace after normal backtrace.
1212 define hookpost-backtrace
1213 set $bt = backtrace_list
1216 echo Lisp Backtrace:\n
1222 set $tagmask = (((long)1 << gdb_gctypebits) - 1)
1223 set $valmask = gdb_use_lsb ? ~($tagmask) : ((long)1 << gdb_valbits) - 1
1226 When starting Emacs a second time in the same gdb session under
1227 FreeBSD 2.2.5, gdb 4.13, $valmask have lost
1228 their values. (The same happens on current (2000) versions of GNU/Linux
1230 This function reloads them.
1234 # Flush display (X only)
1239 Flush pending X window display updates to screen.
1240 Works only when an inferior emacs is executing.
1248 # Call xreload if a new Emacs executable is loaded.
1254 set print sevenbit-strings
1256 show environment DISPLAY
1257 show environment TERM
1259 # People get bothered when they see messages about non-existent functions...
1260 xgetptr Vsystem_type
1261 # $ptr is NULL in temacs
1263 set $tem = (struct Lisp_Symbol *) $ptr
1265 set $tem = (struct Lisp_String *) $ptr
1266 set $tem = (char *) $tem->data
1268 # Don't let abort actually run, as it will make stdio stop working and
1269 # therefore the `pr' command above as well.
1270 if $tem[0] == 'w' && $tem[1] == 'i' && $tem[2] == 'n' && $tem[3] == 'd'
1271 # The windows-nt build replaces abort with its own function.
1278 # x_error_quitter is defined only on X. But window-system is set up
1279 # only at run time, during Emacs startup, so we need to defer setting
1280 # the breakpoint. init_sys_modes is the first function called on
1281 # every platform after init_display, where window-system is set.
1282 tbreak init_sys_modes
1285 xgetptr Vinitial_window_system
1286 set $tem = (struct Lisp_Symbol *) $ptr
1288 set $tem = (struct Lisp_String *) $ptr
1289 set $tem = (char *) $tem->data
1290 # If we are running in synchronous mode, we want a chance to look
1291 # around before Emacs exits. Perhaps we should put the break
1292 # somewhere else instead...
1293 if $tem[0] == 'x' && $tem[1] == '\0'
1294 break x_error_quitter
1298 # arch-tag: 12f34321-7bfa-4240-b77a-3cd3a1696dfe