alpha.c (alpha_build_va_list): Use make_lang_type and initialize TYPE_NAME for the...

        * alpha.c (alpha_build_va_list): Use make_lang_type and
        initialize TYPE_NAME for the va_list record.

From-SVN: r30545

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 5e757c42e2d0986c049d50d27f6384264c6093b8..c87e9fd7ec37e47fa8d41493e4b3be525eaa52c1 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+Mon Nov 15 20:46:45 1999  Richard Henderson  <rth@cygnus.com>
+
+       * 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  <geoffk@cygnus.com>
 
        * config/rs6000/rs6000.c (first_reg_to_save): Save

diff --git a/gcc/config/alpha/alpha.c b/gcc/config/alpha/alpha.c
index 48173db86f5c53636965c84b02df6f0946a48bc7..5f73964e81c35f09b8b09e20e9828660f29ec9ae 100644 (file)
--- 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"),