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

	* 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

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index c4d4d6bc9fad3bb524b89099ff40dbebd273b2fb..419fbb8070c533e1cfd5d7764f78b83ec1576cba 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,9 @@
+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>
 

diff --git a/gcc/config/s390/s390.md b/gcc/config/s390/s390.md
index d357df07163a862f50e6f74a29f0760d9842be5a..5d632e7a917a49935a819b0c2388ad5693bd8564 100644 (file)
--- a/gcc/config/s390/s390.md
+++ b/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")])