import gdb-1999-08-09 snapshot

[thirdparty/binutils-gdb.git] / gdb / f-lang.c

diff --git a/gdb/f-lang.c b/gdb/f-lang.c
index 6e67fbce9d93fb018765d6baeed220f807886c74..1a7bfa33c2c49845173f9c2b81a32111c220d5ee 100644 (file)
--- a/gdb/f-lang.c
+++ b/gdb/f-lang.c
@@ -920,7 +920,7 @@ get_bf_for_fcn (the_function)
      item at the head of the queue is the one you want)  */
 
   if (saved_bf_list == NULL)
-    fatal ("cannot get .bf node off empty list");
+    internal_error ("cannot get .bf node off empty list");
 
   if (current_head_bf_list != NULL)
     if (current_head_bf_list->symnum_fcn == the_function)