From 5222ca60be5bf56265a53aad3df6303de53fd0af Mon Sep 17 00:00:00 2001 From: Per Bothner Date: Sun, 12 Feb 1995 18:51:42 +0000 Subject: * valops.c (value_arg_coerce): Now takes param_type argument. (call_function_by_hand): Convert arguments with value_arg_coerce early, and overwrite original args with converted args. No longer need multiple calls to value_arg_coerce. (value_arg_push): Removed. * hppa-tdep.c (hppa_push_arguments): No longer call value_arg_coerce. * mips-tdep.c (mips_push_arguments): Likewise. * alpha-tdep.c (alpha_push_arguments): Likewise. * rs6000-tdep.c (push_arguments, ran_out_of_registers_for_arguments): Likewise. * value.h (value_arg_coerce): Remove declaration. (It's now static.) * valops.c (value_cast): Do COERCE_VARYING_ARRAY after COERCE_REF. --- gdb/rs6000-tdep.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'gdb/rs6000-tdep.c') diff --git a/gdb/rs6000-tdep.c b/gdb/rs6000-tdep.c index dad2211..6cac92e 100644 --- a/gdb/rs6000-tdep.c +++ b/gdb/rs6000-tdep.c @@ -731,7 +731,7 @@ push_arguments (nargs, args, sp, struct_return, struct_addr) for (argno=0, argbytes=0; argno < nargs && ii<8; ++ii) { - arg = value_arg_coerce (args[argno]); + arg = args[argno]; len = TYPE_LENGTH (VALUE_TYPE (arg)); if (TYPE_CODE (VALUE_TYPE (arg)) == TYPE_CODE_FLT) { @@ -796,7 +796,7 @@ ran_out_of_registers_for_arguments: jj = argno; for (; jj < nargs; ++jj) { - val = value_arg_coerce (args[jj]); + val = args[jj]; space += ((TYPE_LENGTH (VALUE_TYPE (val))) + 3) & -4; } @@ -824,7 +824,7 @@ ran_out_of_registers_for_arguments: /* push the rest of the arguments into stack. */ for (; argno < nargs; ++argno) { - arg = value_arg_coerce (args[argno]); + arg = args[argno]; len = TYPE_LENGTH (VALUE_TYPE (arg)); -- cgit v1.1