head	1.1;
branch	1.1.1;
access;
symbols
	EMACS_21_3:1.1.1.15
	EMACS_21_2:1.1.1.14
	EMACS_21_1:1.1.1.14
	EMACS_21_0_106:1.1.1.14
	EMACS_21_0_105:1.1.1.14
	EMACS_21_0_103:1.1.1.14
	EMACS_20_7:1.1.1.13
	EMACS_20_6:1.1.1.13
	EMACS_20_5:1.1.1.12
	EMACS_20_4:1.1.1.12
	EMACS_20_3:1.1.1.12
	EMACS_20_2:1.1.1.11
	EMACS_20_1:1.1.1.11
	EMACS_19_34:1.1.1.10
	EMACS_19_33:1.1.1.10
	EMACS_19_32:1.1.1.10
	EMACS_19_31:1.1.1.9
	EMACS_19_30:1.1.1.9
	EMACS_19_29:1.1.1.8
	EMACS_19_28:1.1.1.7
	EMACS_19_27:1.1.1.7
	EMACS_19_26:1.1.1.7
	EMACS_19_25:1.1.1.6
	EMACS_19_24:1.1.1.6
	EMACS_19_23:1.1.1.6
	EMACS_19_22:1.1.1.5
	EMACS_19_21:1.1.1.5
	EMACS_19_20:1.1.1.5
	EMACS_19_19:1.1.1.5
	EMACS_19_18:1.1.1.5
	EMACS_19_17:1.1.1.4
	EMACS_19_16:1.1.1.3
	EMACS_19_15:1.1.1.2
	EMACS_19_14:1.1.1.2
	EMACS_19_13:1.1.1.1
	EMACS_19_12:1.1.1.1
	EMACS_19_11:1.1.1.1
	EMACS_19_10:1.1.1.1
	EMACS_19_9:1.1.1.1
	EMACS_19_8:1.1.1.1
	EMACS_19_7:1.1.1.1
	FSF_DIST:1.1.1;
locks; strict;
comment	@# @;


1.1
date	2004.11.05.07.59.34;	author Ben Wing;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	2004.11.05.07.59.34;	author Ben Wing;	state Exp;
branches;
next	1.1.1.2;

1.1.1.2
date	2004.11.05.08.20.12;	author Ben Wing;	state Exp;
branches;
next	1.1.1.3;

1.1.1.3
date	2004.11.05.08.26.25;	author Ben Wing;	state Exp;
branches;
next	1.1.1.4;

1.1.1.4
date	2004.11.05.08.29.24;	author Ben Wing;	state Exp;
branches;
next	1.1.1.5;

1.1.1.5
date	2004.11.05.08.32.40;	author Ben Wing;	state Exp;
branches;
next	1.1.1.6;

1.1.1.6
date	2004.11.05.08.50.10;	author Ben Wing;	state Exp;
branches;
next	1.1.1.7;

1.1.1.7
date	2004.11.05.09.01.50;	author Ben Wing;	state Exp;
branches;
next	1.1.1.8;

1.1.1.8
date	2004.11.05.09.13.30;	author Ben Wing;	state Exp;
branches;
next	1.1.1.9;

1.1.1.9
date	2004.11.05.09.19.10;	author Ben Wing;	state Exp;
branches;
next	1.1.1.10;

1.1.1.10
date	2004.11.05.09.31.35;	author Ben Wing;	state Exp;
branches;
next	1.1.1.11;

1.1.1.11
date	2004.11.05.09.48.06;	author Ben Wing;	state Exp;
branches;
next	1.1.1.12;

1.1.1.12
date	2004.11.05.10.01.27;	author Ben Wing;	state Exp;
branches;
next	1.1.1.13;

1.1.1.13
date	2004.11.05.10.21.55;	author Ben Wing;	state Exp;
branches;
next	1.1.1.14;

1.1.1.14
date	2004.11.05.10.37.02;	author Ben Wing;	state Exp;
branches;
next	1.1.1.15;

1.1.1.15
date	2004.11.05.11.23.10;	author Ben Wing;	state Exp;
branches;
next	;


