gcc.c (default_compilers): Const-ify.

	* gcc.c (default_compilers): Const-ify.
	* mips-tdump.c (stab_names): Likewise.
	* mips-tfile.c (map_coff_types, map_coff_storage,
	map_coff_sym_type, map_coff_derived_type, stabs_symbol,
	pseudo_ops_t, pseudo_ops): Likewise.
	* protoize.c (default_include): Likewise

f:
	* com.c (clear_binding_level): Const-ify.
	(ffecom_arglist_expr_): Likewise.
	* info.c (ffeinfo_types_): Don't needlessly zero init.
	* lex.c (ffelex_hash_kludge): Const-ify.

java:
	* parse.y (src_parse_roots): Don't needlessly zero init.

libiberty:
	* cp-demangle.c (long_options): Const-ify.
	* cplus-dem.c (long_options): Likewise.

From-SVN: r48485

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index b093ea91e3ce5dbfa2bfb889d29966719f599dd2..64c0b4d0cb0a9f01e7c7c0e22406b895ffb23f5f 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,5 +1,12 @@
 2002-01-02  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
+       * gcc.c (default_compilers): Const-ify.
+       * mips-tdump.c (stab_names): Likewise.
+       * mips-tfile.c (map_coff_types, map_coff_storage,
+       map_coff_sym_type, map_coff_derived_type, stabs_symbol,
+       pseudo_ops_t, pseudo_ops): Likewise.
+       * protoize.c (default_include): Likewise
+
        * real.c (GET_REAL, PUT_REAL): Don't cast away const-ness.
        (ezero, ehalf, eone, etwo, e32, elog2, esqrt2, epi): Const-ify.
        Add array size in declaration.

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index dce48534fd9f8047d8ee5581fd8abffca0cc37f5..54d07282dd2ca39898d0189264c2407fdb302972 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,10 @@
+Wed Jan  2 18:13:11 2002  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+       * com.c (clear_binding_level): Const-ify.
+       (ffecom_arglist_expr_): Likewise.
+       * info.c (ffeinfo_types_): Don't needlessly zero init.
+       * lex.c (ffelex_hash_kludge): Const-ify.
+
 Sun Dec 23 10:45:09 2001  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
        * com.c (ffecom_gfrt_volatile_, ffecom_gfrt_complex_,

diff --git a/gcc/f/com.c b/gcc/f/com.c
index 823f18dff113c6ea47121075a8a139439c443989..9abab693235dcf5b5ee050d7b68a1cbd323c9a88 100644 (file)
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -563,7 +563,7 @@ static struct binding_level *global_binding_level;
 
 /* Binding level structures are initialized by copying this one.  */
 
-static struct binding_level clear_binding_level
+static const struct binding_level clear_binding_level
 =
 {NULL, NULL, NULL, NULL_BINDING_LEVEL, 0};
 
@@ -1283,7 +1283,7 @@ ffecom_arglist_expr_ (const char *c, ffebld expr)
   tree item;
   bool ptr = FALSE;
   tree wanted = NULL_TREE;
-  static char zed[] = "0";
+  static const char zed[] = "0";
 
   if (c == NULL)
     c = &zed[0];

diff --git a/gcc/f/info.c b/gcc/f/info.c
index b3ceef1d99c6835ab92c314de8756ff32167a8a4..b632f41592f17354da2e83257ff825df8ee623f9 100644 (file)
--- a/gcc/f/info.c
+++ b/gcc/f/info.c
@@ -98,8 +98,7 @@ static const char *const ffeinfo_where_string_[]
 #include "info-w.def"
 #undef FFEINFO_WHERE
 };
-static ffetype ffeinfo_types_[FFEINFO_basictype][FFEINFO_kindtype]
-  = { { NULL } };
+static ffetype ffeinfo_types_[FFEINFO_basictype][FFEINFO_kindtype];
 
 /* Static functions (internal). */
 

diff --git a/gcc/f/lex.c b/gcc/f/lex.c
index 616965642a119e90b42dcc889f03d5d01ac7fd56..acbb4d336c73746c7bc65779a2510caf329b50ca 100644 (file)
--- a/gcc/f/lex.c
+++ b/gcc/f/lex.c
@@ -3898,10 +3898,10 @@ ffelex_hash_kludge (FILE *finput)
   /* If you change this constant string, you have to change whatever
      code might thus be affected by it in terms of having to use
      ffelex_getc_() instead of getc() in the lexers and _hash_.  */
