update.

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

diff --git a/src/.gdbinit b/src/.gdbinit
index 4cf1c3e..03720ca 100644 (file)
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -69,7 +69,7 @@ define decode_object
   if $type == Lisp_Type_Record
     set $lheader = ((struct lrecord_header *) $val)
     set $lrecord_type = ($lheader->type)
   if $type == Lisp_Type_Record
     set $lheader = ((struct lrecord_header *) $val)
     set $lrecord_type = ($lheader->type)

-    set $imp = lrecord_implementations_table[$lrecord_type]
+    set $imp = ((struct lrecord_implementation *) lrecord_implementations_table[(int) $lrecord_type])

   else
     set $lrecord_type = -1
     set $lheader = -1
   else
     set $lrecord_type = -1
     set $lheader = -1

@@ -166,21 +166,18 @@ Use when debugging temacs, not xemacs!
 Use this when temacs builds successfully, but xemacs does not.
 end
 
 Use this when temacs builds successfully, but xemacs does not.
 end
 

-define dump-temacs
+define dmp

   environment-to-run-temacs
   run -nd -batch -l ../lisp/loadup.el dump
 end
 
   environment-to-run-temacs
   run -nd -batch -l ../lisp/loadup.el dump
 end
 

-document dump-temacs
-Usage: dump-temacs
+document dmp
+Usage: dmp

 Run the dumping part of the build procedure.
 Use when debugging temacs, not xemacs!
 Use this when temacs builds successfully, but xemacs does not.
 end
 
 Run the dumping part of the build procedure.
 Use when debugging temacs, not xemacs!
 Use this when temacs builds successfully, but xemacs does not.
 end
 

-# if you use Purify, do this:
-# export PURIFYOPTIONS='-pointer-mask=0x0fffffff'
-

 define ldp
   printf "%s", "Lisp => "
   call debug_print($arg0)
 define ldp
   printf "%s", "Lisp => "
   call debug_print($arg0)