# So we simulate the gdb algorithm by doing it ourselves here.
if test -r $HOME/.dbxrc; then . $HOME/.dbxrc; fi
+dbxenv language_mode ansic
+
ignore POLL
ignore IO
# A bug in dbx prevents string variables from having values beginning with `-'!!
function XEmacsInit {
- function ToInt { eval "$1=\$[(int) $1]"; }
+ function ToInt { eval "$1=\$[(int) \`alloc.c\`$1]"; }
ToInt dbg_USE_UNION_TYPE
ToInt Lisp_Type_Int
ToInt Lisp_Type_Char
ToInt Lisp_Type_Record
ToInt dbg_valbits
ToInt dbg_gctypebits
- function ToLong { eval "$1=\$[(unsigned long) $1]"; }
+ function ToLong { eval "$1=\$[(\`alloc.c\`unsigned long) \`alloc.c\`$1]"; }
ToLong dbg_valmask
ToLong dbg_typemask
xemacs_initted=yes
# Repeat after me... dbx sux, dbx sux, dbx sux...
# Allow both `pobj Qnil' and `pobj 0x82746834' to work
case $(whatis $1) in
- *Lisp_Object*) obj="$[(unsigned long)(($1).i)]";;
- *) obj="$[(unsigned long)($1)]";;
+ *Lisp_Object*) obj="$[(`alloc.c`unsigned long)(($1).i)]";;
+ *) obj="$[(`alloc.c`unsigned long)($1)]";;
esac
else
- obj="$[(unsigned long)($1)]";
+ obj="$[(`alloc.c`unsigned long)($1)]";
fi
if test $[(int)($obj & 1)] = 1; then
# It's an int
if test $type = $Lisp_Type_Record; then
typeset lheader="((struct lrecord_header *) $val)"
- imp=$[(void*)(lrecord_implementations_table[$lheader->type])]
+ imp=$[(void*)(`alloc.c`lrecord_implementations_table[$lheader->type])]
else
imp="0xdeadbeef"
fi