(A-cgnU+4FDF): New abstract node.

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

diff --git a/src/.gdbinit b/src/.gdbinit
index 13ff77d..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

@@ -123,7 +123,7 @@ end
 
 define run-temacs
   environment-to-run-temacs
 
 define run-temacs
   environment-to-run-temacs

-  run -batch -l ../lisp/loadup.el run-temacs -q
+  run -nd -batch -l ../lisp/loadup.el run-temacs -q

 end
 
 document run-temacs
 end
 
 document run-temacs

@@ -144,7 +144,7 @@ end
 
 define check-temacs
   environment-to-run-temacs
 
 define check-temacs
   environment-to-run-temacs

-  run -batch -l ../lisp/loadup.el run-temacs -q -batch -l ../tests/automated/test-harness.el -f batch-test-emacs ../tests/automated
+  run -nd -batch -l ../lisp/loadup.el run-temacs -q -batch -l ../tests/automated/test-harness.el -f batch-test-emacs ../tests/automated

 end
 
 document check-temacs
 end
 
 document check-temacs

@@ -156,7 +156,7 @@ end
 
 define update-elc
   environment-to-run-temacs
 
 define update-elc
   environment-to-run-temacs

-  run -batch -l ../lisp/update-elc.el
+  run -nd -batch -l ../lisp/update-elc.el

 end
 
 document update-elc
 end
 
 document update-elc

@@ -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
   environment-to-run-temacs

-  run -batch -l ../lisp/loadup.el dump
+  run -nd -batch -l ../lisp/loadup.el dump

 end
 
 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)