c-parse.in (cast_expr): Constify.

        * c-parse.in (cast_expr): Constify.

        * cccp.c (special_symbol): Likewise.

        * cse.c (hash_cse_reg_info, cse_reg_info_equal_p): Likewise.

        * dwarf2out.c (base_type_die): Likewise.

        * global.c (allocno_compare): Likewise.

        * local-alloc.c (qty_compare_1, qty_sugg_compare_1): Likewise.

        * regclass.c (fix_register): Likewise.

        * rtl.h (fix_register): Likewise.

        * stupid.c (stupid_reg_compare): Likewise.

        * toplev.c (decode_f_option): Likewise.

        * tree.c (build_complex_type): Likewise.

From-SVN: r30196

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 9baf2f178cb5abfcd7fc5de74be59a051b627ce0..bfa6bb9c9f75aaf25d5f310d4cd241f72b12680f 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,27 @@
+Tue Oct 26 14:10:23 1999  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+       * c-parse.in (cast_expr): Constify.
+
+       * cccp.c (special_symbol): Likewise.
+
+       * cse.c (hash_cse_reg_info, cse_reg_info_equal_p): Likewise.
+
+       * dwarf2out.c (base_type_die): Likewise.
+
+       * global.c (allocno_compare): Likewise.
+
+       * local-alloc.c (qty_compare_1, qty_sugg_compare_1): Likewise.
+
+       * regclass.c (fix_register): Likewise.
+
+       * rtl.h (fix_register): Likewise.
+
+       * stupid.c (stupid_reg_compare): Likewise.
+
+       * toplev.c (decode_f_option): Likewise.
+
+       * tree.c (build_complex_type): Likewise.
+
 Tue Oct 26 18:35:25 1999  Richard Earnshaw  <rearnsha@arm.com>
 
        * output.h: Don't unnecessarily conditionalize prototypes on TREE_CODE.

diff --git a/gcc/c-parse.c b/gcc/c-parse.c
index e358450a9c1dc7b677354afeb50450786395631a..80cb75cd7daeca0367e8a0272d2cd102d021334d 100644 (file)
--- a/gcc/c-parse.c
+++ b/gcc/c-parse.c
@@ -2046,7 +2046,7 @@ case 61:
     break;}
 case 62:
 #line 481 "c-parse.y"
