From dfeddf46e3796bb5cf57c0650dd3f1463e25a260 Mon Sep 17 00:00:00 2001
From: Jeff Law <law@gcc.gnu.org>
Date: Sun, 22 Aug 1993 21:38:16 -0600
Subject: * pa.md (untyped_call): New define_expand.

From-SVN: r5192
---
 gcc/config/pa/pa.md | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

(limited to 'gcc')

diff --git a/gcc/config/pa/pa.md b/gcc/config/pa/pa.md
index 732ec4e..ad20969 100644
--- a/gcc/config/pa/pa.md
+++ b/gcc/config/pa/pa.md
@@ -2841,6 +2841,34 @@
  [(set_attr "type" "dyncall")
   (set_attr "length" "12")])
 
+;; Call subroutine returning any type.
+
+(define_expand "untyped_call"
+  [(parallel [(call (match_operand 0 "" "")
+		    (const_int 0))
+	      (match_operand 1 "" "")
+	      (match_operand 2 "" "")])]
+  ""
+  "
+{
+  int i;
+
+  emit_call_insn (gen_call (operands[0], const0_rtx));
+
+  for (i = 0; i < XVECLEN (operands[2], 0); i++)
+    {
+      rtx set = XVECEXP (operands[2], 0, i);
+      emit_move_insn (SET_DEST (set), SET_SRC (set));
+    }
+
+  /* The optimizer does not know that the call sets the function value
+     registers we stored in the result block.  We avoid problems by
+     claiming that all hard registers are used and clobbered at this
+     point.  */
+  emit_insn (gen_blockage ());
+
+  DONE;
+}")
 (define_insn "nop"
   [(const_int 0)]
   ""
-- 
cgit v1.1