(expand_call): Use new FUNCTION_ARG_CALLEE_COPIES macro.

From-SVN: r4183

gcc/calls.c

@@ -915,8 +915,24 @@ expand_call (exp, target, ignore)
       if (FUNCTION_ARG_PASS_BY_REFERENCE (args_so_far, TYPE_MODE (type), type,
 					  argpos < n_named_args))
 	{
-	  /* We make a copy of the object and pass the address to the function
-	     being called.  */
+#ifdef FUNCTION_ARG_CALLEE_COPIES
+	  if (FUNCTION_ARG_CALLEE_COPIES (args_so_far, TYPE_MODE (type), type,
+					  argpos < n_named_args)
+	      /* If it's in a register, we must make a copy of it too.  */
+	      /* ??? Is this a sufficient test?  Is there a better one? */
+	      && !(TREE_CODE (args[i].tree_value) == VAR_DECL
+		   && REG_P (DECL_RTL (args[i].tree_value))))
+	    {
+	      args[i].tree_value = build1 (ADDR_EXPR,
+					   build_pointer_type (type),
+					   args[i].tree_value);
+	      type = build_pointer_type (type);
+	    }
+	  else
+#endif
+	    {
+	      /* We make a copy of the object and pass the address to the
+		 function being called.  */
 	      rtx copy;
 
 	      if (TYPE_SIZE (type) == 0
@@ -934,7 +950,8 @@ expand_call (exp, target, ignore)
 		    }
 
 		  copy = gen_rtx (MEM, BLKmode,
-			      allocate_dynamic_stack_space (size_rtx, NULL_RTX,
+				  allocate_dynamic_stack_space (size_rtx,
+								NULL_RTX,
 								TYPE_ALIGN (type)));
 		}
 	      else
@@ -945,11 +962,13 @@ expand_call (exp, target, ignore)
 
 	      store_expr (args[i].tree_value, copy, 0);
 
-	  args[i].tree_value = build1 (ADDR_EXPR, build_pointer_type (type),
+	      args[i].tree_value = build1 (ADDR_EXPR,
+					   build_pointer_type (type),
 					   make_tree (type, copy));
 	      type = build_pointer_type (type);
 	    }
-#endif
+	}
+#endif /* FUNCTION_ARG_PASS_BY_REFERENCE */
 
       mode = TYPE_MODE (type);