Changeset 1593 for branches/GNU/src/gcc/gcc/config/pa/pa.c

Timestamp:

Nov 3, 2004, 7:07:22 AM (21 years ago)

Author:

bird

Message:

GCC v3.3.5 - official sources.

File:

• branches/GNU/src/gcc/gcc/config/pa/pa.c (modified) (4 diffs, 1 prop)

branches/GNU/src/gcc/gcc/config/pa/pa.c

@@ -1406 +1406 @@
 
   /* Handle secondary reloads for loads/stores of FP registers from
-     REG+D addresses where D does not fit in 5 bits, including
+     REG+D addresses where D does not fit in 5 bits, including
      (subreg (mem (addr))) cases.  */
   if (fp_reg_operand (operand0, mode)
       && ((GET_CODE (operand1) == MEM
-           && ! memory_address_p (DFmode, XEXP (operand1, 0)))
+           && !memory_address_p ((GET_MODE_SIZE (mode) == 4 ? SFmode : DFmode),
+                                 XEXP (operand1, 0)))
           || ((GET_CODE (operand1) == SUBREG
                && GET_CODE (XEXP (operand1, 0)) == MEM
-               && !memory_address_p (DFmode, XEXP (XEXP (operand1, 0), 0)))))
+               && !memory_address_p ((GET_MODE_SIZE (mode) == 4
+                                      ? SFmode : DFmode),
+                                     XEXP (XEXP (operand1, 0), 0)))))
       && scratch_reg)
     {
@@ -1442 +1445 @@
   else if (fp_reg_operand (operand1, mode)
            && ((GET_CODE (operand0) == MEM
-                && ! memory_address_p (DFmode, XEXP (operand0, 0)))
+                && !memory_address_p ((GET_MODE_SIZE (mode) == 4
+                                       ? SFmode : DFmode),
+                                      XEXP (operand0, 0)))
                || ((GET_CODE (operand0) == SUBREG)
                    && GET_CODE (XEXP (operand0, 0)) == MEM
-                   && !memory_address_p (DFmode, XEXP (XEXP (operand0, 0), 0))))
+                   && !memory_address_p ((GET_MODE_SIZE (mode) == 4
+                                          ? SFmode : DFmode),
+                                         XEXP (XEXP (operand0, 0), 0))))
            && scratch_reg)
     {
@@ -1711 +1718 @@
                   operands[1] = legitimize_pic_address (XEXP (operands[1], 0),
                                                         mode, temp);
+
                   emit_move_sequence (operands, mode, temp);
                 }
@@ -6946 +6954 @@
      the remaining cases.  */
   if (attr_length_indirect_call (insn) == 8)
-    return ".CALL\tARGW0=GR\n\t{bl|b,l} $$dyncall,%%r31\n\tcopy %%r31,%%r2";
+    {
+      /* 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