--- a/src/.gdbinit	Mon Aug 13 11:41:26 2007 +0200
+++ b/src/.gdbinit	Mon Aug 13 11:42:25 2007 +0200
@@ -69,7 +69,7 @@
   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
@@ -178,9 +178,6 @@
 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)