s390.c (s390_va_start): Use build_va_arg_indirect_ref.

	* config/s390/s390.c (s390_va_start): Use build_va_arg_indirect_ref.
	(s390_gimplify_va_arg): Likewise.

From-SVN: r88949

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 23d9fcd53ab907b5f243fcf611b3c8190837e93a..a6050279f9f7ecbe1df751dd85408761e9fb76dd 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2004-10-12  Ulrich Weigand  <uweigand@de.ibm.com>
+
+       * config/s390/s390.c (s390_va_start): Use build_va_arg_indirect_ref.
+       (s390_gimplify_va_arg): Likewise.
+
 2004-10-12  Daniel Jacobowitz  <dan@debian.org>
 
        * defaults.h (REGNO_MODE_OK_FOR_BASE_P, REG_MODE_OK_FOR_BASE_P)

diff --git a/gcc/config/s390/s390.c b/gcc/config/s390/s390.c
index 72cdbf79660064d83bd15b75c48bb558ddb1e0f8..c67ad193a455bd1591e08bb25c3a1f502c87b298 100644 (file)
--- a/gcc/config/s390/s390.c
+++ b/gcc/config/s390/s390.c
@@ -7475,7 +7475,7 @@ s390_va_start (tree valist, rtx nextarg ATTRIBUTE_UNUSED)
   f_ovf = TREE_CHAIN (f_fpr);
   f_sav = TREE_CHAIN (f_ovf);
 
-  valist = build1 (INDIRECT_REF, TREE_TYPE (TREE_TYPE (valist)), valist);
+  valist = build_va_arg_indirect_ref (valist);
   gpr = build (COMPONENT_REF, TREE_TYPE (f_gpr), valist, f_gpr, NULL_TREE);
   fpr = build (COMPONENT_REF, TREE_TYPE (f_fpr), valist, f_fpr, NULL_TREE);
   ovf = build (COMPONENT_REF, TREE_TYPE (f_ovf), valist, f_ovf, NULL_TREE);
@@ -7565,7 +7565,7 @@ s390_gimplify_va_arg (tree valist, tree type, tree *pre_p,
   f_ovf = TREE_CHAIN (f_fpr);
   f_sav = TREE_CHAIN (f_ovf);
 
-  valist = build1 (INDIRECT_REF, TREE_TYPE (TREE_TYPE (valist)), valist);
+  valist = build_va_arg_indirect_ref (valist);
   gpr = build (COMPONENT_REF, TREE_TYPE (f_gpr), valist, f_gpr, NULL_TREE);
   fpr = build (COMPONENT_REF, TREE_TYPE (f_fpr), valist, f_fpr, NULL_TREE);
   ovf = build (COMPONENT_REF, TREE_TYPE (f_ovf), valist, f_ovf, NULL_TREE);
@@ -7700,7 +7700,7 @@ s390_gimplify_va_arg (tree valist, tree type, tree *pre_p,
     {
       t = build_pointer_type (build_pointer_type (type));
       addr = fold_convert (t, addr);
-      addr = build_fold_indirect_ref (addr);
+      addr = build_va_arg_indirect_ref (addr);
     }
   else
     {
@@ -7708,7 +7708,7 @@ s390_gimplify_va_arg (tree valist, tree type, tree *pre_p,
       addr = fold_convert (t, addr);
     }
 
-  return build_fold_indirect_ref (addr);
+  return build_va_arg_indirect_ref (addr);
 }