From d4b15af97b5de14ce6776350c55dcac579caee6a Mon Sep 17 00:00:00 2001 From: Richard Henderson Date: Mon, 15 Nov 1999 20:47:55 -0800 Subject: [PATCH] alpha.c (alpha_build_va_list): Use make_lang_type and initialize TYPE_NAME for the va_list record. * alpha.c (alpha_build_va_list): Use make_lang_type and initialize TYPE_NAME for the va_list record. From-SVN: r30545 --- gcc/ChangeLog | 5 +++++ gcc/config/alpha/alpha.c | 8 ++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 5e757c42e2d..c87e9fd7ec3 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,8 @@ +Mon Nov 15 20:46:45 1999 Richard Henderson + + * alpha.c (alpha_build_va_list): Use make_lang_type and + initialize TYPE_NAME for the va_list record. + Tue Nov 16 14:37:52 1999 Geoffrey Keating * config/rs6000/rs6000.c (first_reg_to_save): Save diff --git a/gcc/config/alpha/alpha.c b/gcc/config/alpha/alpha.c index 48173db86f5..5f73964e81c 100644 --- a/gcc/config/alpha/alpha.c +++ b/gcc/config/alpha/alpha.c @@ -3161,12 +3161,16 @@ alpha_initialize_trampoline (tramp, fnaddr, cxt, fnofs, cxtofs, jmpofs) tree alpha_build_va_list () { - tree base, ofs, record; + tree base, ofs, record, type_decl; if (TARGET_OPEN_VMS) return ptr_type_node; - record = make_node (RECORD_TYPE); + record = make_lang_type (RECORD_TYPE); + type_decl = build_decl (TYPE_DECL, get_identifier ("__va_list_tag"), record); + TREE_CHAIN (record) = type_decl; + TYPE_NAME (record) = type_decl; + /* C++? SET_IS_AGGR_TYPE (record, 1); */ ofs = build_decl (FIELD_DECL, get_identifier ("__offset"), -- 2.30.2