xemacs-beta: src/gdbinit comparison

Import from CVS: tag r21-2-5

comparison

equal deleted inserted replaced

-:76b7d63099ad
+:8626e4521993
 if $type == dbg_Lisp_Type_Cons   || $imp == lrecord_cons
 pstruct Lisp_Cons
 else
 if $type == dbg_Lisp_Type_Symbol || $imp == lrecord_symbol
 pstruct Lisp_Symbol
-printf "Symbol name: %s\n", $xstruct->name->_data
+printf "Symbol name: %s\n", $xstruct->name->data
 else
 if $type == dbg_Lisp_Type_Vector || $imp == lrecord_vector
 pstruct Lisp_Vector
 printf "Vector of length %d\n", $xstruct->size
-#print *($xstruct->_data) @ $xstruct->size
+#print *($xstruct->data) @ $xstruct->size
 else
 if $imp == lrecord_bit_vector
 pstruct Lisp_Bit_Vector
 else
 if $imp == lrecord_buffer
 else
 if $imp == lrecord_console
 pstruct console
 else
 if $imp == lrecord_database
-pstruct database
+pstruct Lisp_Database
 else
 if $imp == lrecord_device
 pstruct device
 else
 if $imp == lrecord_event
 pstruct frame
 else
 if $imp == lrecord_glyph
 pstruct Lisp_Glyph
 else
-if $imp == lrecord_hashtable
+if $imp == lrecord_hash_table
-pstruct hashtable
+pstruct Lisp_Hash_Table
 else
 if $imp == lrecord_image_instance
 pstruct Lisp_Image_Instance
 else
 if $imp == lrecord_keymap
-pstruct keymap
+pstruct Lisp_Keymap
 else
 if $imp == lrecord_lcrecord_list
 pstruct lcrecord_list
 else
 if $imp == lrecord_lstream
 end
 end
 end
 end
 end
-end
+# Repeat after me... gdb sux, gdb sux, gdb sux...
 end
 end
 end
 end
 end
 end
 end
 end
 end
 end
 end
 end
 end
 end
 end
 end
 end
+end
+# Are we having fun yet??
 end
 end
 end
 end
 end

Mercurial > hg > xemacs-beta