Warning fixes:

        * sta.c (ffesta_ffebad_1sp, ffesta_ffebad_1st, ffesta_ffebad_2st):
        Const-ify a char*.
        * sta.h (ffesta_ffebad_1sp, ffesta_ffebad_1st, ffesta_ffebad_2st):
        Likewise.
        * stb.c (ffestb_local_u_): Likewise.
        (ffestb_do, ffestb_dowhile, ffestb_else, ffestb_elsexyz,
        ffestb_else3_, ffestb_endxyz, ffestb_goto, ffestb_let,
        ffestb_type, ffestb_type1_, ffestb_varlist, ffestb_R423B,
        ffestb_R522, ffestb_R528, ffestb_R542, ffestb_R834, ffestb_R835,
        ffestb_R838, ffestb_R841, ffestb_R1102, ffestb_blockdata,
        ffestb_R1212, ffestb_R1228, ffestb_V009, ffestb_module,
        ffestb_R809, ffestb_R810, ffestb_R10014_, ffestb_R10015_,
        ffestb_R10018_, ffestb_R1107, ffestb_R1202, ffestb_R12026_,
        ffestb_S3P4, ffestb_V012, ffestb_V014, ffestb_V025, ffestb_V0255_,
        ffestb_V020, ffestb_dimlist, ffestb_dummy, ffestb_R524,
        ffestb_R547, ffestb_decl_chartype, ffestb_decl_dbltype,
        ffestb_decl_gentype, ffestb_decl_recursive, ffestb_decl_entsp_2_,
        ffestb_decl_func_, ffestb_V003, ffestb_V016, ffestb_V027,
        ffestb_decl_R539): Likewise.
        * stb.h (_ffestb_args_): Likewise.
        * stc.c (ffestc_subr_binsrch_, ffestc_subr_is_present_,
        ffestc_subr_speccmp_, ffestc_R904, ffestc_R907): Likewise.
        * std.c (ffestd_R1001dump_1005_1_, ffestd_R1001dump_1005_2_,
        ffestd_R1001dump_1005_3_, ffestd_R1001dump_1005_4_,
        ffestd_R1001dump_1005_5_, ffestd_R1001dump_1010_1_,
        ffestd_R1001dump_1010_2_, ffestd_R1001dump_1010_3_,
        ffestd_R1001dump_1010_4_, ffestd_R1001dump_1010_5_): Likewise.
        * ste.c (ffeste_begin_iterdo_, ffeste_subr_file_): Likewise.
        * sts.c (ffests_printf_1D, ffests_printf_1U, ffests_printf_1s,
        ffests_printf_2Us, ffests_puts, ffests_puttext): Likewise.
        * sts.h (ffests_printf_1D, ffests_printf_1U, ffests_printf_1s,
        ffests_printf_2Us, ffests_puts, ffests_puttext): Likewise.
        * stt.c (ffestt_exprlist_drive, ffestt_implist_drive,
        ffestt_tokenlist_drive): Add prototype arguments.
        * stt.h (ffestt_exprlist_drive, ffestt_implist_drive,
        ffestt_tokenlist_drive): Likewise.
        * stu.c (ffestu_dummies_transition_): Likewise.
        (ffestu_sym_end_transition): Const-ify a char*.
        * stw.c (ffestw_display_state, ffestw_new, ffestw_pop): Add
        prototype arguments.
        * stw.h (ffestw_display_state, ffestw_new, ffestw_pop): Likewise.
        * version.c (ffe_version_string): Const-ify a char*.
        * version.h (ffe_version_string): Likewise.

From-SVN: r26064

gcc/f/ChangeLog

