From 967af719d20daa485fa058923111e3e418d17028 Mon Sep 17 00:00:00 2001 From: Ulrich Weigand Date: Tue, 12 Oct 2004 20:37:15 +0000 Subject: [PATCH] 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 --- gcc/ChangeLog | 5 +++++ gcc/config/s390/s390.c | 8 ++++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 23d9fcd53ab..a6050279f9f 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,8 @@ +2004-10-12 Ulrich Weigand + + * config/s390/s390.c (s390_va_start): Use build_va_arg_indirect_ref. + (s390_gimplify_va_arg): Likewise. + 2004-10-12 Daniel Jacobowitz * 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 72cdbf79660..c67ad193a45 100644 --- 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); } -- 2.30.2