PR c++/17413

[thirdparty/gcc.git] / gcc / f / implic.c

diff --git a/gcc/f/implic.c b/gcc/f/implic.c
index ee7d45ff9ae78fc9c3b1fadc008f98b8eafd4a8d..c7a28cbc42acc6e23bf459a1ce7bbf1a4dbe02a3 100644 (file)
--- a/gcc/f/implic.c
+++ b/gcc/f/implic.c
@@ -1,6 +1,6 @@
 /* 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.
 
@@ -31,7 +31,6 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 /* Include files. */
 
 #include "proj.h"
-#include <ctype.h>
 #include "implic.h"
 #include "info.h"
 #include "src.h"
@@ -74,7 +73,7 @@ static struct _ffeimplic_ ffeimplic_table_['z' - 'A' + 1];
 
 /* Static functions (internal). */
 
-static ffeimplic_ ffeimplic_lookup_ (char c);
+static ffeimplic_ ffeimplic_lookup_ (unsigned char c);
 
 /* Internal macros. */
 \f
@@ -90,10 +89,10 @@ static ffeimplic_ ffeimplic_lookup_ (char c);
    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;
 }
@@ -200,6 +199,7 @@ ffeimplic_establish_symbol (ffesymbol s)
 
   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),
@@ -220,7 +220,7 @@ ffeimplic_establish_symbol (ffesymbol s)
    Allows for holes in the sequence of letters (i.e. EBCDIC).  */
 
 void
-ffeimplic_init_2 ()
+ffeimplic_init_2 (void)
 {
   ffeimplic_ imp;
   char c;
@@ -312,7 +312,7 @@ ffeimplic_init_2 ()
    Assigns null type information to all initial letters.  */
 
 void
-ffeimplic_none ()
+ffeimplic_none (void)
 {
   ffeimplic_ imp;
 
@@ -332,7 +332,7 @@ ffeimplic_none ()
 /* 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
 
@@ -349,7 +349,7 @@ ffeimplic_none ()
       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;
@@ -378,6 +378,6 @@ ffeimplic_peek_symbol_type (ffesymbol s, char *name)
    Kills info object for each entry in table.  */
 
 void
-ffeimplic_terminate_2 ()
+ffeimplic_terminate_2 (void)
 {
 }