diff options
author | Tom Tromey <tom@tromey.com> | 2023-01-31 07:52:09 -0700 |
---|---|---|
committer | Tom Tromey <tom@tromey.com> | 2023-02-13 15:21:06 -0700 |
commit | d0c9791728caa0d3b3270a997c7fd97919976c97 (patch) | |
tree | 1753b7232efa89e05696d4289d60ad019fc161e4 /gdb/guile/scm-math.c | |
parent | 7cf57bc5be656c62cc6b80280a9eddad2b8ded3f (diff) | |
download | binutils-d0c9791728caa0d3b3270a997c7fd97919976c97.zip binutils-d0c9791728caa0d3b3270a997c7fd97919976c97.tar.gz binutils-d0c9791728caa0d3b3270a997c7fd97919976c97.tar.bz2 |
Turn value_type into method
This changes value_type to be a method of value. Much of this patch
was written by script.
Approved-By: Simon Marchi <simon.marchi@efficios.com>
Diffstat (limited to 'gdb/guile/scm-math.c')
-rw-r--r-- | gdb/guile/scm-math.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gdb/guile/scm-math.c b/gdb/guile/scm-math.c index 26019b4..af472c1 100644 --- a/gdb/guile/scm-math.c +++ b/gdb/guile/scm-math.c @@ -109,7 +109,7 @@ vlscm_unop_gdbthrow (enum valscm_unary_opcode opcode, SCM x, res_val = arg1; break; case VALSCM_ABS: - if (value_less (arg1, value_zero (value_type (arg1), not_lval))) + if (value_less (arg1, value_zero (arg1->type (), not_lval))) res_val = value_neg (arg1); else res_val = arg1; @@ -160,8 +160,8 @@ vlscm_binop_gdbthrow (enum valscm_binary_opcode opcode, SCM x, SCM y, { case VALSCM_ADD: { - struct type *ltype = value_type (arg1); - struct type *rtype = value_type (arg2); + struct type *ltype = arg1->type (); + struct type *rtype = arg2->type (); ltype = check_typedef (ltype); ltype = STRIP_REFERENCE (ltype); @@ -180,8 +180,8 @@ vlscm_binop_gdbthrow (enum valscm_binary_opcode opcode, SCM x, SCM y, break; case VALSCM_SUB: { - struct type *ltype = value_type (arg1); - struct type *rtype = value_type (arg2); + struct type *ltype = arg1->type (); + struct type *rtype = arg2->type (); ltype = check_typedef (ltype); ltype = STRIP_REFERENCE (ltype); |