intdoc.c (ARRAY_SIZE): Remove macro.

	* intdoc.c (ARRAY_SIZE): Remove macro.
	* proj.h (ARRAY_SIZE): Remove macro.
	* com.c (init_decl_processing): Use ARRAY_SIZE.

From-SVN: r35950

gcc/f/ChangeLog

+2000-08-24  Greg McGary  <greg@mcgary.org>
+
+	* intdoc.c (ARRAY_SIZE): Remove macro.
+	* proj.h (ARRAY_SIZE): Remove macro.
+	* com.c (init_decl_processing): Use ARRAY_SIZE.
+
 2000-08-22  Toon Moene  <toon@moene.indiv.nluug.nl>
 
 	* com-rt.def: Adapt macro DEFGFRT to accept CONST boolean.

gcc/f/com.c

@@ -14804,7 +14804,7 @@ init_decl_processing ()
   malloc_init ();
 
   /* Record our roots.  */
-  for (i = 0; i < sizeof(tree_roots)/sizeof(tree_roots[0]); i++)
+  for (i = 0; i < ARRAY_SIZE (tree_roots); i++)
     ggc_add_tree_root (tree_roots[i], 1);
   ggc_add_tree_root (&ffecom_tree_type[0][0], 
 		     FFEINFO_basictype*FFEINFO_kindtype);

gcc/f/intdoc.c

 /* intdoc.c
-   Copyright (C) 1997 Free Software Foundation, Inc.
+   Copyright (C) 1997, 2000 Free Software Foundation, Inc.
    Contributed by James Craig Burley.
 
 This file is part of GNU Fortran.
@@ -37,8 +37,6 @@ typedef enum
     Doggone_Trailing_Comma_Dont_Work = 1
   } bool;
 
-#define ARRAY_SIZE(a) (sizeof(a)/sizeof(a[0]))
-
 /* Pull in the intrinsics info, but only the doc parts.  */
 #define FFEINTRIN_DOC 1
 #include "intrin.h"

gcc/f/proj.h

 /* proj.h file for Gnu Fortran
-   Copyright (C) 1995, 1996 Free Software Foundation, Inc.
+   Copyright (C) 1995, 1996, 2000 Free Software Foundation, Inc.
    Contributed by James Craig Burley.
 
 This file is part of GNU Fortran.
@@ -58,8 +58,6 @@ typedef enum
     Doggone_Trailing_Comma_Dont_Work = 1
   } bool;
 
-#define ARRAY_SIZE(a) (sizeof(a)/sizeof(a[0]))
-
 #ifndef UNUSED	/* Compile with -DUNUSED= if cc doesn't support this. */
 #define UNUSED ATTRIBUTE_UNUSED
 #endif  /* !defined (UNUSED) */