diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 7fba7a8d1f9..f468786bc38 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+Wed Jul  1 04:22:23 1998  Richard Henderson  <rth@cygnus.com>
+
+	* sparc.c (function_arg_record_value): Take a MODE arg with which to
+	create the PARALLEL.  Update all callers.
+
 Wed Jul  1 04:10:35 1998  Richard Henderson  <rth@cygnus.com>
 
 	* expr.c (expand_assignment, store_constructor, expand_expr): Use
diff --git a/gcc/config/sparc/sparc.c b/gcc/config/sparc/sparc.c
index 343fac88e5e..92b2049eb8a 100644
--- a/gcc/config/sparc/sparc.c
+++ b/gcc/config/sparc/sparc.c
@@ -4223,8 +4223,9 @@ function_arg_record_value_2 (type, startbitpos, parms)
 }
 
 static rtx
-function_arg_record_value (type, slotno, named, regbase)
+function_arg_record_value (type, mode, slotno, named, regbase)
      tree type;
+     enum machine_mode mode;
      int slotno, named, regbase;
 {
   HOST_WIDE_INT typesize = int_size_in_bytes (type);
@@ -4266,7 +4267,7 @@ function_arg_record_value (type, slotno, named, regbase)
 	     anyway so the rest of gcc doesn't go nuts.  Returning a PARALLEL
 	     leads to breakage due to the fact that there are zero bytes to
 	     load.  */
-	  return gen_rtx_REG (DImode, regbase);
+	  return gen_rtx_REG (mode, regbase);
 	}
       else
 	{
@@ -4280,7 +4281,7 @@ function_arg_record_value (type, slotno, named, regbase)
   if (nregs == 0)
     abort();
 
-  parms.ret = gen_rtx_PARALLEL (VOIDmode, rtvec_alloc (nregs));
+  parms.ret = gen_rtx_PARALLEL (mode, rtvec_alloc (nregs));
 
   /* Fill in the entries.  */
   parms.nregs = 0;
@@ -4412,7 +4413,7 @@ function_arg (cum, mode, type, named, incoming_p)
       if (int_size_in_bytes (type) > 16)
 	abort (); /* shouldn't get here */
 
-      return function_arg_record_value (type, slotno, named, regbase);
+      return function_arg_record_value (type, mode, slotno, named, regbase);
     }
   else if (type && TREE_CODE (type) == UNION_TYPE)
     {
@@ -4642,7 +4643,7 @@ function_value (type, mode, incoming_p)
 	  if (int_size_in_bytes (type) > 32)
 	    abort (); /* shouldn't get here */
 
-	  return function_arg_record_value (type, 0, 1, regbase);
+	  return function_arg_record_value (type, mode, 0, 1, regbase);
 	}
       else if (TREE_CODE (type) == UNION_TYPE)
 	{