s390.c (print_operand): Support 'S' format flag.

	* config/s390/s390.c (print_operand): Support 'S' format flag.
	* config/s390/s390.md ("*tmqi_mem"): Use 'S' format flag.
	("*tstsi", "*tstsi_cconly", "*tstsi_cconly2"): Likewise.
	("*tsthiCCT", "*tsthiCCT_cconly", "*tsthi", "*tsthi_cconly"): Likewise.
	("*tstqiCCT", "*tstqiCCT_cconly", "*tstqi", "*tstqi_cconly"): Likewise.
	("*cmphi_ccu", "*cmpqi_ccu", "*clc"): Likewise
	("movti", "*movdi_31", "*movqi", "*movdf_31", "*mvc"): Likewise.
	("*movstricthi"): Likewise.
	("*load_multiple_di", "*load_multiple_si"): Likewise.
	("*store_multiple_di", "*store_multiple_si"): Likewise.
	("*sethiqisi", "*sethihisi"): Likewise.
	("*sethiqidi_64", "*sethiqidi_31"): Likewise.
	("*andqi3_zarch", "*andqi3_esa", "*nc"): Likewise.
	("*iorqi3_zarch", "*iorqi3_esa", "*oc"): Likewise.
	("*xorqi3", "*xc", "*xc_zero"): Likewise.
	("get_tp_64", "get_tp_31", "set_tp_64", "set_tp_31"): Likewise.

	("*tmhi_full"): Fix incorrect op_type attribute.

	("*adddi3_alc_cc", "*adddi3_alc"): Remove double backslash.
	("*subdi3_slb_cc", "*subdi3_slb"): Likewise.
	("*addsi3_alc_cc", "*addsi3_alc"): Likewise.
	("*subsi3_slb_cc", "*subsi3_slb"): Likewise.

From-SVN: r88903

gcc/ChangeLog

+2004-10-11  Ulrich Weigand  <uweigand@de.ibm.com>
+
+	* config/s390/s390.c (print_operand): Support 'S' format flag.
+	* config/s390/s390.md ("*tmqi_mem"): Use 'S' format flag.
+	("*tstsi", "*tstsi_cconly", "*tstsi_cconly2"): Likewise.
+	("*tsthiCCT", "*tsthiCCT_cconly", "*tsthi", "*tsthi_cconly"): Likewise.
+	("*tstqiCCT", "*tstqiCCT_cconly", "*tstqi", "*tstqi_cconly"): Likewise.
+	("*cmphi_ccu", "*cmpqi_ccu", "*clc"): Likewise
+	("movti", "*movdi_31", "*movqi", "*movdf_31", "*mvc"): Likewise.
+	("*movstricthi"): Likewise.
+	("*load_multiple_di", "*load_multiple_si"): Likewise.
+	("*store_multiple_di", "*store_multiple_si"): Likewise.
+	("*sethiqisi", "*sethihisi"): Likewise.
+	("*sethiqidi_64", "*sethiqidi_31"): Likewise.
+	("*andqi3_zarch", "*andqi3_esa", "*nc"): Likewise.
+	("*iorqi3_zarch", "*iorqi3_esa", "*oc"): Likewise.
+	("*xorqi3", "*xc", "*xc_zero"): Likewise.
+	("get_tp_64", "get_tp_31", "set_tp_64", "set_tp_31"): Likewise.
+
+	("*tmhi_full"): Fix incorrect op_type attribute.
+
+	("*adddi3_alc_cc", "*adddi3_alc"): Remove double backslash.
+	("*subdi3_slb_cc", "*subdi3_slb"): Likewise.
+	("*addsi3_alc_cc", "*addsi3_alc"): Likewise.
+	("*subsi3_slb_cc", "*subsi3_slb"): Likewise.
+
 2004-10-11  Andrew Pinski  <pinskia@physics.uc.edu
 
 	PR middle-end/16266

gcc/config/s390/s390.c

@@ -4066,6 +4066,7 @@ print_operand_address (FILE *file, rtx addr)
     'J': print tls_load/tls_gdcall/tls_ldcall suffix
     'O': print only the displacement of a memory reference.
     'R': print only the base register of a memory reference.
+    'S': print S-type memory reference (base+displacement).
     'N': print the second word of a DImode operand.
     'M': print the second word of a TImode operand.
     'Y': print shift count operand.
@@ -4143,6 +4144,26 @@ print_operand (FILE *file, rtx x, int code)
       }
       return;
 
+    case 'S':
+      {
+	struct s390_address ad;
+
+	if (GET_CODE (x) != MEM
+	    || !s390_decompose_address (XEXP (x, 0), &ad)
+	    || (ad.base && !REG_OK_FOR_BASE_STRICT_P (ad.base))
+	    || ad.indx)
+	  abort ();
+
+	if (ad.disp)
+	  output_addr_const (file, ad.disp);
+	else
+	  fprintf (file, "0");
+
+	if (ad.base)
+	  fprintf (file, "(%s)", reg_names[REGNO (ad.base)]);
+      }
+      return;
+
     case 'N':
       if (GET_CODE (x) == REG)
 	x = gen_rtx_REG (GET_MODE (x), REGNO (x) + 1);