diff options
Diffstat (limited to 'gdb/guile')
| -rw-r--r-- | gdb/guile/scm-type.c | 2 | ||||
| -rw-r--r-- | gdb/guile/scm-value.c | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/gdb/guile/scm-type.c b/gdb/guile/scm-type.c index 78b5863..45b0750 100644 --- a/gdb/guile/scm-type.c +++ b/gdb/guile/scm-type.c @@ -1199,7 +1199,7 @@ gdbscm_field_baseclass_p (SCM self) struct field *field = tyscm_field_smob_to_field (f_smob); struct type *type = tyscm_field_smob_containing_type (f_smob); - if (TYPE_CODE (type) == TYPE_CODE_CLASS) + if (TYPE_CODE (type) == TYPE_CODE_STRUCT) return scm_from_bool (f_smob->field_num < TYPE_N_BASECLASSES (type)); return SCM_BOOL_F; } diff --git a/gdb/guile/scm-value.c b/gdb/guile/scm-value.c index 5d88059..dc70e2c 100644 --- a/gdb/guile/scm-value.c +++ b/gdb/guile/scm-value.c @@ -565,7 +565,7 @@ gdbscm_value_dynamic_type (SCM self) if (((TYPE_CODE (type) == TYPE_CODE_PTR) || (TYPE_CODE (type) == TYPE_CODE_REF)) - && (TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_CLASS)) + && (TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_STRUCT)) { struct value *target; int was_pointer = TYPE_CODE (type) == TYPE_CODE_PTR; @@ -584,7 +584,7 @@ gdbscm_value_dynamic_type (SCM self) type = lookup_reference_type (type); } } - else if (TYPE_CODE (type) == TYPE_CODE_CLASS) + else if (TYPE_CODE (type) == TYPE_CODE_STRUCT) type = value_rtti_type (value, NULL, NULL, NULL); else { |