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

+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

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"),