* config/alpha/vms.h (INCLUDE_DEFAULTS): Add /gnu/lib/gcc-lib/include.

[pf3gnuchains/gcc-fork.git] / gcc / ch / lex.c

diff --git a/gcc/ch/lex.c b/gcc/ch/lex.c
index cd433ca..8b05f52 100644 (file)
--- a/gcc/ch/lex.c
+++ b/gcc/ch/lex.c
@@ -1,5 +1,6 @@
 /* Lexical analyzer for GNU CHILL. -*- C -*-
-   Copyright (C) 1992, 93, 94, 98, 99, 2000 Free Software Foundation, Inc.
+   Copyright (C) 1992, 1993, 1994, 1998, 1999, 2000, 2001
+   Free Software Foundation, Inc.
 
 This file is part of GNU CC.
 
@@ -20,7 +21,6 @@ Boston, MA 02111-1307, USA.  */
 \f
 #include "config.h"
 #include "system.h"
-#include <setjmp.h>
 #include <sys/stat.h>
 
 #include "tree.h"
@@ -34,10 +34,6 @@ Boston, MA 02111-1307, USA.  */
 #include "toplev.h"
 #include "tm_p.h"
 
-#ifdef DWARF_DEBUGGING_INFO
-#include "dwarfout.h"
-#endif
-
 #ifdef MULTIBYTE_CHARS
 #include <locale.h>
 #endif
@@ -211,8 +207,9 @@ init_parse (filename)
     }
   else
     finput = fopen (filename, "r");
+
   if (finput == 0)
-    pfatal_with_name (filename);
+    fatal_io_error ("can't open %s", filename);
 
 #ifdef IO_BUFFER_SIZE
   setvbuf (finput, (char *) xmalloc (IO_BUFFER_SIZE), _IOFBF, IO_BUFFER_SIZE);
@@ -888,8 +885,7 @@ maybe_downcase (str)
     return;
   while (*str)
     {
-      if (ISUPPER ((unsigned char) *str))
-       *str = TOLOWER (*str);
+      *str = TOLOWER (*str);
       str++;
     }
 }
@@ -1288,7 +1284,6 @@ convert_bitstring (p)
   
   /* Move p to stack so we can re-use temporary_obstack for result. */
   char *oldp = (char*) alloca (strlen (p) + 1);
-  if (oldp == 0) fatal ("stack space exhausted");
   strcpy (oldp, p);
   obstack_free (&temporary_obstack, p);
   p = oldp;
@@ -1378,16 +1373,16 @@ same_file (filename1, filename2)
   for (i = 0; i < 2; i++)
     {
       stat_status = stat (fn_input[i], &s[i]);
-      if (stat_status < 0 &&
-         strchr (fn_input[i], '/') == 0)
+      if (stat_status < 0
+         && strchr (fn_input[i], '/') == 0)
         {
          STRING_LIST *plp;
-         char        *path;
+         char *path;
          
          for (plp = seize_path_list; plp != 0; plp = plp->next)
            {
-             path = (char *)xmalloc (strlen (fn_input[i]) +
-                                     strlen (plp->str) + 2);
+             path = (char *) xmalloc (strlen (fn_input[i])
+                                      + strlen (plp->str) + 2);
              sprintf (path, "%s/%s", plp->str, fn_input[i]);
              stat_status = stat (path, &s[i]);
              free (path);
@@ -1395,8 +1390,9 @@ same_file (filename1, filename2)
                break;
            }
         }
+
       if (stat_status < 0)
-        pfatal_with_name (fn_input[i]);
+       fatal_io_error ("can't find %s", fn_input[i]);
   }
   return s[0].st_ino == s[1].st_ino && s[0].st_dev == s[1].st_dev;
 }
@@ -1525,9 +1521,9 @@ handle_generic_pragma (buffer)
          * buff ++ = c;
          c = getc (finput);
        }
-      while (c != EOF && isascii (c) && ! ISSPACE (c) && c != '\n'
-            && buff < buffer + 128); /* XXX shared knowledge about size of buffer.  */
-      
+      while (c != EOF && ! ISSPACE (c) && buff < buffer + 128);
+        /* XXX shared knowledge about size of buffer.  */
+
       ungetc (c, finput);
       
       * -- buff = 0;
@@ -2158,7 +2154,7 @@ yywrap ()
   if (next_file_to_seize && !grant_only_flag)
     {
       FILE *grt_in = NULL;
-      char *seizefile_name_chars
+      const char *seizefile_name_chars
        = IDENTIFIER_POINTER (TREE_VALUE (next_file_to_seize));
 
       /* find a seize file, open it.  If it's not at the path the
@@ -2190,7 +2186,7 @@ yywrap ()
        }
 
       if (grt_in == NULL)
-       pfatal_with_name (seizefile_name_chars);
+       fatal_io_error ("can't open %s", seizefile_name_chars);
 
       finput = grt_in;
       input_filename = seizefile_name_chars;