Mercurial > hg > xemacs-beta

comparison src/.gdbinit @ 458:c33ae14dd6d0 r21-2-44

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-44
author cvs
date Mon, 13 Aug 2007 11:42:25 +0200
parents d7a9135ec789
children aebc80e1f056
comparison
equal deleted inserted replaced
457:4b9290a33024 458:c33ae14dd6d0
67 end 67 end
68 68
69 if $type == Lisp_Type_Record 69 if $type == Lisp_Type_Record
70 set $lheader = ((struct lrecord_header *) $val) 70 set $lheader = ((struct lrecord_header *) $val)
71 set $lrecord_type = ($lheader->type) 71 set $lrecord_type = ($lheader->type)
72 set $imp = lrecord_implementations_table[$lrecord_type] 72 set $imp = ((struct lrecord_implementation *) lrecord_implementations_table[(int) $lrecord_type])
73 else 73 else
74 set $lrecord_type = -1 74 set $lrecord_type = -1
75 set $lheader = -1 75 set $lheader = -1
76 set $imp = -1 76 set $imp = -1
77 end 77 end
175 Usage: dmp 175 Usage: dmp
176 Run the dumping part of the build procedure. 176 Run the dumping part of the build procedure.
177 Use when debugging temacs, not xemacs! 177 Use when debugging temacs, not xemacs!
178 Use this when temacs builds successfully, but xemacs does not. 178 Use this when temacs builds successfully, but xemacs does not.
179 end 179 end
180
181 # if you use Purify, do this:
182 # export PURIFYOPTIONS='-pointer-mask=0x0fffffff'
183 180
184 define ldp 181 define ldp
185 printf "%s", "Lisp => " 182 printf "%s", "Lisp => "
186 call debug_print($arg0) 183 call debug_print($arg0)
187 end 184 end