diff options
| author | Ulrich Weigand <uweigand@de.ibm.com> | 2004-10-12 20:37:15 +0000 |
|---|---|---|
| committer | Ulrich Weigand <uweigand@gcc.gnu.org> | 2004-10-12 20:37:15 +0000 |
| commit | 967af719d20daa485fa058923111e3e418d17028 (patch) | |
| tree | 0f704ef33c82d0f0938bd107e93b9347c39f6c72 /gcc | |
| parent | 888d2cd6b58f62d8492ec2a937de25c634966301 (diff) | |
| download | gcc-967af719d20daa485fa058923111e3e418d17028.zip gcc-967af719d20daa485fa058923111e3e418d17028.tar.gz gcc-967af719d20daa485fa058923111e3e418d17028.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/config/s390/s390.c | 8 |
2 files changed, 9 insertions, 4 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 23d9fcd..a605027 100644 --- 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 72cdbf7..c67ad19 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); } |