aboutsummaryrefslogtreecommitdiff
path: root/gdb/f-lang.c
diff options
context:
space:
mode:
authorAndrew Cagney <cagney@redhat.com>2001-02-08 06:03:54 +0000
committerAndrew Cagney <cagney@redhat.com>2001-02-08 06:03:54 +0000
commit8e65ff28b0780a52bdbe067b6297a66f9ec4e16e (patch)
tree1cf3436ec5c6d3e4f4dedb4ee2ccfa2c107dc33b /gdb/f-lang.c
parent8ca8f343f993cbe9937ef15e8cbbee95613c2016 (diff)
downloadgdb-8e65ff28b0780a52bdbe067b6297a66f9ec4e16e.zip
gdb-8e65ff28b0780a52bdbe067b6297a66f9ec4e16e.tar.gz
gdb-8e65ff28b0780a52bdbe067b6297a66f9ec4e16e.tar.bz2
Add __FILE__ and __LINE__ parameter to internal_error() /
internal_verror().
Diffstat (limited to 'gdb/f-lang.c')
-rw-r--r--gdb/f-lang.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/gdb/f-lang.c b/gdb/f-lang.c
index c466c51..46c52ad 100644
--- a/gdb/f-lang.c
+++ b/gdb/f-lang.c
@@ -1,5 +1,5 @@
/* Fortran language support routines for GDB, the GNU debugger.
- Copyright 1993, 1994, 1996, 2000 Free Software Foundation, Inc.
+ Copyright 1993, 1994, 1996, 2000, 2001 Free Software Foundation, Inc.
Contributed by Motorola. Adapted from the C parser by Farooq Butt
(fmbutt@engage.sps.mot.com).
@@ -896,7 +896,8 @@ get_bf_for_fcn (long the_function)
item at the head of the queue is the one you want) */
if (saved_bf_list == NULL)
- internal_error ("cannot get .bf node off empty list");
+ internal_error (__FILE__, __LINE__,
+ "cannot get .bf node off empty list");
if (current_head_bf_list != NULL)
if (current_head_bf_list->symnum_fcn == the_function)