From: Torbjorn Granlund <tege@gnu.org>
Date: Sat, 28 May 1994 10:25:01 +0000 (+0000)
Subject: (call): Force address into register in non-symbol case.
X-Git-Tag: misc/cutover-egcs-0~6563
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7d558bfe5f65554ad87d913129c8d3989f1d117d;p=thirdparty%2Fgcc.git

(call): Force address into register in non-symbol case.

(call_value): Likewise.

From-SVN: r7380
---

diff --git a/gcc/config/pa/pa.md b/gcc/config/pa/pa.md
index 8d8c236b5f99..96dd1bb47ed4 100644
--- a/gcc/config/pa/pa.md
+++ b/gcc/config/pa/pa.md
@@ -3025,7 +3025,8 @@
   if (GET_CODE (op) == SYMBOL_REF)
     emit_call_insn (gen_call_internal_symref (op, operands[1]));
   else
-    emit_call_insn (gen_call_internal_reg (op, operands[1]));
+    emit_call_insn (gen_call_internal_reg (force_reg (SImode, op),
+					   operands[1]));
 
   if (flag_pic)
     {
@@ -3091,7 +3092,9 @@
     emit_call_insn (gen_call_value_internal_symref (operands[0], op,
 						    operands[2]));
   else
-    emit_call_insn (gen_call_value_internal_reg (operands[0], op, operands[2]));
+    emit_call_insn (gen_call_value_internal_reg (operands[0],
+						 force_reg (SImode, op),
+						 operands[2]));
 
   if (flag_pic)
     {