* src/.gdbinit (xprintsym): Don't attempt to print the
symbol's name if it is not yet set. This happens with
built-in symbols at the beginning of 'main'.
define xprintsym
xsymname $arg0
xgetptr $symname
- set $sym_name = (struct Lisp_String *) $ptr
- xprintstr $sym_name
+ if $ptr != 0
+ set $sym_name = (struct Lisp_String *) $ptr
+ xprintstr $sym_name
+ end
end
document xprintsym
Print argument as a symbol.