From 0ede8ecaa06c0d3981bae4bd9015f19bcad25e79 Mon Sep 17 00:00:00 2001 From: Richard Henderson Date: Mon, 2 Jun 2003 16:17:54 +0000 Subject: [PATCH] * alpha-tdep.c (alpha_push_dummy_call): Handle ABI mandated sign-extension of 32-bit values. (alpha_store_return_value): Similarly. --- gdb/ChangeLog | 4 ++++ gdb/alpha-tdep.c | 15 +++++++++++++-- 2 files changed, 17 insertions(+), 2 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 2f337d9ff3e..886ffae8d09 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,9 @@ 2003-06-02 Richard Henderson + * alpha-tdep.c (alpha_push_dummy_call): Handle ABI mandated + sign-extension of 32-bit values. + (alpha_store_return_value): Similarly. + * alpha-tdep.c (alpha_push_dummy_call): Handle COMPLEX types. (alpha_extract_return_value): Likewise. (alpha_store_return_value): Likewise. diff --git a/gdb/alpha-tdep.c b/gdb/alpha-tdep.c index ff5fe7a6c1e..8dd2d0d49c0 100644 --- a/gdb/alpha-tdep.c +++ b/gdb/alpha-tdep.c @@ -276,9 +276,16 @@ alpha_push_dummy_call (struct gdbarch *gdbarch, CORE_ADDR func_addr, case TYPE_CODE_CHAR: case TYPE_CODE_RANGE: case TYPE_CODE_ENUM: - if (TYPE_LENGTH (arg_type) < TYPE_LENGTH (builtin_type_long)) + if (TYPE_LENGTH (arg_type) == 4) { - arg_type = builtin_type_long; + /* 32-bit values must be sign-extended to 64 bits + even if the base data type is unsigned. */ + arg_type = builtin_type_int32; + arg = value_cast (arg_type, arg); + } + if (TYPE_LENGTH (arg_type) < ALPHA_REGISTER_SIZE) + { + arg_type = builtin_type_int64; arg = value_cast (arg_type, arg); } break; @@ -541,6 +548,10 @@ alpha_store_return_value (struct type *valtype, struct regcache *regcache, default: /* Assume everything else degenerates to an integer. */ + /* 32-bit values must be sign-extended to 64 bits + even if the base data type is unsigned. */ + if (length == 4) + valtype = builtin_type_int32; l = unpack_long (valtype, valbuf); regcache_cooked_write_unsigned (regcache, ALPHA_V0_REGNUM, l); break; -- 2.30.2