* bld.c (ffebld_op_string_): Const-ification.
* com.c (ffecom_gfrt_name_, ffecom_gfrt_argstring_): Likewise.
* fini.c (xspaces): Likewise.
* global.c (ffeglobal_type_string_): Likewise.
* info.c (ffeinfo_basictype_string_, ffeinfo_kind_message_,
ffeinfo_kind_string_, ffeinfo_kindtype_string_,
ffeinfo_where_string_): Likewise.
* lex.c (ffelex_type_string_): Likewise.
* malloc.c (malloc_types_): Likewise.
* stc.c (ffestc_subr_binsrch_, ffestc_R904, ffestc_R904,
ffestc_R907): Likewise.
* symbol.c (ffesymbol_state_name_, ffesymbol_attr_name_):
Likewise.
* version.c (ffe_version_string): Likewise.
* version.h (ffe_version_string): Likewise.
From-SVN: r45566
+Wed Sep 12 12:09:04 2001 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
+
+ * bld.c (ffebld_op_string_): Const-ification.
+ * com.c (ffecom_gfrt_name_, ffecom_gfrt_argstring_): Likewise.
+ * fini.c (xspaces): Likewise.
+ * global.c (ffeglobal_type_string_): Likewise.
+ * info.c (ffeinfo_basictype_string_, ffeinfo_kind_message_,
+ ffeinfo_kind_string_, ffeinfo_kindtype_string_,
+ ffeinfo_where_string_): Likewise.
+ * lex.c (ffelex_type_string_): Likewise.
+ * malloc.c (malloc_types_): Likewise.
+ * stc.c (ffestc_subr_binsrch_, ffestc_R904, ffestc_R904,
+ ffestc_R907): Likewise.
+ * symbol.c (ffesymbol_state_name_, ffesymbol_attr_name_):
+ Likewise.
+ * version.c (ffe_version_string): Likewise.
+ * version.h (ffe_version_string): Likewise.
+
2001-09-11 Richard Henderson <rth@redhat.com>
* parse.c (finput): Mark extern.
static ffebldConstant ffebld_constant_typeless_[FFEBLD_constTYPELESS_LAST
- FFEBLD_constTYPELESS_FIRST + 1];
-static const char *ffebld_op_string_[]
+static const char *const ffebld_op_string_[]
=
{
#define FFEBLD_OP(KWD,NAME,ARITY) NAME,
/* Holds the external names of the functions. */
-static const char *ffecom_gfrt_name_[FFECOM_gfrt]
+static const char *const ffecom_gfrt_name_[FFECOM_gfrt]
=
{
#define DEFGFRT(CODE,NAME,TYPE,ARGS,VOLATILE,COMPLEX,CONST) NAME,
/* String of codes for the function's arguments. */
-static const char *ffecom_gfrt_argstring_[FFECOM_gfrt]
+static const char *const ffecom_gfrt_argstring_[FFECOM_gfrt]
=
{
#define DEFGFRT(CODE,NAME,TYPE,ARGS,VOLATILE,COMPLEX,CONST) ARGS,
static char prefix[32];
static char postfix[32];
static char storage[32];
-static const char *xspaces[]
+static const char *const xspaces[]
=
{
"", /* 0 */
#if FFEGLOBAL_ENABLED
static ffenameSpace ffeglobal_filewide_ = NULL;
-static const char *ffeglobal_type_string_[] =
+static const char *const ffeglobal_type_string_[] =
{
[FFEGLOBAL_typeNONE] "??",
[FFEGLOBAL_typeMAIN] "main program",
/* Static objects accessed by functions in this module. */
-static const char *ffeinfo_basictype_string_[]
+static const char *const ffeinfo_basictype_string_[]
=
{
#define FFEINFO_BASICTYPE(KWD,LNAM,SNAM) SNAM,
#include "info-b.def"
#undef FFEINFO_BASICTYPE
};
-static const char *ffeinfo_kind_message_[]
+static const char *const ffeinfo_kind_message_[]
=
{
#define FFEINFO_KIND(KWD,LNAM,SNAM) LNAM,
#include "info-k.def"
#undef FFEINFO_KIND
};
-static const char *ffeinfo_kind_string_[]
+static const char *const ffeinfo_kind_string_[]
=
{
#define FFEINFO_KIND(KWD,LNAM,SNAM) SNAM,
#undef FFEINFO_KIND
};
static ffeinfoBasictype ffeinfo_combine_[FFEINFO_basictype][FFEINFO_basictype];
-static const char *ffeinfo_kindtype_string_[]
+static const char *const ffeinfo_kindtype_string_[]
=
{
"",
"8",
"*",
};
-static const char *ffeinfo_where_string_[]
+static const char *const ffeinfo_where_string_[]
=
{
#define FFEINFO_WHERE(KWD,LNAM,SNAM) SNAM,
static const char *
ffelex_type_string_ (ffelexType type)
{
- static const char *types[] = {
+ static const char *const types[] = {
"FFELEX_typeNONE",
"FFELEX_typeCOMMENT",
"FFELEX_typeEOS",
static void *malloc_reserve_ = NULL; /* For crashes. */
#if MALLOC_DEBUG
-static const char *malloc_types_[] =
+static const char *const malloc_types_[] =
{"KS", "KSR", "NF", "NFR", "US", "USR"};
#endif
#if FFESTR_F90
static void ffestc_shriek_wherethen_ (bool ok);
#endif
-static int ffestc_subr_binsrch_ (const char **list, int size, ffestpFile *spec,
- const char *whine);
+static int ffestc_subr_binsrch_ (const char *const *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);
using "etc" as the pick-one-of-these string. */
static int
-ffestc_subr_binsrch_ (const char **list, int size, ffestpFile *spec, const char *whine)
+ffestc_subr_binsrch_ (const char *const *list, int size, ffestpFile *spec,
+ const char *whine)
{
int lowest_tested;
int highest_tested;
{
int i;
int expect_file;
- const char *status_strs[]
+ const char *const status_strs[]
=
{
"New",
"Scratch",
"Unknown"
};
- const char *access_strs[]
+ const char *const access_strs[]
=
{
"Append",
"Keyed",
"Sequential"
};
- const char *blank_strs[]
+ const char *const blank_strs[]
=
{
"Null",
"Zero"
};
- const char *carriagecontrol_strs[]
+ const char *const carriagecontrol_strs[]
=
{
"Fortran",
"List",
"None"
};
- const char *dispose_strs[]
+ const char *const dispose_strs[]
=
{
"Delete",
"Submit",
"Submit/Delete"
};
- const char *form_strs[]
+ const char *const form_strs[]
=
{
"Formatted",
"Unformatted"
};
- const char *organization_strs[]
+ const char *const organization_strs[]
=
{
"Indexed",
"Relative",
"Sequential"
};
- const char *position_strs[]
+ const char *const position_strs[]
=
{
"Append",
"AsIs",
"Rewind"
};
- const char *action_strs[]
+ const char *const action_strs[]
=
{
"Read",
"ReadWrite",
"Write"
};
- const char *delim_strs[]
+ const char *const delim_strs[]
=
{
"Apostrophe",
"None",
"Quote"
};
- const char *recordtype_strs[]
+ const char *const recordtype_strs[]
=
{
"Fixed",
"Stream_LF",
"Variable"
};
- const char *pad_strs[]
+ const char *const pad_strs[]
=
{
"No",
void
ffestc_R907 ()
{
- const char *status_strs[]
+ const char *const status_strs[]
=
{
"Delete",
/* List of state names. */
-static const char *ffesymbol_state_name_[] =
+static const char *const ffesymbol_state_name_[] =
{
"?",
"@",
/* List of attribute names. */
-static const char *ffesymbol_attr_name_[] =
+static const char *const ffesymbol_attr_name_[] =
{
#define DEFATTR(ATTR,ATTRS,NAME) NAME,
#include "symbol.def"
-const char *ffe_version_string = "0.5.27 20010912 (experimental)";
+const char *const ffe_version_string = "0.5.27 20010912 (experimental)";
#ifndef GCC_F_VERSION_H
#define GCC_F_VERSION_H
-extern const char *ffe_version_string;
+extern const char *const ffe_version_string;
#endif /* ! GCC_F_VERSION_H */