Daily bump.

[pf3gnuchains/gcc-fork.git] / gcc / f / implic.c

diff --git a/gcc/f/implic.c b/gcc/f/implic.c
index 292f88f..7e0c61b 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.ai.mit.edu).
+   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 (ISALPHA (c) || (c == '_'))
     return &ffeimplic_table_[c - 'A'];
   return NULL;
 }
@@ -332,7 +331,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 +348,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;