desc
@@


1.1
log
@Initial revision
@
text
@# Set up something to print out s-expressions.
define pr
set Fprin1 ($, Qexternal_debugging_output)
echo \n
end
document pr
Print the emacs s-expression which is $.
Works only when an inferior emacs is executing.
end

# Set this to the same thing as the DATA_SEG_BITS macro in your
# machine-description files.
set $data_seg_bits = 0

define mips
set $data_seg_bits = 0x10000000
end
document mips
Set up the xfoo macros to deal with the MIPS processor.
Specifically, this sets $data_seg_bits to the right thing.
end

define xtype
output (enum Lisp_Type) (($ >> 24) & 0x7f)
echo \n
end
document xtype
Print the type of $, assuming it is an Elisp value.
end

define xint
print (($ & 0x00ffffff) << 8) >> 8
end
document xint
Print $, assuming it is an Elisp integer.  This gets the sign right.
end

define xptr
print (void *) (($ & 0x00ffffff) | $data_seg_bits)
end
document xptr
Print the pointer portion of $, assuming it is an Elisp value.
end

define xwindow
print (struct window *) (($ & 0x00ffffff) | $data_seg_bits)
printf "%dx%d+%d+%d\n", $->width, $->height, $->left, $->top
end
document xwindow
Print $ as a window pointer, assuming it is an Elisp window value.
Print the window's position as "WIDTHxHEIGHT+LEFT+TOP".
end

define xmarker
print (struct Lisp_Marker *) (($ & 0x00ffffff) | $data_seg_bits)
end
document xmarker
Print $ as a marker pointer, assuming it is an Elisp marker value.
end

define xbuffer
print (struct buffer *) (($ & 0x00ffffff) | $data_seg_bits)
output &((struct Lisp_String *) ((($->name) & 0x00ffffff) | $data_seg_bits))->data
echo \n
end
document xbuffer
Set $ as a buffer pointer, assuming it is an Elisp buffer value.
Print the name of the buffer.
end

define xsymbol
print (struct Lisp_Symbol *) (($ & 0x00ffffff) | $data_seg_bits)
output &$->name->data
echo \n
end
document xsymbol
Print the name and address of the symbol $.
This command assumes that $ is an Elisp symbol value.
end

define xstring
print (struct Lisp_String *) (($ & 0x00ffffff) | $data_seg_bits)
output ($->size > 10000) ? "big string" : ($->data[0])@@($->size)
echo \n
end
document xstring
Print the contents and address of the string $.
This command assumes that $ is an Elisp string value.
end

define xvector
print (struct Lisp_Vector *) (($ & 0x00ffffff) | $data_seg_bits)
output ($->size > 1000) ? "big vector" : ($->contents[0])@@($->size)
echo \n
end
document xvector
Print the contents and address of the vector $.
This command assumes that $ is an Elisp vector value.
end

define xframe
print (struct frame *) (($ & 0x00ffffff) | $data_seg_bits)
end
document xframe
Print $ as a frame pointer, assuming it is an Elisp frame value.
end

define xcons
print (struct Lisp_Cons *) (($ & 0x00ffffff) | $data_seg_bits)
output *$
echo \n
end
document xcons
Print the contents of $, assuming it is an Elisp cons.
end

define xcar
print ((($ >> 24) & 0x7f) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & 0x00ffffff) | $data_seg_bits))->car : 0)
end
document xcar
Print the car of $, assuming it is an Elisp pair.
end

define xcdr
print ((($ >> 24) & 0x7f) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & 0x00ffffff) | $data_seg_bits))->cdr : 0)
end
document xcdr
Print the cdr of $, assuming it is an Elisp pair.
end

define xsubr
print (struct Lisp_Subr *) (($ & 0x00ffffff) | $data_seg_bits)
output *$
echo \n
end
document xsubr
Print the address of the subr which the Lisp_Object $ points to.
end

define xprocess
print (struct Lisp_Process *) (($ & 0x00ffffff) | $data_seg_bits)
output *$
echo \n
end
document xprocess
Print the address of the struct Lisp_process which the Lisp_Object $ points to.
end