+Tue Mar 30 12:04:11 1999  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+        * sta.c (ffesta_ffebad_1sp, ffesta_ffebad_1st, ffesta_ffebad_2st):
+        Const-ify a char*.
+
+        * sta.h (ffesta_ffebad_1sp, ffesta_ffebad_1st, ffesta_ffebad_2st):
+        Likewise.
+
+        * stb.c (ffestb_local_u_): Likewise.
+        (ffestb_do, ffestb_dowhile, ffestb_else, ffestb_elsexyz,
+        ffestb_else3_, ffestb_endxyz, ffestb_goto, ffestb_let,
+        ffestb_type, ffestb_type1_, ffestb_varlist, ffestb_R423B,
+        ffestb_R522, ffestb_R528, ffestb_R542, ffestb_R834, ffestb_R835,
+        ffestb_R838, ffestb_R841, ffestb_R1102, ffestb_blockdata,
+        ffestb_R1212, ffestb_R1228, ffestb_V009, ffestb_module,
+        ffestb_R809, ffestb_R810, ffestb_R10014_, ffestb_R10015_,
+        ffestb_R10018_, ffestb_R1107, ffestb_R1202, ffestb_R12026_,
+        ffestb_S3P4, ffestb_V012, ffestb_V014, ffestb_V025, ffestb_V0255_,
+        ffestb_V020, ffestb_dimlist, ffestb_dummy, ffestb_R524,
+        ffestb_R547, ffestb_decl_chartype, ffestb_decl_dbltype,
+        ffestb_decl_gentype, ffestb_decl_recursive, ffestb_decl_entsp_2_,
+        ffestb_decl_func_, ffestb_V003, ffestb_V016, ffestb_V027,
+        ffestb_decl_R539): Likewise.
+
+        * stb.h (_ffestb_args_): Likewise.
+
+        * stc.c (ffestc_subr_binsrch_, ffestc_subr_is_present_,
+        ffestc_subr_speccmp_, ffestc_R904, ffestc_R907): Likewise.
+
+        * std.c (ffestd_R1001dump_1005_1_, ffestd_R1001dump_1005_2_,
+        ffestd_R1001dump_1005_3_, ffestd_R1001dump_1005_4_,
+        ffestd_R1001dump_1005_5_, ffestd_R1001dump_1010_1_,
+        ffestd_R1001dump_1010_2_, ffestd_R1001dump_1010_3_,
+        ffestd_R1001dump_1010_4_, ffestd_R1001dump_1010_5_): Likewise.
+
+        * ste.c (ffeste_begin_iterdo_, ffeste_subr_file_): Likewise.
+
+        * sts.c (ffests_printf_1D, ffests_printf_1U, ffests_printf_1s,
+        ffests_printf_2Us, ffests_puts, ffests_puttext): Likewise.
+
+        * sts.h (ffests_printf_1D, ffests_printf_1U, ffests_printf_1s,
+        ffests_printf_2Us, ffests_puts, ffests_puttext): Likewise.
+
+        * stt.c (ffestt_exprlist_drive, ffestt_implist_drive,
+        ffestt_tokenlist_drive): Add prototype arguments.
+
+        * stt.h (ffestt_exprlist_drive, ffestt_implist_drive,
+        ffestt_tokenlist_drive): Likewise.
+
+        * stu.c (ffestu_dummies_transition_): Likewise.
+        (ffestu_sym_end_transition): Const-ify a char*.
+
+        * stw.c (ffestw_display_state, ffestw_new, ffestw_pop): Add
+        prototype arguments.
+
+        * stw.h (ffestw_display_state, ffestw_new, ffestw_pop): Likewise.
+
+        * version.c (ffe_version_string): Const-ify a char*.
+
+        * version.h (ffe_version_string): Likewise.
+
 Sat Mar 27 13:00:43 1999  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
 	* bad.c (_ffebad_message_, ffebad_string_, ffebad_message_,

gcc/f/sta.c

@@ -1701,7 +1701,7 @@ ffesta_ffebad_1p (ffebad errnum, ffelexToken names_token, ffeTokenLength index,
 }
 
 void
-ffesta_ffebad_1sp (ffebad errnum, char *s, ffelexToken names_token,
+ffesta_ffebad_1sp (ffebad errnum, const char *s, ffelexToken names_token,
 		   ffeTokenLength index, ffelexToken next_token)
 {
   ffewhereLine line;
@@ -1735,7 +1735,7 @@ ffesta_ffebad_1sp (ffebad errnum, char *s, ffelexToken names_token,
 }
 
 void
-ffesta_ffebad_1st (ffebad errnum, char *s, ffelexToken t)
+ffesta_ffebad_1st (ffebad errnum, const char *s, ffelexToken t)
 {
   if (ffesta_ffebad_start (errnum))
     {
@@ -1764,7 +1764,7 @@ ffesta_ffebad_1t (ffebad errnum, ffelexToken t)
 }
 
 void
-ffesta_ffebad_2st (ffebad errnum, char *s, ffelexToken t1, ffelexToken t2)
+ffesta_ffebad_2st (ffebad errnum, const char *s, ffelexToken t1, ffelexToken t2)
 {
   if (ffesta_ffebad_start (errnum))
     {

gcc/f/sta.h

@@ -90,11 +90,11 @@ ffesymbol ffesta_sym_end_transition (ffesymbol s);
 ffesymbol ffesta_sym_exec_transition (ffesymbol s);
 void ffesta_ffebad_1p (ffebad msg, ffelexToken names_token,
 		       ffeTokenLength index, ffelexToken next_token);
-void ffesta_ffebad_1sp (ffebad msg, char *s, ffelexToken names_token,
+void ffesta_ffebad_1sp (ffebad msg, const char *s, ffelexToken names_token,
 			ffeTokenLength index, ffelexToken next_token);
-void ffesta_ffebad_1st (ffebad msg, char *s, ffelexToken t);
+void ffesta_ffebad_1st (ffebad msg, const char *s, ffelexToken t);
 void ffesta_ffebad_1t (ffebad msg, ffelexToken t);
-void ffesta_ffebad_2st (ffebad msg, char *s, ffelexToken t1, ffelexToken t2);
+void ffesta_ffebad_2st (ffebad msg, const char *s, ffelexToken t1, ffelexToken t2);
 void ffesta_ffebad_2t (ffebad msg, ffelexToken t1, ffelexToken t2);
 ffelexHandler ffesta_zero (ffelexToken t);
 ffelexHandler ffesta_two (ffelexToken first, ffelexToken second);

gcc/f/stb.h

@@ -50,7 +50,7 @@ struct _ffestb_args_
   {
     struct
       {
-	char *badname;
+	const char *badname;
 	ffeTokenLength len;	/* Length of "ENTRY/FUNCTION/SUBROUTINE". */
 	bool is_subr;		/* TRUE if SUBROUTINE or if ENTRY within
 				   SUBROUTINE. */
@@ -58,7 +58,7 @@ struct _ffestb_args_
     dummy;
     struct
       {
-	char *badname;
+	const char *badname;
 	ffeTokenLength len;	/* Length of
 				   "BACKSPACE/ENDFILE/REWIND/UNLOCK". */
       }
@@ -82,7 +82,7 @@ struct _ffestb_args_
 #if FFESTR_F90
     struct
       {
-	char *badname;
+	const char *badname;
 	ffeTokenLength len;	/* Length of "ALLOCATE/DEALLOCATE". */
 	ffeexprContext ctx;	/* Either ALLOCATE or DEALLOCATE. */
       }
@@ -90,7 +90,7 @@ struct _ffestb_args_
 #endif
     struct
       {
-	char *badname;
+	const char *badname;
 	ffeTokenLength len;	/* Length of
 				   "EXTERNAL/INTENT/INTRINSIC/OPTIONAL/PUBLIC/
 				   PRIVATE". */
@@ -99,7 +99,7 @@ struct _ffestb_args_
 #if FFESTR_VXT
     struct
       {
-	char *badname;
+	const char *badname;
 	ffeTokenLength len;	/* Length of "ENCODE/DECODE". */
       }
     vxtcode;
@@ -107,14 +107,14 @@ struct _ffestb_args_
 #if FFESTR_F90
     struct
       {
-	char *badname;
+	const char *badname;
 	ffeTokenLength len;	/* Length of "ALLOCATABLE/POINTER/TARGET". */
       }
     dimlist;
 #endif
     struct
       {
-	char *badname;
+	const char *badname;
 	ffeTokenLength len;	/* Length of "DIMENSION/VIRTUAL". */
       }
     R524;

gcc/f/stc.c

@@ -339,14 +339,14 @@ static void ffestc_shriek_where_ (bool ok);
 #if FFESTR_F90
 static void ffestc_shriek_wherethen_ (bool ok);
 #endif
-static int ffestc_subr_binsrch_ (char **list, int size, ffestpFile *spec,
-				 char *whine);
+static int ffestc_subr_binsrch_ (const char **list, int size, ffestpFile *spec,
+				 const char *whine);
 static ffestvFormat ffestc_subr_format_ (ffestpFile *spec);
 static bool ffestc_subr_is_branch_ (ffestpFile *spec);
 static bool ffestc_subr_is_format_ (ffestpFile *spec);
-static bool ffestc_subr_is_present_ (char *name, ffestpFile *spec);
-static int ffestc_subr_speccmp_ (char *string, ffestpFile *spec,
-				 char **target, int *length);
+static bool ffestc_subr_is_present_ (const char *name, ffestpFile *spec);
+static int ffestc_subr_speccmp_ (const char *string, ffestpFile *spec,
+				 const char **target, int *length);
 static ffestvUnit ffestc_subr_unit_ (ffestpFile *spec);
 static void ffestc_try_shriek_do_ (void);
 
@@ -5044,14 +5044,14 @@ ffestc_shriek_wherethen_ (bool ok)
    using "etc" as the pick-one-of-these string.	 */
 
 static int
-ffestc_subr_binsrch_ (char **list, int size, ffestpFile *spec, char *whine)
+ffestc_subr_binsrch_ (const char **list, int size, ffestpFile *spec, const char *whine)
 {
   int lowest_tested;
   int highest_tested;
   int halfway;
   int offset;
   int c;
-  char *str;
+  const char *str;
   int len;
 
   if (size == 0)
@@ -5186,7 +5186,7 @@ ffestc_subr_is_format_ (ffestpFile *spec)
    ffestc_subr_is_present_("SPECIFIER",&specifier);  */
 
 static bool
-ffestc_subr_is_present_ (char *name, ffestpFile *spec)
+ffestc_subr_is_present_ (const char *name, ffestpFile *spec)
 {
   if (spec->kw_or_val_present)
     {
@@ -5219,7 +5219,7 @@ ffestc_subr_is_present_ (char *name, ffestpFile *spec)
    0 if 2 is returned, the length of the constant string value otherwise.  */
 
 static int
-ffestc_subr_speccmp_ (char *string, ffestpFile *spec, char **target,
+ffestc_subr_speccmp_ (const char *string, ffestpFile *spec, const char **target,
 		      int *length)
 {
   ffebldConstant c;
@@ -10198,7 +10198,7 @@ ffestc_R904 ()
 {
   int i;
   int expect_file;
-  char *status_strs[]
+  const char *status_strs[]
   =
   {
     "New",
@@ -10207,7 +10207,7 @@ ffestc_R904 ()
     "Scratch",
     "Unknown"
   };
-  char *access_strs[]
+  const char *access_strs[]
   =
   {
     "Append",
@@ -10215,20 +10215,20 @@ ffestc_R904 ()
     "Keyed",
     "Sequential"
   };
-  char *blank_strs[]
+  const char *blank_strs[]
   =
   {
     "Null",
     "Zero"
   };
-  char *carriagecontrol_strs[]
+  const char *carriagecontrol_strs[]
   =
   {
     "Fortran",
     "List",
     "None"
   };
-  char *dispose_strs[]
+  const char *dispose_strs[]
   =
   {
     "Delete",
@@ -10239,41 +10239,41 @@ ffestc_R904 ()
     "Submit",
     "Submit/Delete"
   };
-  char *form_strs[]
+  const char *form_strs[]
   =
   {
     "Formatted",
     "Unformatted"
   };
-  char *organization_strs[]
+  const char *organization_strs[]
   =
   {
     "Indexed",
     "Relative",
     "Sequential"
   };
-  char *position_strs[]
+  const char *position_strs[]
   =
   {
     "Append",
     "AsIs",
     "Rewind"
   };
-  char *action_strs[]
+  const char *action_strs[]
   =
   {
     "Read",
     "ReadWrite",
     "Write"
   };
-  char *delim_strs[]
+  const char *delim_strs[]
   =
   {
     "Apostrophe",
     "None",
     "Quote"
   };
-  char *recordtype_strs[]
+  const char *recordtype_strs[]
   =
   {
     "Fixed",
@@ -10283,7 +10283,7 @@ ffestc_R904 ()
     "Stream_LF",
     "Variable"
   };
-  char *pad_strs[]
+  const char *pad_strs[]
   =
   {
     "No",
@@ -10453,7 +10453,7 @@ ffestc_R904 ()
 void
 ffestc_R907 ()
 {
-  char *status_strs[]
+  const char *status_strs[]
   =
   {
     "Delete",

gcc/f/std.c

@@ -526,25 +526,25 @@ static void ffestd_subr_f90_ (void);
 static void ffestd_subr_labels_ (bool unexpected);
 static void ffestd_R1001dump_ (ffests s, ffesttFormatList list);
 static void ffestd_R1001dump_1005_1_ (ffests s, ffesttFormatList f,
-				      char *string);
+				      const char *string);
 static void ffestd_R1001dump_1005_2_ (ffests s, ffesttFormatList f,
-				      char *string);
+				      const char *string);
 static void ffestd_R1001dump_1005_3_ (ffests s, ffesttFormatList f,
-				      char *string);
+				      const char *string);
 static void ffestd_R1001dump_1005_4_ (ffests s, ffesttFormatList f,
-				      char *string);
+				      const char *string);
 static void ffestd_R1001dump_1005_5_ (ffests s, ffesttFormatList f,
-				      char *string);
+				      const char *string);
 static void ffestd_R1001dump_1010_1_ (ffests s, ffesttFormatList f,
-				      char *string);
+				      const char *string);
 static void ffestd_R1001dump_1010_2_ (ffests s, ffesttFormatList f,
-				      char *string);
+				      const char *string);
 static void ffestd_R1001dump_1010_3_ (ffests s, ffesttFormatList f,
-				      char *string);
+				      const char *string);
 static void ffestd_R1001dump_1010_4_ (ffests s, ffesttFormatList f,
-				      char *string);
+				      const char *string);
 static void ffestd_R1001dump_1010_5_ (ffests s, ffesttFormatList f,
-				      char *string);
+				      const char *string);
 static void ffestd_R1001error_ (ffesttFormatList f);
 static void ffestd_R1001rtexpr_ (ffests s, ffesttFormatList f, ffebld expr);
 
@@ -4487,7 +4487,7 @@ ffestd_R1001dump_ (ffests s, ffesttFormatList list)
    The format is dumped with form [r]X[w].  */
 
 static void
-ffestd_R1001dump_1005_1_ (ffests s, ffesttFormatList f, char *string)
+ffestd_R1001dump_1005_1_ (ffests s, ffesttFormatList f, const char *string)
 {
   assert (!f->u.R1005.R1007_or_R1008.present);
   assert (!f->u.R1005.R1009.present);
@@ -4519,7 +4519,7 @@ ffestd_R1001dump_1005_1_ (ffests s, ffesttFormatList f, char *string)
    The format is dumped with form [r]Xw.  */
 
 static void
-ffestd_R1001dump_1005_2_ (ffests s, ffesttFormatList f, char *string)
+ffestd_R1001dump_1005_2_ (ffests s, ffesttFormatList f, const char *string)
 {
   assert (!f->u.R1005.R1007_or_R1008.present);
   assert (!f->u.R1005.R1009.present);
@@ -4549,7 +4549,7 @@ ffestd_R1001dump_1005_2_ (ffests s, ffesttFormatList f, char *string)
    The format is dumped with form [r]Xw[.m].  */
 
 static void
-ffestd_R1001dump_1005_3_ (ffests s, ffesttFormatList f, char *string)
+ffestd_R1001dump_1005_3_ (ffests s, ffesttFormatList f, const char *string)
 {
   assert (!f->u.R1005.R1009.present);
   assert (f->u.R1005.R1006.present);
@@ -4588,7 +4588,7 @@ ffestd_R1001dump_1005_3_ (ffests s, ffesttFormatList f, char *string)
    The format is dumped with form [r]Xw.d.  */
 
 static void
-ffestd_R1001dump_1005_4_ (ffests s, ffesttFormatList f, char *string)
+ffestd_R1001dump_1005_4_ (ffests s, ffesttFormatList f, const char *string)
 {
   assert (!f->u.R1005.R1009.present);
   assert (f->u.R1005.R1007_or_R1008.present);
@@ -4624,7 +4624,7 @@ ffestd_R1001dump_1005_4_ (ffests s, ffesttFormatList f, char *string)
    The format is dumped with form [r]Xw.d[Ee].	*/
 
 static void
-ffestd_R1001dump_1005_5_ (ffests s, ffesttFormatList f, char *string)
+ffestd_R1001dump_1005_5_ (ffests s, ffesttFormatList f, const char *string)
 {
   assert (f->u.R1005.R1007_or_R1008.present);
   assert (f->u.R1005.R1006.present);
@@ -4668,7 +4668,7 @@ ffestd_R1001dump_1005_5_ (ffests s, ffesttFormatList f, char *string)
    The format is dumped with form X.  */
 
 static void
-ffestd_R1001dump_1010_1_ (ffests s, ffesttFormatList f, char *string)
+ffestd_R1001dump_1010_1_ (ffests s, ffesttFormatList f, const char *string)
 {
   assert (!f->u.R1010.val.present);
 
@@ -4683,7 +4683,7 @@ ffestd_R1001dump_1010_1_ (ffests s, ffesttFormatList f, char *string)
    The format is dumped with form [r]X.	 */
 
 static void
-ffestd_R1001dump_1010_2_ (ffests s, ffesttFormatList f, char *string)
+ffestd_R1001dump_1010_2_ (ffests s, ffesttFormatList f, const char *string)
 {
   if (f->u.R1010.val.present)
     {
@@ -4704,7 +4704,7 @@ ffestd_R1001dump_1010_2_ (ffests s, ffesttFormatList f, char *string)
    The format is dumped with form nX.  */
 
 static void
-ffestd_R1001dump_1010_3_ (ffests s, ffesttFormatList f, char *string)
+ffestd_R1001dump_1010_3_ (ffests s, ffesttFormatList f, const char *string)
 {
   assert (f->u.R1010.val.present);
 
@@ -4724,7 +4724,7 @@ ffestd_R1001dump_1010_3_ (ffests s, ffesttFormatList f, char *string)
    The format is dumped with form kX.  Note that k is signed.  */
 
 static void
-ffestd_R1001dump_1010_4_ (ffests s, ffesttFormatList f, char *string)
+ffestd_R1001dump_1010_4_ (ffests s, ffesttFormatList f, const char *string)
 {
   assert (f->u.R1010.val.present);
 
@@ -4744,7 +4744,7 @@ ffestd_R1001dump_1010_4_ (ffests s, ffesttFormatList f, char *string)
    The format is dumped with form Xn.  */
 
 static void
-ffestd_R1001dump_1010_5_ (ffests s, ffesttFormatList f, char *string)
+ffestd_R1001dump_1010_5_ (ffests s, ffesttFormatList f, const char *string)
 {
   assert (f->u.R1010.val.present);
 

gcc/f/ste.c

@@ -113,7 +113,7 @@ static void ffeste_begin_iterdo_ (ffestw block, tree *tvar, tree *tincr,
 				  ffebld start, ffelexToken start_token,
 				  ffebld end, ffelexToken end_token,
 				  ffebld incr, ffelexToken incr_token,
-				  char *msg);
+				  const char *msg);
 static void ffeste_end_iterdo_ (tree tvar, tree tincr, tree itersvar);
 static void ffeste_io_call_ (tree call, bool do_check);
 static tree ffeste_io_dofio_ (ffebld expr);
@@ -141,7 +141,7 @@ static tree ffeste_io_olist_ (bool have_err, ffebld unit_expr,
 			      ffestpFile *blank_spec);
 static void ffeste_subr_beru_ (ffestpBeruStmt *info, ffecomGfrt rt);
 #elif FFECOM_targetCURRENT == FFECOM_targetFFE
-static void ffeste_subr_file_ (char *kw, ffestpFile *spec);
+static void ffeste_subr_file_ (const char *kw, ffestpFile *spec);
 #else
 #error
 #endif
@@ -302,7 +302,7 @@ ffeste_begin_iterdo_ (ffestw block, tree *xtvar, tree *xtincr,
 		      ffebld start, ffelexToken start_token,
 		      ffebld end, ffelexToken end_token,
 		      ffebld incr, ffelexToken incr_token,
-		      char *msg)
+		      const char *msg)
 {
   tree tvar;
   tree expr;
@@ -1942,7 +1942,7 @@ ffeste_io_olist_ (bool have_err,
 
 #if FFECOM_targetCURRENT == FFECOM_targetFFE
 static void
-ffeste_subr_file_ (char *kw, ffestpFile *spec)
+ffeste_subr_file_ (const char *kw, ffestpFile *spec)
 {
   if (!spec->kw_or_val_present)
     return;

gcc/f/sts.c

@@ -104,7 +104,7 @@ ffests_new (ffests s, mallocPool pool, ffestsLength size)
    Like printf, but into a string.  */
 
 void
-ffests_printf_1D (ffests s, char *ctl, long arg1)
+ffests_printf_1D (ffests s, const char *ctl, long arg1)
 {
   char quickbuf[40];
   char *buff;
@@ -133,7 +133,7 @@ ffests_printf_1D (ffests s, char *ctl, long arg1)
    Like printf, but into a string.  */
 
 void
-ffests_printf_1U (ffests s, char *ctl, unsigned long arg1)
+ffests_printf_1U (ffests s, const char *ctl, unsigned long arg1)
 {
   char quickbuf[40];
   char *buff;
@@ -162,7 +162,7 @@ ffests_printf_1U (ffests s, char *ctl, unsigned long arg1)
    Like printf, but into a string.  */
 
 void
-ffests_printf_1s (ffests s, char *ctl, char *arg1)
+ffests_printf_1s (ffests s, const char *ctl, const char *arg1)
 {
   char quickbuf[40];
   char *buff;
@@ -190,7 +190,7 @@ ffests_printf_1s (ffests s, char *ctl, char *arg1)
    Like printf, but into a string.  */
 
 void
-ffests_printf_2Us (ffests s, char *ctl, unsigned long arg1, char *arg2)
+ffests_printf_2Us (ffests s, const char *ctl, unsigned long arg1, const char *arg2)
 {
   char quickbuf[60];
   char *buff;
@@ -228,7 +228,7 @@ ffests_putc (ffests s, char c)
    ffests_puts(s,"append me");	*/
 
 void
-ffests_puts (ffests s, char *string)
+ffests_puts (ffests s, const char *string)
 {
   ffests_puttext (s, string, strlen (string));
 }
@@ -242,7 +242,7 @@ ffests_puts (ffests s, char *string)
    and may be 0.  */
 
 void
-ffests_puttext (ffests s, char *text, ffestsLength length)
+ffests_puttext (ffests s, const char *text, ffestsLength length)
 {
   ffestsLength newlen;
   ffestsLength newmax;

gcc/f/sts.h

@@ -60,14 +60,14 @@ struct _ffests_
 
 void ffests_kill (ffests s);
 void ffests_new (ffests s, mallocPool pool, ffestsLength size);
-void ffests_printf_1D (ffests s, char *ctl, long arg1);
-void ffests_printf_1U (ffests s, char *ctl, unsigned long arg1);
-void ffests_printf_1s (ffests s, char *ctl, char *arg1);
-void ffests_printf_2Us (ffests s, char *ctl, unsigned long arg1,
-			char *arg2);
+void ffests_printf_1D (ffests s, const char *ctl, long arg1);
+void ffests_printf_1U (ffests s, const char *ctl, unsigned long arg1);
+void ffests_printf_1s (ffests s, const char *ctl, const char *arg1);
+void ffests_printf_2Us (ffests s, const char *ctl, unsigned long arg1,
+			const char *arg2);
 void ffests_putc (ffests s, char c);
-void ffests_puts (ffests s, char *string);
-void ffests_puttext (ffests s, char *text, ffestsLength length);
+void ffests_puts (ffests s, const char *string);
+void ffests_puttext (ffests s, const char *text, ffestsLength length);
 
 /* Define macros. */
 

gcc/f/stt.c

@@ -598,7 +598,7 @@ ffestt_exprlist_create ()
    at a time.  */
 
 void
-ffestt_exprlist_drive (ffesttExprList list, void (*fn) ())
+ffestt_exprlist_drive (ffesttExprList list, void (*fn) (ffebld, ffelexToken))
 {
   ffesttExprList next;
 
@@ -837,7 +837,7 @@ ffestt_implist_create ()
    The token pairs in the list are passed to the function one pair at a time.  */
 
 void
-ffestt_implist_drive (ffesttImpList list, void (*fn) ())
+ffestt_implist_drive (ffesttImpList list, void (*fn) (ffelexToken, ffelexToken))
 {
   ffesttImpList next;
 
@@ -951,7 +951,7 @@ ffestt_tokenlist_create ()
    The tokens in the list are passed to the given function.  */
 
 void
-ffestt_tokenlist_drive (ffesttTokenList tl, void (*fn) ())
+ffestt_tokenlist_drive (ffesttTokenList tl, void (*fn) (ffelexToken))
 {
   ffesttTokenItem ti;
 

gcc/f/stt.h

@@ -181,7 +181,7 @@ void ffestt_dimlist_kill (ffesttDimList list);
 ffestpDimtype ffestt_dimlist_type (ffesttDimList dims, bool is_ugly_assumed);
 void ffestt_exprlist_append (ffesttExprList list, ffebld expr, ffelexToken t);
 ffesttExprList ffestt_exprlist_create (void);
-void ffestt_exprlist_drive (ffesttExprList list, void (*fn) ());
+void ffestt_exprlist_drive (ffesttExprList list, void (*fn) (ffebld, ffelexToken));
 #if FFECOM_targetCURRENT == FFECOM_targetFFE
 void ffestt_exprlist_dump (ffesttExprList list);
 #endif
@@ -196,14 +196,14 @@ void ffestt_formatlist_kill (ffesttFormatList list);
 void ffestt_implist_append (ffesttImpList list, ffelexToken first,
 			    ffelexToken last);
 ffesttImpList ffestt_implist_create (void);
-void ffestt_implist_drive (ffesttImpList list, void (*fn) ());
+void ffestt_implist_drive (ffesttImpList list, void (*fn) (ffelexToken, ffelexToken));
 #if FFECOM_targetCURRENT == FFECOM_targetFFE
 void ffestt_implist_dump (ffesttImpList list);
 #endif
 void ffestt_implist_kill (ffesttImpList list);
 void ffestt_tokenlist_append (ffesttTokenList list, ffelexToken t);
 ffesttTokenList ffestt_tokenlist_create (void);
-void ffestt_tokenlist_drive (ffesttTokenList list, void (*fn) ());
+void ffestt_tokenlist_drive (ffesttTokenList list, void (*fn) (ffelexToken));
 #if FFECOM_targetCURRENT == FFECOM_targetFFE
 void ffestt_tokenlist_dump (ffesttTokenList list);
 #endif

gcc/f/stu.c

@@ -60,7 +60,7 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 static void ffestu_list_exec_transition_ (ffebld list);
 static bool ffestu_symter_end_transition_ (ffebld expr);
 static bool ffestu_symter_exec_transition_ (ffebld expr);
-static bool ffestu_dummies_transition_ (ffesymbol (*symfunc) (),
+static bool ffestu_dummies_transition_ (ffesymbol (*symfunc) (ffesymbol),
 					ffebld list);
 
 /* Internal macros. */
@@ -122,7 +122,7 @@ ffestu_sym_end_transition (ffesymbol s)
 	  ffeinfoBasictype bt;
 	  ffeinfoKindtype kt;
 	  bool array;
-	  char *name = NULL;
+	  const char *name = NULL;
 
 	  ffestu_dummies_transition_ (ffecom_sym_end_transition,
 				      ffesymbol_dummyargs (s));
@@ -1114,7 +1114,7 @@ tail:				/* :::::::::::::::::::: */
    Make sure we don't get called recursively ourselves!	 */
 
 static bool
-ffestu_dummies_transition_ (ffesymbol (*symfunc) (), ffebld list)
+ffestu_dummies_transition_ (ffesymbol (*symfunc) (ffesymbol), ffebld list)
 {
   static bool in_progress = FALSE;
   ffebld item;

gcc/f/stw.c

@@ -74,7 +74,7 @@ ffestw ffestw_stack_top_ = NULL;
    ffestw_display_state();  */
 
 void
-ffestw_display_state ()
+ffestw_display_state (void)
 {
   assert (ffestw_stack_top_ != NULL);
 
@@ -320,7 +320,7 @@ ffestw_kill (ffestw b)
    b = ffestw_new();  */
 
 ffestw
-ffestw_new ()
+ffestw_new (void)
 {
   ffestw b;
 
@@ -335,7 +335,7 @@ ffestw_new ()
    ffestw_pop();  */
 
 ffestw
-ffestw_pop ()
+ffestw_pop (void)
 {
   ffestw b;
   ffestw oldb = ffestw_stack_top_;

gcc/f/stw.h

@@ -118,11 +118,11 @@ extern ffestw ffestw_stack_top_;
 
 /* Declare functions with prototypes. */
 
-void ffestw_display_state ();
+void ffestw_display_state (void);
 void ffestw_kill (ffestw block);
 void ffestw_init_0 (void);
-ffestw ffestw_new ();
-ffestw ffestw_pop ();
+ffestw ffestw_new (void);
+ffestw ffestw_pop (void);
 ffestw ffestw_push (ffestw block);
 ffestw ffestw_update (ffestw block);
 ffestw ffestw_use (ffestw block);

gcc/f/version.c

-char *ffe_version_string = "0.5.24-19990313";
+const char *ffe_version_string = "0.5.24-19990313";

gcc/f/version.h

 #ifndef _H_f_version
 #define _H_f_version
 
-extern char *ffe_version_string;
+extern const char *ffe_version_string;
 
 #endif