(FUNCTION_ARG): General PARALLEL instead of EXPR_LIST.

From-SVN: r12197

diff --git a/gcc/config/pa/pa.h b/gcc/config/pa/pa.h
index 2d0c812a345a3b89e2d14e290448731df9ba4d85..8179c6b2ce2ed1af75f48433f376bed59be7e8fe 100644 (file)
--- a/gcc/config/pa/pa.h
+++ b/gcc/config/pa/pa.h
@@ -887,7 +887,7 @@ struct hppa_args {int words, nargs_prototype, indirect; };
 
 
 /* Similar, but when scanning the definition of a procedure.  We always
-   set NARGS_PROTOTYPE large so we never return an EXPR_LIST.  */
+   set NARGS_PROTOTYPE large so we never return a PARALLEL.  */
 
 #define INIT_CUMULATIVE_INCOMING_ARGS(CUM,FNTYPE,IGNORE) \
   (CUM).words = 0,                             \
@@ -984,16 +984,23 @@ struct hppa_args {int words, nargs_prototype, indirect; };
                                                              (TYPE))))))\
    /* We are calling a non-prototyped function with floating point     \
       arguments using the portable conventions.  */                    \
-   : gen_rtx (EXPR_LIST, VOIDmode,                                     \
-             gen_rtx (REG, (MODE),                                     \
-                      (FUNCTION_ARG_SIZE ((MODE), (TYPE)) > 1          \
-                       ? ((CUM).words ? 38 : 34)                       \
-                       : (32 + 2 * (CUM).words))),                     \
-             gen_rtx (REG, (MODE),                                     \
-                      (FUNCTION_ARG_SIZE ((MODE), (TYPE)) > 1          \
-                       ? ((CUM).words ? 23 : 25)                       \
-                       : (27 - (CUM).words - FUNCTION_ARG_SIZE ((MODE),\
-                                                                (TYPE)))))) \
+   : gen_rtx (PARALLEL, (MODE),                                                \
+             gen_rtvec                                                 \
+             (2,                                                       \
+              gen_rtx (EXPR_LIST, VOIDmode,                            \
+                       gen_rtx (REG, (MODE),                           \
+                                (FUNCTION_ARG_SIZE ((MODE), (TYPE)) > 1 \
+                                 ? ((CUM).words ? 38 : 34)             \
+                                 : (32 + 2 * (CUM).words))),           \
+                       const0_rtx),                                    \
+              gen_rtx (EXPR_LIST, VOIDmode,                            \
+                       gen_rtx (REG, (MODE),                           \
+                                (FUNCTION_ARG_SIZE ((MODE), (TYPE)) > 1 \
+                                 ? ((CUM).words ? 23 : 25)             \
+                                 : (27 - (CUM).words -                 \
+                                    FUNCTION_ARG_SIZE ((MODE),         \
+                                                       (TYPE))))),     \
+                       const0_rtx)))                                   \
   /* Pass this parameter in the stack.  */                             \
   : 0)