projects
/
chise
/
xemacs-chise.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(charset_get_byte1): Fix bug about 94- and 96-set.
[chise/xemacs-chise.git]
/
src
/
gdbinit
diff --git
a/src/gdbinit
b/src/gdbinit
index
0259597
..
b7d238d
100644
(file)
--- a/
src/gdbinit
+++ b/
src/gdbinit
@@
-32,9
+32,6
@@
# specified:
# USE_UNION_TYPE
# specified:
# USE_UNION_TYPE
-# USE_MINIMAL_TAGBITS
-# USE_INDEXED_LRECORD_IMPLEMENTATION
-# LRECORD_(SYMBOL|STRING|VECTOR)
# (the above all have configure equivalents)
# (the above all have configure equivalents)
@@
-49,33
+46,23
@@
set print pretty off
define decode_object
set $obj = (unsigned long) $arg0
define decode_object
set $obj = (unsigned long) $arg0
- if dbg_USE_MINIMAL_TAGBITS
- if $obj & 1
- # It's an int
- set $val = $obj >> 1
- set $type = Lisp_Type_Int
+ if $obj & 1
+ # It's an int
+ set $val = $obj >> 1
+ set $type = Lisp_Type_Int
+ else
+ set $type = $obj & dbg_typemask
+ if $type == Lisp_Type_Char
+ set $val = ($obj & dbg_valmask) >> dbg_gctypebits
else
else
- set $type = $obj & dbg_typemask
- if $type == Lisp_Type_Char
- set $val = ($obj & dbg_valmask) >> dbg_gctypebits
- else
- # It's a record pointer
- set $val = $obj
- end
+ # It's a record pointer
+ set $val = $obj
end
end
- else
- # not dbg_USE_MINIMAL_TAGBITS
- set $val = $obj & dbg_valmask
- set $type = ($obj & dbg_typemask) >> (dbg_valbits + 1)
end
if $type == Lisp_Type_Record
set $lheader = (struct lrecord_header *) $val
end
if $type == Lisp_Type_Record
set $lheader = (struct lrecord_header *) $val
- if dbg_USE_INDEXED_LRECORD_IMPLEMENTATION
- set $imp = lrecord_implementations_table[$lheader->type]
- else
- set $imp = $lheader->implementation
- end
+ set $imp = lrecord_implementations_table[$lheader->type]
else
set $imp = -1
end
else
set $imp = -1
end
@@
-241,151
+228,151
@@
define pobj
printf "Char: %d\n", $val
end
else
printf "Char: %d\n", $val
end
else
- if $type == Lisp_Type_String || $imp == lrecord_string
+ if $type == Lisp_Type_String || $imp == &lrecord_string
pstruct Lisp_String
else
pstruct Lisp_String
else
- if $type == Lisp_Type_Cons || $imp == lrecord_cons
+ if $type == Lisp_Type_Cons || $imp == &lrecord_cons
pstruct Lisp_Cons
else
pstruct Lisp_Cons
else
- if $type == Lisp_Type_Symbol || $imp == lrecord_symbol
+ if $type == Lisp_Type_Symbol || $imp == &lrecord_symbol
pstruct Lisp_Symbol
printf "Symbol name: %s\n", $xstruct->name->data
else
pstruct Lisp_Symbol
printf "Symbol name: %s\n", $xstruct->name->data
else
- if $type == Lisp_Type_Vector || $imp == lrecord_vector
+ 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
pstruct Lisp_Vector
printf "Vector of length %d\n", $xstruct->size
#print *($xstruct->data) @ $xstruct->size
else
- if $imp == lrecord_bit_vector
+ if $imp == &lrecord_bit_vector
pstruct Lisp_Bit_Vector
else
pstruct Lisp_Bit_Vector
else
- if $imp == lrecord_buffer
+ if $imp == &lrecord_buffer
pstruct buffer
else
pstruct buffer
else
- if $imp == lrecord_char_table
+ if $imp == &lrecord_char_table
pstruct Lisp_Char_Table
else
pstruct Lisp_Char_Table
else
- if $imp == lrecord_char_table_entry
+ if $imp == &lrecord_char_table_entry
pstruct Lisp_Char_Table_Entry
else
pstruct Lisp_Char_Table_Entry
else
- if $imp == lrecord_charset
+ if $imp == &lrecord_charset
pstruct Lisp_Charset
else
pstruct Lisp_Charset
else
- if $imp == lrecord_coding_system
+ if $imp == &lrecord_coding_system
pstruct Lisp_Coding_System
else
pstruct Lisp_Coding_System
else
- if $imp == lrecord_color_instance
+ if $imp == &lrecord_color_instance
pstruct Lisp_Color_Instance
else
pstruct Lisp_Color_Instance
else
- if $imp == lrecord_command_builder
+ if $imp == &lrecord_command_builder
pstruct command_builder
else
pstruct command_builder
else
- if $imp == lrecord_compiled_function
+ if $imp == &lrecord_compiled_function
pstruct Lisp_Compiled_Function
else
pstruct Lisp_Compiled_Function
else
- if $imp == lrecord_console
+ if $imp == &lrecord_console
pstruct console
else
pstruct console
else
- if $imp == lrecord_database
+ if $imp == &lrecord_database
pstruct Lisp_Database
else
pstruct Lisp_Database
else
- if $imp == lrecord_device
+ if $imp == &lrecord_device
pstruct device
else
pstruct device
else
- if $imp == lrecord_event
+ if $imp == &lrecord_event
pstruct Lisp_Event
else
pstruct Lisp_Event
else
- if $imp == lrecord_extent
+ if $imp == &lrecord_extent
pstruct extent
else
pstruct extent
else
- if $imp == lrecord_extent_auxiliary
+ if $imp == &lrecord_extent_auxiliary
pstruct extent_auxiliary
else
pstruct extent_auxiliary
else
- if $imp == lrecord_extent_info
+ if $imp == &lrecord_extent_info
pstruct extent_info
else
pstruct extent_info
else
- if $imp == lrecord_face
+ if $imp == &lrecord_face
pstruct Lisp_Face
else
pstruct Lisp_Face
else
- if $imp == lrecord_float
+ if $imp == &lrecord_float
pstruct Lisp_Float
else
pstruct Lisp_Float
else
- if $imp == lrecord_font_instance
+ if $imp == &lrecord_font_instance
pstruct Lisp_Font_Instance
else
pstruct Lisp_Font_Instance
else
- if $imp == lrecord_frame
+ if $imp == &lrecord_frame
pstruct frame
else
pstruct frame
else
- if $imp == lrecord_glyph
+ if $imp == &lrecord_glyph
pstruct Lisp_Glyph
else
pstruct Lisp_Glyph
else
- if $imp == lrecord_hash_table
+ if $imp == &lrecord_hash_table
pstruct Lisp_Hash_Table
else
pstruct Lisp_Hash_Table
else
- if $imp == lrecord_image_instance
+ if $imp == &lrecord_image_instance
pstruct Lisp_Image_Instance
else
pstruct Lisp_Image_Instance
else
- if $imp == lrecord_keymap
+ if $imp == &lrecord_keymap
pstruct Lisp_Keymap
else
pstruct Lisp_Keymap
else
- if $imp == lrecord_lcrecord_list
+ if $imp == &lrecord_lcrecord_list
pstruct lcrecord_list
else
pstruct lcrecord_list
else
- if $imp == lrecord_lstream
+ if $imp == &lrecord_lstream
pstruct lstream
else
pstruct lstream
else
- if $imp == lrecord_marker
+ if $imp == &lrecord_marker
pstruct Lisp_Marker
else
pstruct Lisp_Marker
else
- if $imp == lrecord_opaque
+ if $imp == &lrecord_opaque
pstruct Lisp_Opaque
else
pstruct Lisp_Opaque
else
- if $imp == lrecord_opaque_list
+ if $imp == &lrecord_opaque_list
pstruct Lisp_Opaque_List
else
pstruct Lisp_Opaque_List
else
- if $imp == lrecord_popup_data
+ if $imp == &lrecord_popup_data
pstruct popup_data
else
pstruct popup_data
else
- if $imp == lrecord_process
+ if $imp == &lrecord_process
pstruct Lisp_Process
else
pstruct Lisp_Process
else
- if $imp == lrecord_range_table
+ if $imp == &lrecord_range_table
pstruct Lisp_Range_Table
else
pstruct Lisp_Range_Table
else
- if $imp == lrecord_specifier
+ if $imp == &lrecord_specifier
pstruct Lisp_Specifier
else
pstruct Lisp_Specifier
else
- if $imp == lrecord_subr
+ if $imp == &lrecord_subr
pstruct Lisp_Subr
else
pstruct Lisp_Subr
else
- if $imp == lrecord_symbol_value_buffer_local
+ if $imp == &lrecord_symbol_value_buffer_local
pstruct symbol_value_buffer_local
else
pstruct symbol_value_buffer_local
else
- if $imp == lrecord_symbol_value_forward
+ if $imp == &lrecord_symbol_value_forward
pstruct symbol_value_forward
else
pstruct symbol_value_forward
else
- if $imp == lrecord_symbol_value_lisp_magic
+ if $imp == &lrecord_symbol_value_lisp_magic
pstruct symbol_value_lisp_magic
else
pstruct symbol_value_lisp_magic
else
- if $imp == lrecord_symbol_value_varalias
+ if $imp == &lrecord_symbol_value_varalias
pstruct symbol_value_varalias
else
pstruct symbol_value_varalias
else
- if $imp == lrecord_toolbar_button
+ if $imp == &lrecord_toolbar_button
pstruct toolbar_button
else
pstruct toolbar_button
else
- if $imp == lrecord_tooltalk_message
+ if $imp == &lrecord_tooltalk_message
pstruct Lisp_Tooltalk_Message
else
pstruct Lisp_Tooltalk_Message
else
- if $imp == lrecord_tooltalk_pattern
+ if $imp == &lrecord_tooltalk_pattern
pstruct Lisp_Tooltalk_Pattern
else
pstruct Lisp_Tooltalk_Pattern
else
- if $imp == lrecord_weak_list
+ if $imp == &lrecord_weak_list
pstruct weak_list
else
pstruct weak_list
else
- if $imp == lrecord_window
+ if $imp == &lrecord_window
pstruct window
else
pstruct window
else
- if $imp == lrecord_window_configuration
+ if $imp == &lrecord_window_configuration
pstruct window_config
else
echo Unknown Lisp Object type\n
pstruct window_config
else
echo Unknown Lisp Object type\n