HS-ABI: select between keeping the order of the func arguments or the packed version

Author: Claudiu Zissulescu

gcc/ChangeLog.ARC

@@ -1,3 +1,10 @@
+2013-07-23 Claudiu Zissulescu <[email protected]>
+
+	* config/arc/arc-opts.h (arc_abi_type): Define.
+	* config/arc/arc.opt (-mabi=): New option.
+	* config/arc/arc.c (arc_setup_incoming_varargs): Clean up.
+	(arc_function_args_impl): Select ABI std/pack.
+
 2013-07-15 Claudiu Zissulescu <[email protected]>
 
 	* config/arc/arc.md (EXPAND mulsidi3): Use separate

gcc/config/arc/arc-opts.h

@@ -38,3 +38,10 @@ enum processor_type
 #define FPU_DD    0x0080 /* Double precision floating point sqrt and div operations. */
 
 #define FPX_DP    0x0100 /* Double precision floating point assist operations. */
+
+enum arc_abi_type
+  {
+    ARC_ABI_STD,
+    ARC_ABI_PACK
+  };
+

gcc/config/arc/arc.c

@@ -1862,7 +1862,6 @@ arc_setup_incoming_varargs (cumulative_args_t args_so_far,
   int first_anon_arg;
   CUMULATIVE_ARGS next_cum;
 
-
   if (TARGET_HS)
     {
       *pretend_size = 0;
@@ -1872,10 +1871,10 @@ arc_setup_incoming_varargs (cumulative_args_t args_so_far,
   /* We must treat `__builtin_va_alist' as an anonymous arg.  */
 
   next_cum = *get_cumulative_args (args_so_far);
-  arc_function_arg_advance (pack_cumulative_args (&next_cum), mode, type, 1);
+  arc_function_arg_advance (pack_cumulative_args (&next_cum), mode, type, true);
   first_anon_arg = next_cum.arg_num;
 
-  if (first_anon_arg < MAX_ARC_PARM_REGS)
+  if (FUNCTION_ARG_REGNO_P (first_anon_arg))
     {
       /* First anonymous (unnamed) argument is in a reg.  */
 
@@ -5250,10 +5249,10 @@ static rtx
 arc_function_args_impl (CUMULATIVE_ARGS *cum,
 			enum machine_mode mode,
 			const_tree type,
-			int named,
+			bool named,
 			bool advance)
 {
-  int reg_idx  = 0;
+  int lb, reg_idx  = 0;
   int reg_location = 0;
   int nregs;
   bool found = false;
@@ -5297,7 +5296,8 @@ arc_function_args_impl (CUMULATIVE_ARGS *cum,
       if (advance)
 	{
 	  /* Update CUMULATIVE_ARGS if we advance. */
-	  for (reg_idx = reg_location; (reg_idx < (reg_location + nregs))
+	  lb = (arc_abi == ARC_ABI_PACK) ? reg_location : 0;
+	  for (reg_idx = lb; (reg_idx < (reg_location + nregs))
 		 && FUNCTION_ARG_REGNO_P (reg_idx); reg_idx++)
 	    {
 	      cum->avail[reg_idx] = false;

gcc/config/arc/arc.opt

@@ -515,3 +515,17 @@ Controls the .di instruction extension of atomic instructions. When enabled, the
 mirq-ctrl-saved=
 Target RejectNegative Joined Var(arc_deferred_options) Defer
 Specifies the registers that the processor saves on an interrupt entry and exit.
+
+mabi=
+Target RejectNegative Joined Var(arc_abi) Enum(arc_abi_type) Init(ARC_ABI_STD)
+Specify the desired ABI used for ARC HS processors. Variants can be std or pack.
+
+Enum
+Name(arc_abi_type) Type(enum arc_abi_type)
+
+EnumValue
+Enum(arc_abi_type) String(std) Value(ARC_ABI_STD)
+
+EnumValue
+Enum(arc_abi_type) String(pack) Value(ARC_ABI_PACK)
+