com.c (ptr_type_node, [...]): New.

        * com.c (ptr_type_node, va_list_type_node): New.
        (ffecom_init_0): Init and use ptr_type_node.

From-SVN: r28241

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 4c8e307f1ff3b9f641467d3be4af4011569f55e2..62942e16db1abc99db08ea950522f5d67044bdc7 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,8 @@
+1999-07-25  Richard Henderson  <rth@cygnus.com>
+
+       * com.c (ptr_type_node, va_list_type_node): New.
+       (ffecom_init_0): Init and use ptr_type_node.
+
 1999-07-17  Alexandre Oliva  <oliva@dcc.unicamp.br>
         
        * root.texi: Update e-mail addresses to gcc.gnu.org.

diff --git a/gcc/f/com.c b/gcc/f/com.c
index c326fedaae785fe8fe5f3db4044780df03dadc8e..849da85b78112275f26e7f1f4d29e82d9c69e514 100644 (file)
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -228,6 +228,8 @@ tree integer_type_node;
 tree unsigned_type_node;
 tree char_type_node;
 tree current_function_decl;
+tree ptr_type_node;
+tree va_list_type_node;
 
 /* ~~gcc/tree.h *should* declare this, because toplev.c and dwarfout.c
    reference it.  */
@@ -11807,8 +11809,10 @@ ffecom_init_0 ()
      so we might as well not have any types that claim to have it.  */
   TYPE_ALIGN (void_type_node) = BITS_PER_UNIT;
 
+  ptr_type_node = build_pointer_type (void_type_node);
+
   null_pointer_node = build_int_2 (0, 0);
-  TREE_TYPE (null_pointer_node) = build_pointer_type (void_type_node);
+  TREE_TYPE (null_pointer_node) = ptr_type_node;
   layout_type (TREE_TYPE (null_pointer_node));
 
   string_type_node = build_pointer_type (char_type_node);