s390.md ("literal_pool_31"): Output pool anchor label even if pool empty when generating PIC.

	* config/s390/s390.md ("literal_pool_31"): Output pool anchor
	label even if pool empty when generating PIC.
	("literal_pool_31", "literal_pool_64"): Coding style cleanup.

From-SVN: r64981

gcc/ChangeLog

+2003-03-28  Ulrich Weigand  <uweigand@de.ibm.com>
+
+	* config/s390/s390.md ("literal_pool_31"): Output pool anchor 
+	label even if pool empty when generating PIC.
+	("literal_pool_31", "literal_pool_64"): Coding style cleanup.
+
 2003-03-28  Kazu Hirata  <kazu@cs.umass.edu>,
 	    Dhananjay Deshpande  <dhananjayd@kpit.com>
 

gcc/config/s390/s390.md

@@ -7031,14 +7031,21 @@
         (label_ref (match_operand 1 "" "")))	
    (use (label_ref (match_operand 2 "" "")))]
   ""
-  "*
 {
-   if (s390_nr_constants) {
-     output_asm_insn (\"bras\\t%0,%2\", operands);
-     s390_output_constant_pool (operands[1], operands[2]);
-   }
-   return \"\";	
-}"
+   if (s390_nr_constants) 
+     {
+       output_asm_insn ("bras\\t%0,%2", operands);
+       s390_output_constant_pool (operands[1], operands[2]);
+     } 
+   else if (flag_pic)
+     {
+        /* We need the anchor label in any case.  */
+        (*targetm.asm_out.internal_label) (asm_out_file, "L",
+                                           CODE_LABEL_NUMBER (operands[1]));
+     }
+
+   return "";	
+}
   [(set_attr "op_type" "NN")
    (set_attr "type"    "larl")])
 
@@ -7048,13 +7055,14 @@
         (label_ref (match_operand 1 "" "")))	
    (use (label_ref (match_operand 2 "" "")))]
   ""
-  "*
 {
-   if (s390_nr_constants) {
-     output_asm_insn (\"larl\\t%0,%1\", operands);
-     s390_output_constant_pool (operands[1], operands[2]);
-   }
-   return \"\";	
-}"
+   if (s390_nr_constants) 
+     {
+       output_asm_insn ("larl\\t%0,%1", operands);
+       s390_output_constant_pool (operands[1], operands[2]);
+     }
+
+   return "";	
+}
   [(set_attr "op_type" "NN")
    (set_attr "type"    "larl")])