define xscrollbar
print (struct scrollbar *) (($ & 0x00ffffff) | $data_seg_bits)
output *$
echo \n
end
document xsubr
Print $ as a scrollbar pointer.
end

set print pretty on

unset environment TERMCAP
unset environment TERM
echo TERMCAP and TERM environment variables unset.\n
show environment DISPLAY
set args -q -geometry +0+0

# Don't let abort actually run, as it will make
# stdio stop working and therefore the `pr' command above as well.
break abort

# If we are running in synchronous mode, we want a chance to look around
# before Emacs exits.  Perhaps we should put the break somewhere else
# instead...
break _XPrintDefaultError

@


1.1.1.1
log
@import emacs-19.7
@
text
@@


1.1.1.2
log
@import emacs-19.14
@
text
@a158 1
set print sevenbit-strings
@


1.1.1.3
log
@import emacs-19.16
@
text
@d165 1
a165 1
set args -q -geometry 80x40+0+0
@


1.1.1.4
log
@import emacs-19.17
@
text
@a148 7
define xfloat
print ((struct Lisp_Float *) (($ & 0x00ffffff) | $data_seg_bits))->data
end
document xfloat
Print $ assuming it is a lisp floating-point number.
end

@


1.1.1.5
log
@import emacs-19.18
@
text
@d161 1
a161 1
document xscrollbar
d168 3
d172 1
a172 3
show environment TERM
show environment TERMCAP
set args -geometry 80x40+0+0
@


1.1.1.6
log
@import emacs-19.23
@
text
@d3 1
a3 1
set debug_print ($)
d170 1
@


1.1.1.7
log
@import emacs-19.26
@
text
@d28 1
a28 1
Print the type of $, assuming it is an Emacs Lisp value.
d35 1
a35 1
Print $, assuming it is an Emacs Lisp integer.  This gets the sign right.
d42 1
a42 1
Print the pointer portion of $, assuming it is an Emacs Lisp value.
d50 1
a50 1
Print $ as a window pointer, assuming it is an Emacs Lisp window value.
d58 1
a58 1
Print $ as a marker pointer, assuming it is an Emacs Lisp marker value.
d67 1
a67 1
Set $ as a buffer pointer, assuming it is an Emacs Lisp buffer value.
d72 1
a72 1
print (struct Lisp_Symbol *) ((((int) $) & 0x00ffffff) | $data_seg_bits)
d78 1
a78 1
This command assumes that $ is an Emacs Lisp symbol value.
d83 1
a83 1
output ($->size > 1000) ? 0 : ($->data[0])@@($->size)
d88 1
a88 1
This command assumes that $ is an Emacs Lisp string value.
d93 1
a93 1
output ($->size > 50) ? 0 : ($->contents[0])@@($->size)
d98 1
a98 1
This command assumes that $ is an Emacs Lisp vector value.
d105 1
a105 1
Print $ as a frame pointer, assuming it is an Emacs Lisp frame value.
d114 1
a114 1
Print the contents of $, assuming it is an Emacs Lisp cons.
d121 1
a121 1
Print the car of $, assuming it is an Emacs Lisp pair.
d128 1
a128 1
Print the cdr of $, assuming it is an Emacs Lisp pair.
d179 1
a179 2
break x_error_quitter

@


1.1.1.8
log
@import emacs-19.29
@
text
@a0 10
# Set up a mask to use.

# Force loading of symbols, enough to give us gdb_valbits etc.
set main

# This should be EMACS_INT, but in some cases that is a macro.
# long ought to work in all cases right now.
set $valmask = ((long)1 << gdb_valbits) - 1
set $nonvalbits = gdb_emacs_intbits - gdb_valbits

d11 12
d24 1
a24 3
output (enum Lisp_Type) (($ >> gdb_valbits) & 0x7)
echo \n
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)
a28 20
If the first type printed is Lisp_Vector or Lisp_Misc,
the second line gives the more precise type.
Otherwise the second line doesn't mean anything.
end

