OSDN Git Service

* pa.c (output_indirect_call): Only use %r2 as the link register in
authordanglin <danglin@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 10 Jul 2004 20:15:44 +0000 (20:15 +0000)
committerdanglin <danglin@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 10 Jul 2004 20:15:44 +0000 (20:15 +0000)
indirect calls with the long PA 2.0 pc-relative branch.

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

gcc/ChangeLog
gcc/config/pa/pa.c

index 3ce75e9..8089a55 100644 (file)
@@ -1,3 +1,8 @@
+2004-07-10  John David Anglin  <dave.anglin@nrc-cnrc.gc.ca>
+
+       * pa.c (output_indirect_call): Only use %r2 as the link register in
+       indirect calls with the long PA 2.0 pc-relative branch.
+
 2004-07-10  Daniel Jacobowitz  <dan@debian.org>
 
        * config/i386/i386.c (override_options): Pick a 64-bit CPU
index da065ce..ee781af 100644 (file)
@@ -7545,7 +7545,15 @@ output_indirect_call (rtx insn, rtx call_dest)
      No need to check target flags as the length uniquely identifies
      the remaining cases.  */
   if (attr_length_indirect_call (insn) == 8)
-    return ".CALL\tARGW0=GR\n\t{bl|b,l} $$dyncall,%%r2\n\tcopy %%r2,%%r31";
+    {
+      /* The HP linker substitutes a BLE for millicode calls using
+        the short PIC PCREL form.  Thus, we must use %r31 as the
+        link register when generating PA 1.x code.  */
+      if (TARGET_PA_20)
+       return ".CALL\tARGW0=GR\n\tb,l $$dyncall,%%r2\n\tcopy %%r2,%%r31";
+      else
+       return ".CALL\tARGW0=GR\n\tbl $$dyncall,%%r31\n\tcopy %%r31,%%r2";
+    }
 
   /* Long millicode call, but we are not generating PIC or portable runtime
      code.  */