import gdb-1999-08-09 snapshot

[deliverable/binutils-gdb.git] / gdb / ch-exp.c

diff --git a/gdb/ch-exp.c b/gdb/ch-exp.c
index 62e9bfd1b79aa8964485ca0ca06d8f7fbc3f40e1..1b22e257b9bac20d1df6c8c35947560de8f3a827 100644 (file)
--- a/gdb/ch-exp.c
+++ b/gdb/ch-exp.c
@@ -217,7 +217,7 @@ peek_token_ (i)
      int i;
 {
   if (i > MAX_LOOK_AHEAD)
-    fatal ("internal error - too much lookahead");
+    internal_error ("ch-exp.c - too much lookahead");
   if (terminal_buffer[i] == TOKEN_NOT_READ)
     {
       terminal_buffer[i] = ch_lex ();
@@ -235,7 +235,7 @@ pushback_token (code, node)
 {
   int i;
   if (terminal_buffer[MAX_LOOK_AHEAD] != TOKEN_NOT_READ)
-    fatal ("internal error - cannot pushback token");
+    internal_error ("ch-exp.c - cannot pushback token");
   for (i = MAX_LOOK_AHEAD; i > 0; i--)
     {
       terminal_buffer[i] = terminal_buffer[i - 1];
@@ -269,9 +269,7 @@ require (token)
 {
   if (PEEK_TOKEN () != token)
     {
-      char buf[80];
-      sprintf (buf, "internal parser error - expected token %d", (int) token);
-      fatal (buf);
+      internal_error ("ch-exp.c - expected token %d", (int) token);
     }
   FORWARD_TOKEN ();
 }