/* implic.c -- Implementation File (module.c template V1.0)
- Copyright (C) 1995 Free Software Foundation, Inc.
- Contributed by James Craig Burley (burley@gnu.org).
+ Copyright (C) 1995, 2002, 2003 Free Software Foundation, Inc.
+ Contributed by James Craig Burley.
This file is part of GNU Fortran.
/* Static functions (internal). */
-static ffeimplic_ ffeimplic_lookup_ (char c);
+static ffeimplic_ ffeimplic_lookup_ (unsigned char c);
/* Internal macros. */
\f
data type. */
static ffeimplic_
-ffeimplic_lookup_ (char c)
+ffeimplic_lookup_ (unsigned char c)
{
/* NOTE: This is definitely ASCII-specific!! */
- if (ISALPHA (c) || (c == '_'))
+ if (ISIDST (c))
return &ffeimplic_table_[c - 'A'];
return NULL;
}
if (ffe_is_warn_implicit ())
{
+ /* xgettext:no-c-format */
ffebad_start_msg ("Implicit declaration of `%A' at %0",
FFEBAD_severityWARNING);
ffebad_here (0, ffesymbol_where_line (s),
Allows for holes in the sequence of letters (i.e. EBCDIC). */
void
-ffeimplic_init_2 ()
+ffeimplic_init_2 (void)
{
ffeimplic_ imp;
char c;
Assigns null type information to all initial letters. */
void
-ffeimplic_none ()
+ffeimplic_none (void)
{
ffeimplic_ imp;
/* ffeimplic_peek_symbol_type -- Determine implicit type of a symbol
ffesymbol s;
- char *name; // name for s in case it is NULL, or NULL if s never NULL
+ const char *name; // name for s in case it is NULL, or NULL if s never NULL
if (ffeimplic_peek_symbol_type(s,name) == FFEINFO_basictypeCHARACTER)
// is or will be a CHARACTER-typed name
needed anyway (as when ffecom calls it). */
ffeinfoBasictype
-ffeimplic_peek_symbol_type (ffesymbol s, char *name)
+ffeimplic_peek_symbol_type (ffesymbol s, const char *name)
{
char c;
ffeimplic_ imp;
Kills info object for each entry in table. */
void
-ffeimplic_terminate_2 ()
+ffeimplic_terminate_2 (void)
{
}