XEmacs 21.2.28 "Hermes".

[chise/xemacs-chise.git.1] / src / .dbxrc

diff --git a/src/.dbxrc b/src/.dbxrc
index 4653a31..3969701 100644 (file)
--- a/src/.dbxrc
+++ b/src/.dbxrc
@@ -39,6 +39,8 @@
 # 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
 
@@ -64,7 +66,7 @@ function ldp {
 
 # 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
@@ -75,7 +77,7 @@ function XEmacsInit {
   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
@@ -98,11 +100,11 @@ function decode_object {
     # 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
@@ -121,7 +123,7 @@ function decode_object {
 
   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