set print union off
set print pretty off
-set $Lisp_Type_Int = -2
-
define decode_object
set $obj = (unsigned long) $arg0
if $obj & 1
# It's an int
set $val = $obj >> 1
- set $type = $Lisp_Type_Int
+ set $type = Lisp_Type_Int
else
set $type = $obj & dbg_typemask
if $type == Lisp_Type_Char
end
if $type == Lisp_Type_Record
- set $lheader = ((struct lrecord_header *) $val)
- set $lrecord_type = ($lheader->type)
- set $imp = lrecord_implementations_table[$lrecord_type]
+ set $lheader = (struct lrecord_header *) $val
+ set $imp = lrecord_implementations_table[$lheader->type]
else
- set $lrecord_type = -1
- set $lheader = -1
set $imp = -1
end
end
define xtype
decode_object $arg0
- if $type == $Lisp_Type_Int
+ if $type == Lisp_Type_Int
echo int\n
else
if $type == Lisp_Type_Char
echo char\n
else
+ if $type == Lisp_Type_Symbol
+ echo symbol\n
+ else
+ if $type == Lisp_Type_String
+ echo string\n
+ else
+ if $type == Lisp_Type_Vector
+ echo vector\n
+ else
+ if $type == Lisp_Type_Cons
+ echo cons\n
+ else
printf "record type: %s\n", $imp->name
+ # barf
+ end
+ end
+ end
+ end
end
end
end
define run-temacs
environment-to-run-temacs
- run -nd -batch -l ../lisp/loadup.el run-temacs -q
+ run -batch -l ../lisp/loadup.el run-temacs -q
end
document run-temacs
define check-temacs
environment-to-run-temacs
- run -nd -batch -l ../lisp/loadup.el run-temacs -q -batch -l ../tests/automated/test-harness.el -f batch-test-emacs ../tests/automated
+ run -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
define update-elc
environment-to-run-temacs
- run -nd -batch -l ../lisp/update-elc.el
+ run -batch -l ../lisp/update-elc.el
end
document update-elc
Use this when temacs builds successfully, but xemacs does not.
end
-define dmp
+define dump-temacs
environment-to-run-temacs
- run -nd -batch -l ../lisp/loadup.el dump
+ run -batch -l ../lisp/loadup.el dump
end
-document dmp
-Usage: dmp
+document dump-temacs
+Usage: dump-temacs
Run the dumping part of the build procedure.
Use when debugging temacs, not xemacs!
Use this when temacs builds successfully, but xemacs does not.
# GDB's command language makes you want to ...
-define ptype
- set $type_ptr = ($arg0 *) $val
- print $type_ptr
- print *$type_ptr
-end
-
-define pstructtype
- set $type_ptr = (struct $arg0 *) $val
- print $type_ptr
- print *$type_ptr
+define pstruct
+ set $xstruct = (struct $arg0 *) $val
+ print $xstruct
+ print *$xstruct
end
define pobj
decode_object $arg0
- if $type == $Lisp_Type_Int
+ if $type == Lisp_Type_Int
printf "Integer: %d\n", $val
else
if $type == Lisp_Type_Char
printf "Char: %d\n", $val
end
else
- if $lrecord_type == lrecord_type_string
- ptype Lisp_String
- else
- if $lrecord_type == lrecord_type_cons
- ptype Lisp_Cons
- else
- if $lrecord_type == lrecord_type_symbol
- ptype Lisp_Symbol
- printf "Symbol name: %s\n", $type_ptr->name->data
+ if $type == Lisp_Type_String || $imp == &lrecord_string
+ pstruct Lisp_String
else
- if $lrecord_type == lrecord_type_vector
- ptype Lisp_Vector
- printf "Vector of length %d\n", $type_ptr->size
- #print *($type_ptr->data) @ $type_ptr->size
+ if $type == Lisp_Type_Cons || $imp == &lrecord_cons
+ pstruct Lisp_Cons
else
- if $lrecord_type == lrecord_type_bit_vector
- ptype Lisp_Bit_Vector
+ if $type == Lisp_Type_Symbol || $imp == &lrecord_symbol
+ pstruct Lisp_Symbol
+ printf "Symbol name: %s\n", $xstruct->name->data
else
- if $lrecord_type == lrecord_type_buffer
- pstructtype buffer
+ if $type == Lisp_Type_Vector || $imp == &lrecord_vector
+ pstruct Lisp_Vector
+ printf "Vector of length %d\n", $xstruct->size
+ #print *($xstruct->data) @ $xstruct->size
else
- if $lrecord_type == lrecord_type_char_table
- ptype Lisp_Char_Table
+ if $imp == &lrecord_bit_vector
+ pstruct Lisp_Bit_Vector
else
- if $lrecord_type == lrecord_type_char_table_entry
- ptype Lisp_Char_Table_Entry
+ if $imp == &lrecord_buffer
+ pstruct buffer
else
- if $lrecord_type == lrecord_type_charset
- ptype Lisp_Charset
+ if $imp == &lrecord_char_table
+ pstruct Lisp_Char_Table
else
- if $lrecord_type == lrecord_type_coding_system
- ptype Lisp_Coding_System
+ if $imp == &lrecord_char_table_entry
+ pstruct Lisp_Char_Table_Entry
else
- if $lrecord_type == lrecord_type_color_instance
- ptype Lisp_Color_Instance
+ if $imp == &lrecord_charset
+ pstruct Lisp_Charset
else
- if $lrecord_type == lrecord_type_command_builder
- ptype command_builder
+ if $imp == &lrecord_coding_system
+ pstruct Lisp_Coding_System
else
- if $lrecord_type == lrecord_type_compiled_function
- ptype Lisp_Compiled_Function
+ if $imp == &lrecord_color_instance
+ pstruct Lisp_Color_Instance
else
- if $lrecord_type == lrecord_type_console
- pstructtype console
+ if $imp == &lrecord_command_builder
+ pstruct command_builder
else
- if $lrecord_type == lrecord_type_database
- ptype Lisp_Database
+ if $imp == &lrecord_compiled_function
+ pstruct Lisp_Compiled_Function
else
- if $lrecord_type == lrecord_type_device
- pstructtype device
+ if $imp == &lrecord_console
+ pstruct console
else
- if $lrecord_type == lrecord_type_event
- ptype Lisp_Event
+ if $imp == &lrecord_database
+ pstruct Lisp_Database
else
- if $lrecord_type == lrecord_type_extent
- pstructtype extent
+ if $imp == &lrecord_device
+ pstruct device
else
- if $lrecord_type == lrecord_type_extent_auxiliary
- pstructtype extent_auxiliary
+ if $imp == &lrecord_event
+ pstruct Lisp_Event
else
- if $lrecord_type == lrecord_type_extent_info
- pstructtype extent_info
+ if $imp == &lrecord_extent
+ pstruct extent
else
- if $lrecord_type == lrecord_type_face
- ptype Lisp_Face
+ if $imp == &lrecord_extent_auxiliary
+ pstruct extent_auxiliary
else
- if $lrecord_type == lrecord_type_float
- ptype Lisp_Float
+ if $imp == &lrecord_extent_info
+ pstruct extent_info
else
- if $lrecord_type == lrecord_type_font_instance
- ptype Lisp_Font_Instance
+ if $imp == &lrecord_face
+ pstruct Lisp_Face
else
- if $lrecord_type == lrecord_type_frame
- pstructtype frame
+ if $imp == &lrecord_float
+ pstruct Lisp_Float
else
- if $lrecord_type == lrecord_type_glyph
- ptype Lisp_Glyph
+ if $imp == &lrecord_font_instance
+ pstruct Lisp_Font_Instance
else
- if $lrecord_type == lrecord_type_gui_item
- ptype Lisp_Gui_Item
+ if $imp == &lrecord_frame
+ pstruct frame
else
- if $lrecord_type == lrecord_type_hash_table
- ptype Lisp_Hash_Table
+ if $imp == &lrecord_glyph
+ pstruct Lisp_Glyph
else
- if $lrecord_type == lrecord_type_image_instance
- ptype Lisp_Image_Instance
+ if $imp == &lrecord_hash_table
+ pstruct Lisp_Hash_Table
else
- if $lrecord_type == lrecord_type_keymap
- ptype Lisp_Keymap
+ if $imp == &lrecord_image_instance
+ pstruct Lisp_Image_Instance
else
- if $lrecord_type == lrecord_type_lcrecord_list
- pstructtype lcrecord_list
+ if $imp == &lrecord_keymap
+ pstruct Lisp_Keymap
else
- if $lrecord_type == lrecord_type_ldap
- ptype Lisp_LDAP
+ if $imp == &lrecord_lcrecord_list
+ pstruct lcrecord_list
else
- if $lrecord_type == lrecord_type_lstream
- pstructtype lstream
+ if $imp == &lrecord_lstream
+ pstruct lstream
else
- if $lrecord_type == lrecord_type_marker
- ptype Lisp_Marker
+ if $imp == &lrecord_marker
+ pstruct Lisp_Marker
else
- if $lrecord_type == lrecord_type_opaque
- ptype Lisp_Opaque
+ if $imp == &lrecord_opaque
+ pstruct Lisp_Opaque
else
- if $lrecord_type == lrecord_type_opaque_ptr
- ptype Lisp_Opaque_Ptr
+ if $imp == &lrecord_opaque_ptr
+ pstruct Lisp_Opaque_Ptr
else
- if $lrecord_type == lrecord_type_popup_data
- ptype popup_data
+ if $imp == &lrecord_popup_data
+ pstruct popup_data
else
- if $lrecord_type == lrecord_type_process
- ptype Lisp_Process
+ if $imp == &lrecord_process
+ pstruct Lisp_Process
else
- if $lrecord_type == lrecord_type_range_table
- ptype Lisp_Range_Table
+ if $imp == &lrecord_range_table
+ pstruct Lisp_Range_Table
else
- if $lrecord_type == lrecord_type_specifier
- ptype Lisp_Specifier
+ if $imp == &lrecord_specifier
+ pstruct Lisp_Specifier
else
- if $lrecord_type == lrecord_type_subr
- ptype Lisp_Subr
+ if $imp == &lrecord_subr
+ pstruct Lisp_Subr
else
- if $lrecord_type == lrecord_type_symbol_value_buffer_local
- pstructtype symbol_value_buffer_local
+ if $imp == &lrecord_symbol_value_buffer_local
+ pstruct symbol_value_buffer_local
else
- if $lrecord_type == lrecord_type_symbol_value_forward
- pstructtype symbol_value_forward
+ if $imp == &lrecord_symbol_value_forward
+ pstruct symbol_value_forward
else
- if $lrecord_type == lrecord_type_symbol_value_lisp_magic
- pstructtype symbol_value_lisp_magic
+ if $imp == &lrecord_symbol_value_lisp_magic
+ pstruct symbol_value_lisp_magic
else
- if $lrecord_type == lrecord_type_symbol_value_varalias
- pstructtype symbol_value_varalias
+ if $imp == &lrecord_symbol_value_varalias
+ pstruct symbol_value_varalias
else
- if $lrecord_type == lrecord_type_timeout
- ptype Lisp_Timeout
+ if $imp == &lrecord_toolbar_button
+ pstruct toolbar_button
else
- if $lrecord_type == lrecord_type_toolbar_button
- pstructtype toolbar_button
+ if $imp == &lrecord_tooltalk_message
+ pstruct Lisp_Tooltalk_Message
else
- if $lrecord_type == lrecord_type_tooltalk_message
- ptype Lisp_Tooltalk_Message
+ if $imp == &lrecord_tooltalk_pattern
+ pstruct Lisp_Tooltalk_Pattern
else
- if $lrecord_type == lrecord_type_tooltalk_pattern
- ptype Lisp_Tooltalk_Pattern
+ if $imp == &lrecord_weak_list
+ pstruct weak_list
else
- if $lrecord_type == lrecord_type_weak_list
- pstructtype weak_list
+ if $imp == &lrecord_window
+ pstruct window
else
- if $lrecord_type == lrecord_type_window
- pstructtype window
- else
- if $lrecord_type == lrecord_type_window_configuration
- pstructtype window_config
+ if $imp == &lrecord_window_configuration
+ pstruct window_config
else
echo Unknown Lisp Object type\n
print $arg0
end
end
end
- end
- end
# Repeat after me... gdb sux, gdb sux, gdb sux...
end
end
end
end
end
- end
end
document pobj
projects / chise / xemacs-chise.git.1 / blobdiff