-  static char match[] = "# 1 \"";
+  static const char match[] = "# 1 \"";
   static int kludge[ARRAY_SIZE (match) + 1];
   int c;
-  char *p;
+  const char *p;
   int *q;
 
   /* Read chars as long as they match the target string.

diff --git a/gcc/gcc.c b/gcc/gcc.c
index 25cbeb548210860ac23f3c897d66befc775f9225..bb2b0c42a8e9e35872eee893010e264a492b6828 100644 (file)
--- a/gcc/gcc.c
+++ b/gcc/gcc.c
@@ -807,7 +807,7 @@ static int n_compilers;
 
 /* The default list of file name suffixes and their compilation specs.  */
 
-static struct compiler default_compilers[] =
+static const struct compiler default_compilers[] =
 {
   /* Add lists of suffixes of known languages here.  If those languages
      were not present when we built the driver, we will hit these copies

diff --git a/gcc/java/ChangeLog b/gcc/java/ChangeLog
index e3ba451ad4a7e10dd3855fa8326afc41d1b0acd3..c2a66eedd53da527b1500c63b50662c35e935e6d 100644 (file)
--- a/gcc/java/ChangeLog
+++ b/gcc/java/ChangeLog
@@ -1,3 +1,7 @@
+2002-01-02  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+       * parse.y (src_parse_roots): Don't needlessly zero init.
+
 2001-12-31  Tom Tromey  <tromey@redhat.com>
 
        * parse.y (dump_java_tree): New function.

diff --git a/gcc/java/parse.y b/gcc/java/parse.y
index e1981431fd5e0cfb640026c6b0ad4858db432d59..2ca0197724e9a7406ecac9b6ff4dd08660fb231f 100644 (file)
--- a/gcc/java/parse.y
+++ b/gcc/java/parse.y
@@ -421,7 +421,7 @@ static tree currently_caught_type_list;
    `ctxp->current_loop'.  */
 static tree case_label_list; 
 
-static tree src_parse_roots[1] = { NULL_TREE };
+static tree src_parse_roots[1];
 
 /* All classes seen from source code */
 #define gclass_list src_parse_roots[0]

diff --git a/gcc/mips-tdump.c b/gcc/mips-tdump.c
index 32f2bc2331030fe493b1ce2284b0227cb3c3bfe0..d7040d95b70aecc1091464768ddbc49a8e082139 100644 (file)
--- a/gcc/mips-tdump.c
+++ b/gcc/mips-tdump.c
@@ -247,7 +247,7 @@ extern int   opterr;
 /* Create a table of debugging stab-codes and corresponding names.  */
 
 #define __define_stab(NAME, CODE, STRING) {(int)CODE, STRING},
-struct {short code; char string[10];} stab_names[]  = {
+const struct {const short code; const char string[10];} stab_names[]  = {
 #include "stab.def"
 #undef __define_stab
 };

diff --git a/gcc/mips-tfile.c b/gcc/mips-tfile.c
index 167742a605216a83245a4f4d4902231b1d2583f4..9e49713302e3a64faed3ad41ec171e639709451b 100644 (file)
--- a/gcc/mips-tfile.c
+++ b/gcc/mips-tfile.c
@@ -1273,7 +1273,7 @@ static EXTR         *last_func_eptr;
    Maybe this will be fixed in 2.10 or 2.20 of the MIPS compiler
    suite, but for now go with what works.  */
 
-static bt_t map_coff_types[ (int)T_MAX ] = {
+static const bt_t map_coff_types[ (int)T_MAX ] = {
   bt_Nil,                      /* T_NULL */
   bt_Nil,                      /* T_ARG */
   bt_Char,                     /* T_CHAR */
@@ -1293,7 +1293,7 @@ static bt_t map_coff_types[ (int)T_MAX ] = {
 };
 
 /* Convert COFF storage class to ECOFF storage class.  */
-static sc_t map_coff_storage[ (int)C_MAX ] = {
+static const sc_t map_coff_storage[ (int)C_MAX ] = {
   sc_Nil,                      /*   0: C_NULL */
   sc_Abs,                      /*   1: C_AUTO    auto var */
   sc_Undefined,                        /*   2: C_EXT     external */
@@ -1404,7 +1404,7 @@ static sc_t map_coff_storage[ (int)C_MAX ] = {
 };
 
 /* Convert COFF storage class to ECOFF symbol type.  */
-static st_t map_coff_sym_type[ (int)C_MAX ] = {
+static const st_t map_coff_sym_type[ (int)C_MAX ] = {
   st_Nil,                      /*   0: C_NULL */
   st_Local,                    /*   1: C_AUTO    auto var */
   st_Global,                   /*   2: C_EXT     external */
@@ -1515,7 +1515,7 @@ static st_t map_coff_sym_type[ (int)C_MAX ] = {
 };
 
 /* Map COFF derived types to ECOFF type qualifiers.  */
-static tq_t map_coff_derived_type[ (int)DT_MAX ] = {
+static const tq_t map_coff_derived_type[ (int)DT_MAX ] = {
   tq_Nil,                      /* 0: DT_NON    no more qualifiers */
   tq_Ptr,                      /* 1: DT_PTR    pointer */
   tq_Proc,                     /* 2: DT_FCN    function */
@@ -1594,7 +1594,7 @@ static int        stabs_seen      = 0;            /* != 0 if stabs have been seen */
 #define STABS_SYMBOL "@stabs"
 #endif
 
-static char stabs_symbol[] = STABS_SYMBOL;
+static const char stabs_symbol[] = STABS_SYMBOL;
 
 \f
 /* Forward reference for functions.  See the definition for more details.  */
@@ -1715,12 +1715,12 @@ extern int   opterr;
    do......  */
 
 typedef struct _pseudo_ops {
-  const char *name;                    /* pseudo-op in ascii */
-  int len;                             /* length of name to compare */
-  void (*func) PARAMS ((const char *));        /* function to handle line */
+  const char *const name;                      /* pseudo-op in ascii */
+  const int len;                               /* length of name to compare */
+  void (*const func) PARAMS ((const char *));  /* function to handle line */
 } pseudo_ops_t;
 
-static pseudo_ops_t pseudo_ops[] = {
+static const pseudo_ops_t pseudo_ops[] = {
   { "#.def",   sizeof("#.def")-1,      parse_def },
   { "#.begin", sizeof("#.begin")-1,    parse_begin },
   { "#.bend",  sizeof("#.bend")-1,     parse_bend },

diff --git a/gcc/protoize.c b/gcc/protoize.c
index 0ab511889432d3fe2a968dadaab5a09950a938fd..34fdb2bdb36dafa5c46ddf1cb37561e514edb839 100644 (file)
--- a/gcc/protoize.c
+++ b/gcc/protoize.c
@@ -207,7 +207,7 @@ static const int hash_mask = (HASH_TABLE_SIZE - 1);
 
 static const struct default_include { const char *const fname; 
                         const char *const component;
-                        int x1, x2; } include_defaults[]
+                        const int x1, x2; } include_defaults[]
 #ifdef INCLUDE_DEFAULTS
   = INCLUDE_DEFAULTS;
 #else

diff --git a/libiberty/ChangeLog b/libiberty/ChangeLog
index 92929719275057e05c29db3186b3251d50567d98..fdccb59ab438391b6f4eb488d136e0ca389ea654 100644 (file)
--- a/libiberty/ChangeLog
+++ b/libiberty/ChangeLog
@@ -1,5 +1,8 @@
 2002-01-02  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
+       * cp-demangle.c (long_options): Const-ify.
+       * cplus-dem.c (long_options): Likewise.
+
        * cplus-dem.c (mystrstr): Delete.  All callers changed to use
        strstr instead.
 

diff --git a/libiberty/cp-demangle.c b/libiberty/cp-demangle.c
index b61ff2c2c5737f186a384053da0f004cc70e5388..457a09f4c19e4efd3344cb95751bc4300b277178 100644 (file)
--- a/libiberty/cp-demangle.c
+++ b/libiberty/cp-demangle.c
@@ -3945,7 +3945,7 @@ print_usage (fp, exit_value)
 }
 
 /* Option specification for getopt_long.  */
-static struct option long_options[] = 
+static const struct option long_options[] = 
 {
   { "help",    no_argument, NULL, 'h' },
   { "strict",  no_argument, NULL, 's' },

diff --git a/libiberty/cplus-dem.c b/libiberty/cplus-dem.c
index 691eb7135d4c73158e0d7e29290ab36b02a64e7a..5af8826368629a1fa86b4ad80ba3f42dd23e2720 100644 (file)
--- a/libiberty/cplus-dem.c
+++ b/libiberty/cplus-dem.c
@@ -4947,7 +4947,7 @@ extern int prepends_underscore;
 
 int strip_underscore = 0;
 
-static struct option long_options[] = {
+static const struct option long_options[] = {
   {"strip-underscores", no_argument, 0, '_'},
   {"format", required_argument, 0, 's'},
   {"help", no_argument, 0, 'h'},