rs6000.md (load_toc_v4_PIC_1): Use preferred form for addressibility.

        * config/rs6000/rs6000.md (load_toc_v4_PIC_1): Use preferred form
        for addressibility.
        (load_toc_v4_PIC_1b): Same.

Co-Authored-By: Torbjorn Granlund <tege@swox.com>

From-SVN: r58655

gcc/ChangeLog

+2002-10-30  David Edelsohn  <edelsohn@gnu.org>
+	    Torbjorn Granlund  <tege@swox.com>
+
+	* config/rs6000/rs6000.md (load_toc_v4_PIC_1): Use preferred form
+	for addressibility.
+	(load_toc_v4_PIC_1b): Same.
+
 2002-10-30  Kazu Hirata  <kazu@cs.umass.edu>
 
 	* config/h8300/h8300.c (h8300_eightbit_constant_address_p):

gcc/config/rs6000/rs6000.md

@@ -10272,7 +10272,7 @@
 	(match_operand:SI 1 "immediate_operand" "s"))
    (unspec [(match_dup 1)] 7)]
   "TARGET_ELF && DEFAULT_ABI != ABI_AIX && flag_pic == 2"
-  "bl %1\\n%1:"
+  "bcl 20,31,%1\\n%1:"
   [(set_attr "type" "branch")
    (set_attr "length" "4")])
 
@@ -10281,7 +10281,7 @@
 	(match_operand:SI 1 "immediate_operand" "s"))
    (unspec [(match_dup 1) (match_operand 2 "immediate_operand" "s")] 6)]
   "TARGET_ELF && DEFAULT_ABI != ABI_AIX && flag_pic == 2"
-  "bl %1\\n\\t.long %2-%1+4\\n%1:"
+  "bcl 20,31,%1\\n\\t.long %2-%1+4\\n%1:"
   [(set_attr "type" "branch")
    (set_attr "length" "8")])