diff options
Diffstat (limited to 'gdb/guile')
-rw-r--r-- | gdb/guile/scm-math.c | 8 | ||||
-rw-r--r-- | gdb/guile/scm-value.c | 10 |
2 files changed, 9 insertions, 9 deletions
diff --git a/gdb/guile/scm-math.c b/gdb/guile/scm-math.c index 4b6bb5d..5fbe0eb 100644 --- a/gdb/guile/scm-math.c +++ b/gdb/guile/scm-math.c @@ -186,9 +186,9 @@ vlscm_binop (enum valscm_binary_opcode opcode, SCM x, SCM y, struct type *ltype = value_type (arg1); struct type *rtype = value_type (arg2); - CHECK_TYPEDEF (ltype); + ltype = check_typedef (ltype); ltype = STRIP_REFERENCE (ltype); - CHECK_TYPEDEF (rtype); + rtype = check_typedef (rtype); rtype = STRIP_REFERENCE (rtype); if (TYPE_CODE (ltype) == TYPE_CODE_PTR @@ -206,9 +206,9 @@ vlscm_binop (enum valscm_binary_opcode opcode, SCM x, SCM y, struct type *ltype = value_type (arg1); struct type *rtype = value_type (arg2); - CHECK_TYPEDEF (ltype); + ltype = check_typedef (ltype); ltype = STRIP_REFERENCE (ltype); - CHECK_TYPEDEF (rtype); + rtype = check_typedef (rtype); rtype = STRIP_REFERENCE (rtype); if (TYPE_CODE (ltype) == TYPE_CODE_PTR diff --git a/gdb/guile/scm-value.c b/gdb/guile/scm-value.c index 3789c38..d26ab0d 100644 --- a/gdb/guile/scm-value.c +++ b/gdb/guile/scm-value.c @@ -581,7 +581,7 @@ gdbscm_value_dynamic_type (SCM self) = make_cleanup_value_free_to_mark (value_mark ()); type = value_type (value); - CHECK_TYPEDEF (type); + type = check_typedef (type); if (((TYPE_CODE (type) == TYPE_CODE_PTR) || (TYPE_CODE (type) == TYPE_CODE_REF)) @@ -906,7 +906,7 @@ gdbscm_value_to_bytevector (SCM self) TRY { - CHECK_TYPEDEF (type); + type = check_typedef (type); length = TYPE_LENGTH (type); contents = value_contents (value); } @@ -950,7 +950,7 @@ gdbscm_value_to_bool (SCM self) TRY { - CHECK_TYPEDEF (type); + type = check_typedef (type); } CATCH (except, RETURN_MASK_ALL) { @@ -993,7 +993,7 @@ gdbscm_value_to_integer (SCM self) TRY { - CHECK_TYPEDEF (type); + type = check_typedef (type); } CATCH (except, RETURN_MASK_ALL) { @@ -1039,7 +1039,7 @@ gdbscm_value_to_real (SCM self) TRY { - CHECK_TYPEDEF (type); + type = check_typedef (type); } CATCH (except, RETURN_MASK_ALL) { |