-{ char *name;
+{ const char *name;
                  tree result = pop_init_level (0);
                  tree type = yyvsp[-5].ttype;
                  finish_init ();

diff --git a/gcc/c-parse.in b/gcc/c-parse.in
index 3259ecac2b6410a4732e3704feb4c42480316f8d..6811b45b98ef46f68b541c71b5c26f718bb829af 100644 (file)
--- a/gcc/c-parse.in
+++ b/gcc/c-parse.in
@@ -523,7 +523,7 @@ cast_expr:
                  $2 = groktypename ($2);
                  really_start_incremental_init ($2); }
          initlist_maybe_comma '}'  %prec UNARY
-               { char *name;
+               { const char *name;
                  tree result = pop_init_level (0);
                  tree type = $2;
                  finish_init ();

diff --git a/gcc/c-parse.y b/gcc/c-parse.y
index f9092d7aed624c5623c0e10ed240edd1505a470e..0e0b36bc30e7c178eeaea47f56a8b305db4de2af 100644 (file)
--- a/gcc/c-parse.y
+++ b/gcc/c-parse.y
@@ -478,7 +478,7 @@ cast_expr:
                  $2 = groktypename ($2);
                  really_start_incremental_init ($2); }
          initlist_maybe_comma '}'  %prec UNARY
-               { char *name;
+               { const char *name;
                  tree result = pop_init_level (0);
                  tree type = $2;
                  finish_init ();

diff --git a/gcc/cccp.c b/gcc/cccp.c
index 2a56b232190cd5207064c4b9d26ad956b7b60b55..b5f31a1ab2a4aac3beb4caa72ba2dac2b0079b29 100644 (file)
--- a/gcc/cccp.c
+++ b/gcc/cccp.c
@@ -4261,7 +4261,7 @@ special_symbol (hp, op)
 #ifdef STDC_0_IN_SYSTEM_HEADERS
     if (ip->system_header_p
        && hp->length == 8 && bcmp (hp->name, "__STDC__", 8) == 0
-       && !lookup ((U_CHAR *) "__STRICT_ANSI__", -1, -1))
+       && !lookup ((const U_CHAR *) "__STRICT_ANSI__", -1, -1))
       buf = "0";
 #endif
     if (pcp_inside_if && pcp_outfile)

diff --git a/gcc/cse.c b/gcc/cse.c
index a304bc605d5314fd56edcfb552e40128fcac3a1c..d729cb29a1afa4dddacd067fe51e6541a24df68d 100644 (file)
--- a/gcc/cse.c
+++ b/gcc/cse.c
@@ -899,7 +899,7 @@ static unsigned int
 hash_cse_reg_info (el_ptr)
      hash_table_entry_t el_ptr;
 {
-  return ((struct cse_reg_info *) el_ptr)->regno;
+  return ((const struct cse_reg_info *) el_ptr)->regno;
 }
 
 static int
@@ -907,8 +907,8 @@ cse_reg_info_equal_p (el_ptr1, el_ptr2)
      hash_table_entry_t el_ptr1;
      hash_table_entry_t el_ptr2;
 {
-  return (((struct cse_reg_info *) el_ptr1)->regno
-         == ((struct cse_reg_info *) el_ptr2)->regno);
+  return (((const struct cse_reg_info *) el_ptr1)->regno
+         == ((const struct cse_reg_info *) el_ptr2)->regno);
 }
 
 /* Clear the hash table and initialize each register with its own quantity,

diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c
index 6732e5811decfe66333cd6562c58895722291282..a9ee93c53343e0e78e806b00365811ec44609b3c 100644 (file)
--- a/gcc/dwarf2out.c
+++ b/gcc/dwarf2out.c
@@ -6165,7 +6165,7 @@ base_type_die (type)
      register tree type;
 {
   register dw_die_ref base_type_result;
-  register char *type_name;
+  register const char *type_name;
   register enum dwarf_type encoding;
   register tree name = TYPE_NAME (type);
 

diff --git a/gcc/global.c b/gcc/global.c
index 17bfaf4246dca1a989a9606bfd3a401dc120557d..3ca1d9ccd030a103874eb9d03d2429bf6ea3f24d 100644 (file)
--- a/gcc/global.c
+++ b/gcc/global.c
@@ -594,7 +594,7 @@ allocno_compare (v1p, v2p)
      const PTR v1p;
      const PTR v2p;
 {
-  int v1 = *(int *)v1p, v2 = *(int *)v2p;
+  int v1 = *(const int *)v1p, v2 = *(const int *)v2p;
   /* Note that the quotient will never be bigger than
      the value of floor_log2 times the maximum number of
      times a register can occur in one insn (surely less than 100).

diff --git a/gcc/local-alloc.c b/gcc/local-alloc.c
index b45f339e0fd2b237a62559684fc3317f3e82fab5..ee72b7d794eea2bbf4f8f209cb0c1cdc79d50c3e 100644 (file)
--- a/gcc/local-alloc.c
+++ b/gcc/local-alloc.c
@@ -1503,7 +1503,7 @@ qty_compare_1 (q1p, q2p)
      const PTR q1p;
      const PTR q2p;
 {
-  register int q1 = *(int *)q1p, q2 = *(int *)q2p;
+  register int q1 = *(const int *)q1p, q2 = *(const int *)q2p;
   register int tem = QTY_CMP_PRI (q2) - QTY_CMP_PRI (q1);
 
   if (tem != 0)
@@ -1543,7 +1543,7 @@ qty_sugg_compare_1 (q1p, q2p)
      const PTR q1p;
      const PTR q2p;
 {
-  register int q1 = *(int *)q1p, q2 = *(int *)q2p;
+  register int q1 = *(const int *)q1p, q2 = *(const int *)q2p;
   register int tem = QTY_CMP_SUGG (q1) - QTY_CMP_SUGG (q2);
 
   if (tem != 0)

diff --git a/gcc/objc/objc-parse.c b/gcc/objc/objc-parse.c
index 0a9eb500d4a2d76deba9d09fb36b614ffbc88063..1445dbda9ff00cf508ac877c0921cda04846ef8a 100644 (file)
--- a/gcc/objc/objc-parse.c
+++ b/gcc/objc/objc-parse.c
@@ -2529,7 +2529,7 @@ case 64:
     break;}
 case 65:
 #line 507 "objc-parse.y"
-{ char *name;
+{ const char *name;
                  tree result = pop_init_level (0);
                  tree type = yyvsp[-5].ttype;
                  finish_init ();

diff --git a/gcc/objc/objc-parse.y b/gcc/objc/objc-parse.y
index 24d39f0ae463e9374a8c84c7771a15fefcffa46b..5292430d00bb29bd9e01a4970a1410ac2e3fa897 100644 (file)
--- a/gcc/objc/objc-parse.y
+++ b/gcc/objc/objc-parse.y
@@ -504,7 +504,7 @@ cast_expr:
                  $2 = groktypename ($2);
                  really_start_incremental_init ($2); }
          initlist_maybe_comma '}'  %prec UNARY
-               { char *name;
+               { const char *name;
                  tree result = pop_init_level (0);
                  tree type = $2;
                  finish_init ();

diff --git a/gcc/regclass.c b/gcc/regclass.c
index 1b9608586947a8e0af188352a0a97fb03e49566d..a2258b73ffa82001eb6b3b38f638c27bc660ec22 100644 (file)
--- a/gcc/regclass.c
+++ b/gcc/regclass.c
@@ -571,7 +571,7 @@ choose_hard_reg_mode (regno, nregs)
 
 void
 fix_register (name, fixed, call_used)
-     char *name;
+     const char *name;
      int fixed, call_used;
 {
   int i;

diff --git a/gcc/rtl.h b/gcc/rtl.h
index 575c01a3f46374b675daa4de552ebe338f1dba19..629e062dad9c4da73d89637be52fa0086b248c98 100644 (file)
--- a/gcc/rtl.h
+++ b/gcc/rtl.h
@@ -1565,7 +1565,7 @@ extern void regclass_init         PROTO ((void));
 extern void regclass                   PROTO ((rtx, int));
 extern void reg_scan                   PROTO ((rtx, int, int));
 extern void reg_scan_update            PROTO ((rtx, rtx, int));
-extern void fix_register               PROTO ((char *, int, int));
+extern void fix_register               PROTO ((const char *, int, int));
 
 /* In regmove.c */
 #ifdef BUFSIZ

diff --git a/gcc/stupid.c b/gcc/stupid.c
index b61f7444ccc8974d88a6182e63d349e995105eb5..09ea8babc74423015bdb104139bcf958726dc033 100644 (file)
--- a/gcc/stupid.c
+++ b/gcc/stupid.c
@@ -446,7 +446,7 @@ stupid_reg_compare (r1p, r2p)
      const PTR r1p;
      const PTR r2p;
 {
-  register int r1 = *(int *)r1p, r2 = *(int *)r2p;
+  register int r1 = *(const int *)r1p, r2 = *(const int *)r2p;
   register int len1 = reg_where_dead[r1] - REG_WHERE_BORN (r1);
   register int len2 = reg_where_dead[r2] - REG_WHERE_BORN (r2);
   int tem;

diff --git a/gcc/toplev.c b/gcc/toplev.c
index d8c5819c641b5707d44283c1bfe6524c4cfaae3e..3f0118991abcb1e21965ec5edd4d28679e930d8d 100644 (file)
--- a/gcc/toplev.c
+++ b/gcc/toplev.c
@@ -4833,14 +4833,14 @@ decode_f_option (arg)
       read_integral_parameter (arg + 13, arg - 2, inline_max_insns);
 #ifdef INSN_SCHEDULING
   else if (!strncmp (arg, "sched-verbose=", 14))
-    fix_sched_param ("verbose", (char *)(arg + 14));
+    fix_sched_param ("verbose", (const char *)(arg + 14));
 #endif
   else if (!strncmp (arg, "fixed-", 6))
-    fix_register ((char *)(arg + 6), 1, 1);
+    fix_register ((const char *)(arg + 6), 1, 1);
   else if (!strncmp (arg, "call-used-", 10))
-    fix_register ((char *)(arg + 10), 0, 1);
+    fix_register ((const char *)(arg + 10), 0, 1);
   else if (!strncmp (arg, "call-saved-", 11))
-    fix_register ((char *)(arg + 11), 0, 0);
+    fix_register ((const char *)(arg + 11), 0, 0);
   else if (!strncmp (arg, "align-loops=", 12))
     align_loops = read_integral_parameter (arg + 12, arg - 2, align_loops);
   else if (!strncmp (arg, "align-functions=", 16))

diff --git a/gcc/tree.c b/gcc/tree.c
index 7d01d7cca277579c8af6eca862b38eb3e16a98b0..0d3a7761c5b367ad186a3b84a0491c191db14d74 100644 (file)
--- a/gcc/tree.c
+++ b/gcc/tree.c
@@ -4528,7 +4528,7 @@ build_complex_type (component_type)
      since complex is a fundamental type.  */
   if (write_symbols == DWARF2_DEBUG && ! TYPE_NAME (t))
     {
-      char *name;
+      const char *name;
       if (component_type == char_type_node)
        name = "complex char";
       else if (component_type == signed_char_type_node)