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

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

diff --git a/gcc/ch/parse.c b/gcc/ch/parse.c
index f2513ff..f8e0e54 100644 (file)
--- a/gcc/ch/parse.c
+++ b/gcc/ch/parse.c
@@ -1,5 +1,6 @@
 /* Parser for GNU CHILL (CCITT High-Level Language)  -*- C -*-
-   Copyright (C) 1992, 93, 98, 99, 2000 Free Software Foundation, Inc.
+   Copyright (C) 1992, 1993, 1998, 1999, 2000, 2001
+   Free Software Foundation, Inc.
 
 This file is part of GNU CC.
 
@@ -222,7 +223,7 @@ end_function ()
          if (result_never_set
              && TREE_CODE (TREE_TYPE (TREE_TYPE (current_function_decl)))
              != VOID_TYPE)
-           warning ("No RETURN or RESULT in procedure");
+           warning ("no RETURN or RESULT in procedure");
          chill_expand_return (NULL_TREE, 1);
        }
     }
@@ -277,14 +278,15 @@ PEEK_TOKEN()
   return terminal_buffer[0];
 }
 #define PEEK_TREE() val_buffer[0].ttype
-#define PEEK_TOKEN1() peek_token_(1)
-#define PEEK_TOKEN2() peek_token_(2)
+#define PEEK_TOKEN1() peek_token_ (1)
+#define PEEK_TOKEN2() peek_token_ (2)
+
 static int
 peek_token_ (i)
      int i;
 {
   if (i > MAX_LOOK_AHEAD)
-    fatal ("internal error - too much lookahead");
+    abort ();
   if (terminal_buffer[i] == TOKEN_NOT_READ)
     {
       terminal_buffer[i] = yylex();
@@ -300,7 +302,7 @@ pushback_token (code, node)
 {
   int i;
   if (terminal_buffer[MAX_LOOK_AHEAD] != TOKEN_NOT_READ)
-    fatal ("internal error - cannot pushback token");
+    abort ();
   for (i = MAX_LOOK_AHEAD; i > 0; i--)
     { 
       terminal_buffer[i] = terminal_buffer[i - 1]; 
@@ -321,17 +323,17 @@ forward_token_()
     }
   terminal_buffer[MAX_LOOK_AHEAD] = TOKEN_NOT_READ;
 }
-#define FORWARD_TOKEN() forward_token_()
+#define FORWARD_TOKEN() forward_token_ ()
 
 /* Skip the next token.
    if it isn't TOKEN, the parser is broken. */
 
 static void
-require(token)
+require (token)
      enum terminal token;
 {
   if (PEEK_TOKEN() != token)
-    fatal ("internal parser error - expected token %d", (int)token);
+    internal_error ("internal parser error - expected token %d", (int) token);
   FORWARD_TOKEN();
 }
 
@@ -959,7 +961,7 @@ parse_loc_declaration (in_spec_module)
       ignoring = save_ignoring;
     }
   if (init_value == NULL_TREE && loc_decl && pass == 1)
-    error ("loc-identity declaration without initialisation");
+    error ("loc-identity declaration without initialization");
   do_decls (names, mode,
            is_static || global_bindings_p ()
            /* the variable becomes STATIC if all_static_flag is set and
@@ -2383,7 +2385,7 @@ parse_do_action (label)
     {
       push_handler ();
       parse_opt_actions ();
-      expect (OD, "Missing 'OD' after 'DO'");
+      expect (OD, "missing 'OD' after 'DO'");
       parse_opt_handler ();
       parse_opt_end_label_semi_colon (label);
       return;
@@ -2422,7 +2424,7 @@ parse_do_action (label)
   parse_opt_actions ();
   if (! ignoring)
     build_loop_end (); 
-  expect (OD, "Missing 'OD' after 'DO'");
+  expect (OD, "missing 'OD' after 'DO'");
   /* Note that the handler is inside the reach of the DO. */
   parse_opt_handler ();
   end_loop_scope (label);
@@ -2940,7 +2942,7 @@ parse_action ()
 
  no_handler_action:
   if (parse_opt_handler () != NULL_TREE && pass == 1)
-    error ("no handler is permitted on this action.");
+    error ("no handler is permitted on this action");
   parse_semi_colon ();
   return 1;
 
@@ -4324,7 +4326,7 @@ set_yydebug (value)
 #if YYDEBUG != 0
   yydebug = value;
 #else
-  warning ("YYDEBUG not defined.");
+  warning ("YYDEBUG not defined");
 #endif
 }
 #endif