define xvectype
set $size = ((struct Lisp_Vector *) (($ & $valmask) | gdb_data_seg_bits))->size
output (enum pvec_type) (($size & PVEC_FLAG) ? $size & PVEC_TYPE_MASK : 0)
echo \n
end
document xvectype
Print the vector subtype of $, assuming it is a vector or pseudovector.
end

define xmisctype
output (enum Lisp_Misc_Type) (((struct Lisp_Free *) (($ & $valmask) | gdb_data_seg_bits))->type)
echo \n
end
document xmisctype
Print the specific type of $, assuming it is some misc type.
d32 1
a32 1
print (($ & $valmask) << $nonvalbits) >> $nonvalbits
d39 1
a39 1
print (void *) (($ & $valmask) | gdb_data_seg_bits)
d46 1
a46 1
print (struct window *) (($ & $valmask) | gdb_data_seg_bits)
d55 1
a55 1
print (struct Lisp_Marker *) (($ & $valmask) | gdb_data_seg_bits)
a60 56
define xoverlay
print (struct Lisp_Overlay *) (($ & $valmask) | gdb_data_seg_bits)
end
document xoverlay
Print $ as a overlay pointer, assuming it is an Emacs Lisp overlay value.
end

define xmiscfree
print (struct Lisp_Free *) (($ & $valmask) | gdb_data_seg_bits)
end
document xmiscfree
Print $ as a misc free-cell pointer, assuming it is an Emacs Lisp Misc value.
end

define xintfwd
print (struct Lisp_Intfwd *) (($ & $valmask) | gdb_data_seg_bits)
end
document xintfwd
Print $ as an integer forwarding pointer, assuming it is an Emacs Lisp Misc value.
end

define xboolfwd
print (struct Lisp_Boolfwd *) (($ & $valmask) | gdb_data_seg_bits)
end
document xboolfwd
Print $ as a boolean forwarding pointer, assuming it is an Emacs Lisp Misc value.
end

define xobjfwd
print (struct Lisp_Objfwd *) (($ & $valmask) | gdb_data_seg_bits)
end
document xobjfwd
Print $ as an object forwarding pointer, assuming it is an Emacs Lisp Misc value.
end

define xbufobjfwd
print (struct Lisp_Buffer_Objfwd *) (($ & $valmask) | gdb_data_seg_bits)
end
document xbufobjfwd
Print $ as a buffer-local object forwarding pointer, assuming it is an Emacs Lisp Misc value.
end

define xkbobjfwd
print (struct Lisp_Kboard_Objfwd *) (($ & $valmask) | gdb_data_seg_bits)
end
document xkbobjfwd
Print $ as a kboard-local object forwarding pointer, assuming it is an Emacs Lisp Misc value.
end

define xbuflocal
print (struct Lisp_Buffer_Local_Value *) (($ & $valmask) | gdb_data_seg_bits)
end
document xbuflocal
Print $ as a buffer-local-value pointer, assuming it is an Emacs Lisp Misc value.
end

d62 2
a63 2
print (struct buffer *) (($ & $valmask) | gdb_data_seg_bits)
output &((struct Lisp_String *) ((($->name) & $valmask) | gdb_data_seg_bits))->data
d72 1
a72 1
print (struct Lisp_Symbol *) ((((int) $) & $valmask) | gdb_data_seg_bits)
d82 1
a82 1
print (struct Lisp_String *) (($ & $valmask) | gdb_data_seg_bits)
d92 1
a92 1
print (struct Lisp_Vector *) (($ & $valmask) | gdb_data_seg_bits)
d102 1
a102 1
print (struct frame *) (($ & $valmask) | gdb_data_seg_bits)
a107 15
define xwinconfig
print (struct save_window_data *) (($ & $valmask) | gdb_data_seg_bits)
end
document xwinconfig
Print $ as a window configuration pointer, assuming it is an Emacs Lisp window configuration value.
end

define xcompiled
print (struct Lisp_Vector *) (($ & $valmask) | gdb_data_seg_bits)
output ($->contents[0])@@($->size & 0xff)
end
document xcompiled
Print $ as a compiled function pointer, assuming it is an Emacs Lisp compiled value.
end

