diff options
author | Andrew Cagney <cagney@redhat.com> | 2001-02-08 06:03:54 +0000 |
---|---|---|
committer | Andrew Cagney <cagney@redhat.com> | 2001-02-08 06:03:54 +0000 |
commit | e81bf4c251d2ca17d1c28e3034af58e228784911 (patch) | |
tree | b9c418932d84adff70a9756bac8ddfd3ff4c525f /gdb/f-lang.c | |
parent | 1b4edd613c68eb1c357bfe780fbd5ff2c1c71ba9 (diff) | |
download | gdb-e81bf4c251d2ca17d1c28e3034af58e228784911.tar.gz |
Add __FILE__ and __LINE__ parameter to internal_error() /
internal_verror().
Diffstat (limited to 'gdb/f-lang.c')
-rw-r--r-- | gdb/f-lang.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gdb/f-lang.c b/gdb/f-lang.c index c466c51ac5f..46c52ade711 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) |