From: Richard Henderson <rth@redhat.com>
Date: Mon, 2 Jun 2003 16:17:54 +0000 (+0000)
Subject:         * alpha-tdep.c (alpha_push_dummy_call): Handle ABI mandated
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0ede8ecaa06c0d3981bae4bd9015f19bcad25e79;p=binutils-gdb.git

    * alpha-tdep.c (alpha_push_dummy_call): Handle ABI mandated
        sign-extension of 32-bit values.
        (alpha_store_return_value): Similarly.
---

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  <rth@redhat.com>
 
+        * 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;