d109 1
a109 1
print (struct Lisp_Cons *) (($ & $valmask) | gdb_data_seg_bits)
d118 1
a118 1
print ((($ >> gdb_valbits) & 0xf) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & $valmask) | gdb_data_seg_bits))->car : 0)
d125 1
a125 1
print ((($ >> gdb_valbits) & 0xf) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & $valmask) | gdb_data_seg_bits))->cdr : 0)
d132 1
a132 1
print (struct Lisp_Subr *) (($ & $valmask) | gdb_data_seg_bits)
d141 1
a141 1
print (struct Lisp_Process *) (($ & $valmask) | gdb_data_seg_bits)
d150 1
a150 1
print ((struct Lisp_Float *) (($ & $valmask) | gdb_data_seg_bits))->data
d157 1
a157 1
print (struct scrollbar *) (($ & $valmask) | gdb_data_seg_bits)
d180 2
@


1.1.1.9
log
@import emacs-19.30
@
text
@d14 1
d149 1
a149 1
output (char*)&$->name->data
@


1.1.1.10
log
@import emacs-19.32
@
text
@a5 3
# Find lwlib source files too.
dir ../lwlib

@


1.1.1.11
log
@import emacs-20.1
@
text
@d203 1
a203 1
output/x *$
a209 9
define nextcons
p $.cdr
xcons
end
document nextcons
Print the contents of the next cell in a list.
This assumes that the last thing you printed was a cons cell contents
(type struct Lisp_Cons) or a pointer to one.
end
d211 1
a211 1
print/x ((($ >> gdb_valbits) & 0xf) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & $valmask) | gdb_data_seg_bits))->car : 0)
d218 1
a218 1
print/x ((($ >> gdb_valbits) & 0xf) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & $valmask) | gdb_data_seg_bits))->cdr : 0)
@


1.1.1.12
log
@import emacs-20.3
@
text
@d1 2
a8 7
# Don't enter GDB when user types C-g to quit.
# This has one unfortunate effect: you can't type C-c
# at the GDB to stop Emacs, when using X.
# However, C-z works just as well in that case.
handle 2 noprint pass

# Set up a mask to use.
d67 9
d139 10
d161 1
a161 1
output ($->size > 1000) ? 0 : ($->data[0])@@($->size_byte < 0 ? $->size : $->size_byte)
a178 9
define xprocess
print (struct Lisp_Process *) (($ & $valmask) | gdb_data_seg_bits)
output *$
echo \n
end
document xprocess
Print the address of the struct Lisp_process which the Lisp_Object $ points to.
end

a185 17
define xcompiled
print (struct Lisp_Vector *) (($ & $valmask) | gdb_data_seg_bits)
output ($->contents[0])@@($->size & 0xff)
end
document xcompiled
Print $ as a compiled function pointer, assuming it is an Emacs Lisp compiled value.
end

define xwindow
print (struct window *) (($ & $valmask) | gdb_data_seg_bits)
printf "%dx%d+%d+%d\n", $->width, $->height, $->left, $->top
end
document xwindow
Print $ as a window pointer, assuming it is an Emacs Lisp window value.
Print the window's position as "WIDTHxHEIGHT+LEFT+TOP".
end

d193 3
a195 4
define xsubr
print (struct Lisp_Subr *) (($ & $valmask) | gdb_data_seg_bits)
output *$
echo \n
d197 2
a198 34
document xsubr
Print the address of the subr which the Lisp_Object $ points to.
end

define xchartable
print (struct Lisp_Char_Table *) (($ & $valmask) | gdb_data_seg_bits)
printf "Purpose: "
output (char*)&((struct Lisp_Symbol *) ((((int) $->purpose) & $valmask) | gdb_data_seg_bits))->name->data
printf "  %d extra slots", ($->size & 0x1ff) - 388
echo \n
end
document xchartable
Print the address of the char-table $, and its purpose.
This command assumes that $ is an Emacs Lisp char-table value.
end

