* alpha.c (alpha_build_va_list): Use make_lang_type and

        initialize TYPE_NAME for the va_list record.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@30545 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 5e757c4..c87e9fd 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 48173db..5f73964 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"),