* c-parse.in (yyerror): Const-ification and/or static-ization.

	* c-typeck.c (push_member_name): Likewise.
	* collect2.c (main): Likewise.
	* dbxout.c (dbxout_parms): Likewise.
	* diagnostic.c (format_with_decl): Likewise.
	* dwarf2out.c (output_ranges): Likewise.
	* dwarfout.c (fundamental_type_code): Likewise.
	* except.c (dw2_output_call_site_table): Likewise.
	* gcc.c (do_spec_1): Likewise.
	* genopinit.c (optabs): Likewise.
	* objc/objc-act.c (synth_id_with_class_suffix, start_class,
	gen_declaration_1, handle_impent): Likewise.
	* protoize.c (default_include, in_system_include_dir, abspath):
	Likewise.
	* sched-vis.c (visualize_stall_cycles): Likewise.
	* sdbout.c (plain_type_1, sdbout_end_function,
	sdbout_end_epilogue): Likewise.
	* varasm.c (decode_reg_name): Likewise.

	* 1750a.c (mod_regno_adjust): Likewise.
	* alpha.c (alpha_write_one_linkage,
	unicosmk_output_default_externs): Likewise.
	* arm.c (arm_condition_codes): Likewise.
	* arm.h (arm_condition_codes): Likewise.
	* avr.c (output_movsisf, encode_section_info): Likewise.
	* darwin.h (GEN_BINDER_NAME_FOR_STUB, GEN_SYMBOL_NAME_FOR_SYMBOL):
	Likewise.
	* i386.c (hi_reg_name, qi_reg_name, qi_high_reg_name): Likewise.
	* i386.h (hi_reg_name, qi_reg_name, qi_high_reg_name): Likewise.
	* m88k.c (output_function_profiler): Likewise.
	* mips.c (mips_output_conditional_branch): Likewise.
	* ns32k.c (ns32k_out_reg_names): Likewise.
	* ns32k.h (ns32k_out_reg_names): Likewise.
	* pj.c (pj_output_rval): Likewise.
	* rs6000.c (GEN_LOCAL_LABEL_FOR_SYMBOL): Likewise.
	* sparc.c (sparc_flat_function_prologue,
	sparc_flat_function_epilogue): Likewise.

cp:
	* decl.c (warn_extern_redeclared_static, cp_make_fname_decl):
	Const-ification.
	* pt.c (tsubst_decl): Likewise.

f:
	* bad.c (ffebad_finish): Const-ification and/or static-ization.
	* intrin.c (ffeintrin_cmp_name_): Likewise.
	* stc.c (ffestc_R904): Likewise.

java:
	* expr.c (expand_invoke): Const-ification.
	* parse.y (patch_method_invocation): Likewise.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@45581 138bc75d-0d04-0410-961f-82ee72b054a4

4 files changed, 23 insertions, 30 deletions

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 5c6f3492d15..666001dff23 100644
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,9 @@
+Thu Sep 13 10:33:27 2001  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+	* bad.c (ffebad_finish): Const-ification and/or static-ization.
+	* intrin.c (ffeintrin_cmp_name_): Likewise.
+	* stc.c (ffestc_R904): Likewise.
+
 Wed Sep 12 12:09:04 2001  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
 	* bld.c (ffebld_op_string_): Const-ification.
diff --git a/gcc/f/bad.c b/gcc/f/bad.c
index 930daf964d4..0ecaf7484c5 100644
--- a/gcc/f/bad.c
+++ b/gcc/f/bad.c
@@ -349,7 +349,7 @@ void
 ffebad_finish ()
 {
 #define MAX_SPACES 132
-  static const char *spaces
+  static const char *const spaces
   = "...>\
 \040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\
 \040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\040\
diff --git a/gcc/f/intrin.c b/gcc/f/intrin.c
index 0bc6d0e0c93..31ebd96f912 100644
--- a/gcc/f/intrin.c
+++ b/gcc/f/intrin.c
@@ -1165,9 +1165,9 @@ ffeintrin_check_any_ (ffebld arglist)
 static int
 ffeintrin_cmp_name_ (const void *name, const void *intrinsic)
 {
-  const char *uc = ((const struct _ffeintrin_name_ *) intrinsic)->name_uc;
-  const char *lc = ((const struct _ffeintrin_name_ *) intrinsic)->name_lc;
-  const char *ic = ((const struct _ffeintrin_name_ *) intrinsic)->name_ic;
+  const char *const uc = ((const struct _ffeintrin_name_ *) intrinsic)->name_uc;
+  const char *const lc = ((const struct _ffeintrin_name_ *) intrinsic)->name_lc;
+  const char *const ic = ((const struct _ffeintrin_name_ *) intrinsic)->name_ic;
 
   return ffesrc_strcmp_2c (ffe_case_intrin (), name, uc, lc, ic);
 }
diff --git a/gcc/f/stc.c b/gcc/f/stc.c
index 8a7efa6fc55..1f17766d9ac 100644
--- a/gcc/f/stc.c
+++ b/gcc/f/stc.c
@@ -10203,8 +10203,7 @@ ffestc_R904 ()
 {
   int i;
   int expect_file;
-  const char *const status_strs[]
-  =
+  static const char *const status_strs[] =
   {
     "New",
     "Old",
@@ -10212,29 +10211,25 @@ ffestc_R904 ()
     "Scratch",
     "Unknown"
   };
-  const char *const access_strs[]
-  =
+  static const char *const access_strs[] =
   {
     "Append",
     "Direct",
     "Keyed",
     "Sequential"
   };
-  const char *const blank_strs[]
-  =
+  static const char *const blank_strs[] =
   {
     "Null",
     "Zero"
   };
-  const char *const carriagecontrol_strs[]
-  =
+  static const char *const carriagecontrol_strs[] =
   {
     "Fortran",
     "List",
     "None"
   };
-  const char *const dispose_strs[]
-  =
+  static const char *const dispose_strs[] =
   {
     "Delete",
     "Keep",
@@ -10244,42 +10239,36 @@ ffestc_R904 ()
     "Submit",
     "Submit/Delete"
   };
-  const char *const form_strs[]
-  =
+  static const char *const form_strs[] =
   {
     "Formatted",
     "Unformatted"
   };
-  const char *const organization_strs[]
-  =
+  static const char *const organization_strs[] =
   {
     "Indexed",
     "Relative",
     "Sequential"
   };
-  const char *const position_strs[]
-  =
+  static const char *const position_strs[] =
   {
     "Append",
     "AsIs",
     "Rewind"
   };
-  const char *const action_strs[]
-  =
+  static const char *const action_strs[] =
   {
     "Read",
     "ReadWrite",
     "Write"
   };
-  const char *const delim_strs[]
-  =
+  static const char *const delim_strs[] =
   {
     "Apostrophe",
     "None",
     "Quote"
   };
-  const char *const recordtype_strs[]
-  =
+  static const char *const recordtype_strs[] =
   {
     "Fixed",
     "Segmented",
@@ -10288,8 +10277,7 @@ ffestc_R904 ()
     "Stream_LF",
     "Variable"
   };
-  const char *const pad_strs[]
-  =
+  static const char *const pad_strs[] =
   {
     "No",
     "Yes"
@@ -10458,8 +10446,7 @@ ffestc_R904 ()
 void
 ffestc_R907 ()
 {
-  const char *const status_strs[]
-  =
+  static const char *const status_strs[] =
   {
     "Delete",
     "Keep",