diff options
Diffstat (limited to 'gcc/f')
| -rw-r--r-- | gcc/f/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/f/com.c | 4 | ||||
| -rw-r--r-- | gcc/f/info.c | 3 | ||||
| -rw-r--r-- | gcc/f/lex.c | 4 |
4 files changed, 12 insertions, 6 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index dce48534fd9..54d07282dd2 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,10 @@ +Wed Jan 2 18:13:11 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> + + * com.c (clear_binding_level): Const-ify. + (ffecom_arglist_expr_): Likewise. + * info.c (ffeinfo_types_): Don't needlessly zero init. + * lex.c (ffelex_hash_kludge): Const-ify. + Sun Dec 23 10:45:09 2001 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> * com.c (ffecom_gfrt_volatile_, ffecom_gfrt_complex_, diff --git a/gcc/f/com.c b/gcc/f/com.c index 823f18dff11..9abab693235 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -563,7 +563,7 @@ static struct binding_level *global_binding_level; /* Binding level structures are initialized by copying this one. */ -static struct binding_level clear_binding_level +static const struct binding_level clear_binding_level = {NULL, NULL, NULL, NULL_BINDING_LEVEL, 0}; @@ -1283,7 +1283,7 @@ ffecom_arglist_expr_ (const char *c, ffebld expr) tree item; bool ptr = FALSE; tree wanted = NULL_TREE; - static char zed[] = "0"; + static const char zed[] = "0"; if (c == NULL) c = &zed[0]; diff --git a/gcc/f/info.c b/gcc/f/info.c index b3ceef1d99c..b632f41592f 100644 --- a/gcc/f/info.c +++ b/gcc/f/info.c @@ -98,8 +98,7 @@ static const char *const ffeinfo_where_string_[] #include "info-w.def" #undef FFEINFO_WHERE }; -static ffetype ffeinfo_types_[FFEINFO_basictype][FFEINFO_kindtype] - = { { NULL } }; +static ffetype ffeinfo_types_[FFEINFO_basictype][FFEINFO_kindtype]; /* Static functions (internal). */ diff --git a/gcc/f/lex.c b/gcc/f/lex.c index 616965642a1..acbb4d336c7 100644 --- a/gcc/f/lex.c +++ b/gcc/f/lex.c @@ -3898,10 +3898,10 @@ ffelex_hash_kludge (FILE *finput) /* If you change this constant string, you have to change whatever code might thus be affected by it in terms of having to use ffelex_getc_() instead of getc() in the lexers and _hash_. */ - static char match[] = "# 1 \""; + static const char match[] = "# 1 \""; static int kludge[ARRAY_SIZE (match) + 1]; int c; - char *p; + const char *p; int *q; /* Read chars as long as they match the target string. |