define xboolvector
print (struct Lisp_Bool_Vector *) (($ & $valmask) | gdb_data_seg_bits)
output ($->size > 256) ? 0 : ($->data[0])@@(($->size + 7)/ 8)
echo \n
end
document xboolvector
Print the contents and address of the bool-vector $.
This command assumes that $ is an Emacs Lisp bool-vector value.
end

define xbuffer
print (struct buffer *) (($ & $valmask) | gdb_data_seg_bits)
output &((struct Lisp_String *) ((($->name) & $valmask) | gdb_data_seg_bits))->data
echo \n
end
document xbuffer
Set $ as a buffer pointer, assuming it is an Emacs Lisp buffer value.
Print the name of the buffer.
d233 18
@


1.1.1.13
log
@import emacs-20.6
@
text
@a293 32
define xprintsym
  set $sym = (struct Lisp_Symbol *) ((((int) $arg0) & $valmask) | gdb_data_seg_bits)
  output (char*)&$sym->name->data
  echo \n
end
document xprintsym
  Print argument as a symbol.
end

define xbacktrace
  set $bt = backtrace_list
  while $bt 
    xprintsym *$bt->function
    set $bt = $bt->next
  end
end
document xbacktrace
  Print a backtrace of Lisp function calls from backtrace_list.
  Set a breakpoint at Fsignal and call this to see from where 
  an error was signalled.
end

define xreload
  set $valmask = ((long)1 << gdb_valbits) - 1
  set $nonvalbits = gdb_emacs_intbits - gdb_valbits
end
document xreload
  When starting Emacs a second time in the same gdb session under
  FreeBSD 2.2.5, gdb 4.13, $valmask and $nonvalbits have lost
  their values.  This function reloads them.
end

@


1.1.1.14
log
@import emacs-21.0.103
@
text
@a0 20
# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2000, 2001
#   Free Software Foundation, Inc.
#
# This file is part of GNU Emacs.
#
# GNU Emacs is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.
#
# GNU Emacs is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with GNU Emacs; see the file COPYING.  If not, write to the
# Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.

a5 1
#dir /gd/gnu/lesstif-0.89.9/lib/Xm
a12 4
# Don't pass SIGALRM to Emacs.  This makes problems when
# debugging.
handle SIGALRM ignore

d137 1
a137 1
output (char*)$->name->data
a245 7
define xhashtable
print (struct Lisp_Hash_Table *) (($ & $valmask) | gdb_data_seg_bits)
end
document xhashtable
Set $ as a hash table pointer, assuming it is an Emacs Lisp hash table value.
end

d296 1
a296 1
  output (char*)$sym->name->data
d306 1
a306 13
    set $type = (enum Lisp_Type) ((*$bt->function >> gdb_valbits) & 0x7)
    if $type == Lisp_Symbol
      xprintsym *$bt->function
    else
      printf "0x%x ", *$bt->function
      if $type == Lisp_Vectorlike
        set $size = ((struct Lisp_Vector *) ((*$bt->function & $valmask) | gdb_data_seg_bits))->size
        output (enum pvec_type) (($size & PVEC_FLAG) ? $size & PVEC_TYPE_MASK : 0)
      else
        printf "Lisp type %d", $type
      end
      echo \n
    end
d313 1
a313 1
  an error was signaled.
d323 1
a323 7
  their values.  (The same happens on current (2000) versions of GNU/Linux
  with gdb 5.0.)
  This function reloads them.
end

define hook-run
  xreload
@


1.1.1.15
log
@import emacs-21.3
@
text
@d162 2
a163 1
xprintsym $
d263 1
a263 1
output ((struct Lisp_String *) ((($->name) & $valmask) | gdb_data_seg_bits))->data
d328 1
a328 2
  set $sym_name = ((struct Lisp_String *)(($sym->xname & $valmask) | gdb_data_seg_bits))
  output ($sym_name->data[0])@@($sym_name->size_byte < 0 ? $sym_name->size : $sym_name->size_byte)
d337 1
a337 1
  while $bt
d356 1
a356 1
  Set a breakpoint at Fsignal and call this to see from where
a375 5
# Call xreload if a new Emacs executable is loaded.
define hookpost-run
  xreload
end

@


