Skip to content

R
riscv-gcc-1
Commit 19dab795 by Kaveh R. Ghazi Committed by Kaveh Ghazi
Options

bld.c (ffebld_op_string_): Const-ification. 

	* 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
parent 40008eda
Showing with 51 additions and 32 deletions
gcc/f/ChangeLog
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> 2001-09-11 Richard Henderson <rth@redhat.com>
* parse.c (finput): Mark extern. * parse.c (finput): Mark extern.
......
gcc/f/bld.c
...@@ -203,7 +203,7 @@ static ffebldConstant ffebld_constant_hollerith_; ...@@ -203,7 +203,7 @@ static ffebldConstant ffebld_constant_hollerith_;
static ffebldConstant ffebld_constant_typeless_[FFEBLD_constTYPELESS_LAST static ffebldConstant ffebld_constant_typeless_[FFEBLD_constTYPELESS_LAST
- FFEBLD_constTYPELESS_FIRST + 1]; - FFEBLD_constTYPELESS_FIRST + 1];
static const char *ffebld_op_string_[] static const char *const ffebld_op_string_[]
= =
{ {
#define FFEBLD_OP(KWD,NAME,ARITY) NAME, #define FFEBLD_OP(KWD,NAME,ARITY) NAME,
......
gcc/f/com.c
...@@ -448,7 +448,7 @@ static tree ffecom_gfrt_[FFECOM_gfrt] ...@@ -448,7 +448,7 @@ static tree ffecom_gfrt_[FFECOM_gfrt]
/* Holds the external names of the functions. */ /* 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, #define DEFGFRT(CODE,NAME,TYPE,ARGS,VOLATILE,COMPLEX,CONST) NAME,
...@@ -499,7 +499,7 @@ static ffecomRttype_ ffecom_gfrt_type_[FFECOM_gfrt] ...@@ -499,7 +499,7 @@ static ffecomRttype_ ffecom_gfrt_type_[FFECOM_gfrt]
/* String of codes for the function's arguments. */ /* 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, #define DEFGFRT(CODE,NAME,TYPE,ARGS,VOLATILE,COMPLEX,CONST) ARGS,
......
gcc/f/fini.c
...@@ -62,7 +62,7 @@ static FILE *out; ...@@ -62,7 +62,7 @@ static FILE *out;
static char prefix[32]; static char prefix[32];
static char postfix[32]; static char postfix[32];
static char storage[32]; static char storage[32];
static const char *xspaces[] static const char *const xspaces[]
= =
{ {
"", /* 0 */ "", /* 0 */
......
gcc/f/global.c
...@@ -60,7 +60,7 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA ...@@ -60,7 +60,7 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
#if FFEGLOBAL_ENABLED #if FFEGLOBAL_ENABLED
static ffenameSpace ffeglobal_filewide_ = NULL; static ffenameSpace ffeglobal_filewide_ = NULL;
static const char *ffeglobal_type_string_[] = static const char *const ffeglobal_type_string_[] =
{ {
[FFEGLOBAL_typeNONE] "??", [FFEGLOBAL_typeNONE] "??",
[FFEGLOBAL_typeMAIN] "main program", [FFEGLOBAL_typeMAIN] "main program",
......
gcc/f/info.c
...@@ -55,21 +55,21 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA ...@@ -55,21 +55,21 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
/* Static objects accessed by functions in this module. */ /* 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, #define FFEINFO_BASICTYPE(KWD,LNAM,SNAM) SNAM,
#include "info-b.def" #include "info-b.def"
#undef FFEINFO_BASICTYPE #undef FFEINFO_BASICTYPE
}; };
static const char *ffeinfo_kind_message_[] static const char *const ffeinfo_kind_message_[]
= =
{ {
#define FFEINFO_KIND(KWD,LNAM,SNAM) LNAM, #define FFEINFO_KIND(KWD,LNAM,SNAM) LNAM,
#include "info-k.def" #include "info-k.def"
#undef FFEINFO_KIND #undef FFEINFO_KIND
}; };
static const char *ffeinfo_kind_string_[] static const char *const ffeinfo_kind_string_[]
= =
{ {
#define FFEINFO_KIND(KWD,LNAM,SNAM) SNAM, #define FFEINFO_KIND(KWD,LNAM,SNAM) SNAM,
...@@ -77,7 +77,7 @@ static const char *ffeinfo_kind_string_[] ...@@ -77,7 +77,7 @@ static const char *ffeinfo_kind_string_[]
#undef FFEINFO_KIND #undef FFEINFO_KIND
}; };
static ffeinfoBasictype ffeinfo_combine_[FFEINFO_basictype][FFEINFO_basictype]; static ffeinfoBasictype ffeinfo_combine_[FFEINFO_basictype][FFEINFO_basictype];
static const char *ffeinfo_kindtype_string_[] static const char *const ffeinfo_kindtype_string_[]
= =
{ {
"", "",
...@@ -91,7 +91,7 @@ static const char *ffeinfo_kindtype_string_[] ...@@ -91,7 +91,7 @@ static const char *ffeinfo_kindtype_string_[]
"8", "8",
"*", "*",
}; };
static const char *ffeinfo_where_string_[] static const char *const ffeinfo_where_string_[]
= =
{ {
#define FFEINFO_WHERE(KWD,LNAM,SNAM) SNAM, #define FFEINFO_WHERE(KWD,LNAM,SNAM) SNAM,
......
gcc/f/lex.c
...@@ -1742,7 +1742,7 @@ ffelex_token_new_ () ...@@ -1742,7 +1742,7 @@ ffelex_token_new_ ()
static const char * static const char *
ffelex_type_string_ (ffelexType type) ffelex_type_string_ (ffelexType type)
{ {
static const char *types[] = { static const char *const types[] = {
"FFELEX_typeNONE", "FFELEX_typeNONE",
"FFELEX_typeCOMMENT", "FFELEX_typeCOMMENT",
"FFELEX_typeEOS", "FFELEX_typeEOS",
......
gcc/f/malloc.c
...@@ -70,7 +70,7 @@ struct _malloc_root_ malloc_root_ ...@@ -70,7 +70,7 @@ struct _malloc_root_ malloc_root_
static void *malloc_reserve_ = NULL; /* For crashes. */ static void *malloc_reserve_ = NULL; /* For crashes. */
#if MALLOC_DEBUG #if MALLOC_DEBUG
static const char *malloc_types_[] = static const char *const malloc_types_[] =
{"KS", "KSR", "NF", "NFR", "US", "USR"}; {"KS", "KSR", "NF", "NFR", "US", "USR"};
#endif #endif
......
gcc/f/stc.c
...@@ -339,8 +339,8 @@ static void ffestc_shriek_where_ (bool ok); ...@@ -339,8 +339,8 @@ static void ffestc_shriek_where_ (bool ok);
#if FFESTR_F90 #if FFESTR_F90
static void ffestc_shriek_wherethen_ (bool ok); static void ffestc_shriek_wherethen_ (bool ok);
#endif #endif
static int ffestc_subr_binsrch_ (const char **list, int size, ffestpFile *spec, static int ffestc_subr_binsrch_ (const char *const *list, int size,
const char *whine); ffestpFile *spec, const char *whine);
static ffestvFormat ffestc_subr_format_ (ffestpFile *spec); static ffestvFormat ffestc_subr_format_ (ffestpFile *spec);
static bool ffestc_subr_is_branch_ (ffestpFile *spec); static bool ffestc_subr_is_branch_ (ffestpFile *spec);
static bool ffestc_subr_is_format_ (ffestpFile *spec); static bool ffestc_subr_is_format_ (ffestpFile *spec);
...@@ -5044,7 +5044,8 @@ ffestc_shriek_wherethen_ (bool ok) ...@@ -5044,7 +5044,8 @@ ffestc_shriek_wherethen_ (bool ok)
using "etc" as the pick-one-of-these string. */ using "etc" as the pick-one-of-these string. */
static int 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 lowest_tested;
int highest_tested; int highest_tested;
...@@ -10202,7 +10203,7 @@ ffestc_R904 () ...@@ -10202,7 +10203,7 @@ ffestc_R904 ()
{ {
int i; int i;
int expect_file; int expect_file;
const char *status_strs[] const char *const status_strs[]
= =
{ {
"New", "New",
...@@ -10211,7 +10212,7 @@ ffestc_R904 () ...@@ -10211,7 +10212,7 @@ ffestc_R904 ()
"Scratch", "Scratch",
"Unknown" "Unknown"
}; };
const char *access_strs[] const char *const access_strs[]
= =
{ {
"Append", "Append",
...@@ -10219,20 +10220,20 @@ ffestc_R904 () ...@@ -10219,20 +10220,20 @@ ffestc_R904 ()
"Keyed", "Keyed",
"Sequential" "Sequential"
}; };
const char *blank_strs[] const char *const blank_strs[]
= =
{ {
"Null", "Null",
"Zero" "Zero"
}; };
const char *carriagecontrol_strs[] const char *const carriagecontrol_strs[]
= =
{ {
"Fortran", "Fortran",
"List", "List",
"None" "None"
}; };
const char *dispose_strs[] const char *const dispose_strs[]
= =
{ {
"Delete", "Delete",
...@@ -10243,41 +10244,41 @@ ffestc_R904 () ...@@ -10243,41 +10244,41 @@ ffestc_R904 ()
"Submit", "Submit",
"Submit/Delete" "Submit/Delete"
}; };
const char *form_strs[] const char *const form_strs[]
= =
{ {
"Formatted", "Formatted",
"Unformatted" "Unformatted"
}; };
const char *organization_strs[] const char *const organization_strs[]
= =
{ {
"Indexed", "Indexed",
"Relative", "Relative",
"Sequential" "Sequential"
}; };
const char *position_strs[] const char *const position_strs[]
= =
{ {
"Append", "Append",
"AsIs", "AsIs",
"Rewind" "Rewind"
}; };
const char *action_strs[] const char *const action_strs[]
= =
{ {
"Read", "Read",
"ReadWrite", "ReadWrite",
"Write" "Write"
}; };
const char *delim_strs[] const char *const delim_strs[]
= =
{ {
"Apostrophe", "Apostrophe",
"None", "None",
"Quote" "Quote"
}; };
const char *recordtype_strs[] const char *const recordtype_strs[]
= =
{ {
"Fixed", "Fixed",
...@@ -10287,7 +10288,7 @@ ffestc_R904 () ...@@ -10287,7 +10288,7 @@ ffestc_R904 ()
"Stream_LF", "Stream_LF",
"Variable" "Variable"
}; };
const char *pad_strs[] const char *const pad_strs[]
= =
{ {
"No", "No",
...@@ -10457,7 +10458,7 @@ ffestc_R904 () ...@@ -10457,7 +10458,7 @@ ffestc_R904 ()
void void
ffestc_R907 () ffestc_R907 ()
{ {
const char *status_strs[] const char *const status_strs[]
= =
{ {
"Delete", "Delete",
......
gcc/f/symbol.c
...@@ -117,7 +117,7 @@ static ffesymbolRetract_ *ffesymbol_retract_list_; ...@@ -117,7 +117,7 @@ static ffesymbolRetract_ *ffesymbol_retract_list_;
/* List of state names. */ /* List of state names. */
static const char *ffesymbol_state_name_[] = static const char *const ffesymbol_state_name_[] =
{ {
"?", "?",
"@", "@",
...@@ -127,7 +127,7 @@ static const char *ffesymbol_state_name_[] = ...@@ -127,7 +127,7 @@ static const char *ffesymbol_state_name_[] =
/* List of attribute names. */ /* List of attribute names. */
static const char *ffesymbol_attr_name_[] = static const char *const ffesymbol_attr_name_[] =
{ {
#define DEFATTR(ATTR,ATTRS,NAME) NAME, #define DEFATTR(ATTR,ATTRS,NAME) NAME,
#include "symbol.def" #include "symbol.def"
......
gcc/f/version.c
const char *ffe_version_string = "0.5.27 20010912 (experimental)"; const char *const ffe_version_string = "0.5.27 20010912 (experimental)";
gcc/f/version.h
#ifndef GCC_F_VERSION_H #ifndef GCC_F_VERSION_H
#define 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 */ #endif /* ! GCC_F_VERSION_H */
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment