* calls.c (emit_library_call): Do not abort if FUNCTION_ARG

        returns a PARALLEL.  Use emit_group_load and use_group_regs
        as needed.
        (emit_library_call_value): Similarly.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@32267 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 1d3567e..ccf6ea4 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -5,6 +5,11 @@ Tue Feb 29 14:07:04 2000  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
 
 Tue Feb 29 10:45:59 2000  Jeffrey A Law  (law@cygnus.com)
 
+       * calls.c (emit_library_call): Do not abort if FUNCTION_ARG
+       returns a PARALLEL.  Use emit_group_load and use_group_regs
+       as needed.  
+       (emit_library_call_value): Similarly.
+
        * pa/t-pa: Use quadlib.c instead of quadlib.asm.
        * pa/quadlib.asm: Remove.
        * pa/quadlib.c: New file.

diff --git a/gcc/calls.c b/gcc/calls.c
index dfa52e0..c4e6039 100644 (file)
--- a/gcc/calls.c
+++ b/gcc/calls.c
@@ -2804,8 +2804,7 @@ emit_library_call VPARAMS((rtx orgfun, int no_queue, enum machine_mode outmode,
       argvec[count].mode = mode;
 
       argvec[count].reg = FUNCTION_ARG (args_so_far, mode, NULL_TREE, 1);
-      if (argvec[count].reg && GET_CODE (argvec[count].reg) == PARALLEL)
-       abort ();
+
 #ifdef FUNCTION_ARG_PARTIAL_NREGS
       argvec[count].partial
        = FUNCTION_ARG_PARTIAL_NREGS (args_so_far, mode, NULL_TREE, 1);
@@ -3085,8 +3084,15 @@ emit_library_call VPARAMS((rtx orgfun, int no_queue, enum machine_mode outmode,
       rtx reg = argvec[argnum].reg;
       int partial = argvec[argnum].partial;
 
-      if (reg != 0 && partial == 0)
+      /* Handle calls that pass values in multiple non-contiguous
+        locations.  The PA64 has examples of this for library calls.  */
+      if (GET_CODE (reg) == PARALLEL)
+       emit_group_load (reg, val,
+                        GET_MODE_SIZE (GET_MODE (val)),
+                        GET_MODE_ALIGNMENT (GET_MODE (val)));
+      else if (reg != 0 && partial == 0)
        emit_move_insn (reg, val);
+
       NO_DEFER_POP;
     }
 
@@ -3096,8 +3102,12 @@ emit_library_call VPARAMS((rtx orgfun, int no_queue, enum machine_mode outmode,
 
   /* Any regs containing parms remain in use through the call.  */
   for (count = 0; count < nargs; count++)
-    if (argvec[count].reg != 0)
-       use_reg (&call_fusage, argvec[count].reg);
+    {
+      if (GET_CODE (argvec[count].reg) == PARALLEL)
+       use_group_regs (&call_fusage, argvec[count].reg);
+      else if (argvec[count].reg != 0)
+       use_reg (&call_fusage, argvec[count].reg);
+    }
 
   /* Don't allow popping to be deferred, since then
      cse'ing of library calls could delete a call and leave the pop.  */
@@ -3382,8 +3392,7 @@ emit_library_call_value VPARAMS((rtx orgfun, rtx value, int no_queue,
       argvec[count].mode = mode;
 
       argvec[count].reg = FUNCTION_ARG (args_so_far, mode, NULL_TREE, 1);
-      if (argvec[count].reg && GET_CODE (argvec[count].reg) == PARALLEL)
-       abort ();
+
 #ifdef FUNCTION_ARG_PARTIAL_NREGS
       argvec[count].partial
        = FUNCTION_ARG_PARTIAL_NREGS (args_so_far, mode, NULL_TREE, 1);
@@ -3662,8 +3671,15 @@ emit_library_call_value VPARAMS((rtx orgfun, rtx value, int no_queue,
       rtx reg = argvec[argnum].reg;
       int partial = argvec[argnum].partial;
 
-      if (reg != 0 && partial == 0)
+      /* Handle calls that pass values in multiple non-contiguous
+        locations.  The PA64 has examples of this for library calls.  */
+      if (GET_CODE (reg) == PARALLEL)
+       emit_group_load (reg, val,
+                        GET_MODE_SIZE (GET_MODE (val)),
+                        GET_MODE_ALIGNMENT (GET_MODE (val)));
+      else if (reg != 0 && partial == 0)
        emit_move_insn (reg, val);
+
       NO_DEFER_POP;
     }
 
@@ -3675,8 +3691,12 @@ emit_library_call_value VPARAMS((rtx orgfun, rtx value, int no_queue,
 
   /* Any regs containing parms remain in use through the call.  */
   for (count = 0; count < nargs; count++)
-    if (argvec[count].reg != 0)
-       use_reg (&call_fusage, argvec[count].reg);
+    {
+      if (GET_CODE (argvec[count].reg) == PARALLEL)
+       use_group_regs (&call_fusage, argvec[count].reg);
+      else if (argvec[count].reg != 0)
+       use_reg (&call_fusage, argvec[count].reg);
+    }
 
   /* Pass the function the address in which to return a structure value.  */
   if (mem_value != 0 && struct_value_rtx != 0 && ! pcc_struct_value)