# Force loading of symbols, enough to give us gdb_valbits etc.
set main
+# Find lwlib source files too.
+dir ../lwlib
+
# 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 up something to print out s-expressions.
define pr
set debug_print ($)
-echo \n
end
document pr
Print the emacs s-expression which is $.
define xsymbol
print (struct Lisp_Symbol *) ((((int) $) & $valmask) | gdb_data_seg_bits)
-output &$->name->data
+output (char*)&$->name->data
echo \n
end
document xsymbol