diff options
| author | Stan Shebs <shebs@codesourcery.com> | 1994-09-07 00:23:16 +0000 |
|---|---|---|
| committer | Stan Shebs <shebs@codesourcery.com> | 1994-09-07 00:23:16 +0000 |
| commit | 22d7f91e32bda141f2d866c3e7dd967141dcf696 (patch) | |
| tree | 0cbdacd58990a3c1cbc336783dded7905fe1825b /gdb/f-lang.c | |
| parent | 6ceff8e7d2bcd87fc647a9cc8c37b51f56865eac (diff) | |
| download | gdb-22d7f91e32bda141f2d866c3e7dd967141dcf696.zip gdb-22d7f91e32bda141f2d866c3e7dd967141dcf696.tar.gz gdb-22d7f91e32bda141f2d866c3e7dd967141dcf696.tar.bz2 | |
* c-typeprint.c (c_type_print_varspec_prefix,
c_type_print_varspec_suffix): Add cases for Fortran type codes.
* eval.c (evaluate_subexp): For OP_ARRAY expressions in Fortran,
call f77_value_literal_string instead.
* f_exp.y: Include <string.h>, move include of parser-defs.h.
(parse_number): Translate 'd' floats to 'e' so atof() works.
(yylex): Remove unused variables.
* f-lang.c: Include <string.h>.
(get_bf_for_fcn): Remove unused variable.
* f-typeprint.c (f_type_print_varspec_prefix,
f_type_print_varspec_suffix): Remove unused
variables, add cases to switch statements.
(f_type_print_base): Remove unused variables.
* f-valprint.c (gdbcore.h, command.h): Include.
(f77_get_dynamic_lowerbound, f77_get_dynamic_upperbound):
Call read_memory_integer with correct number of arguments.
(f77_get_dynamic_upperbound): Call f77_get_dynamic_lowerbound
with correct argument type.
(f77_print_array): Removed unused array array_size_array.
(f_val_print): Don't use a CORE_ADDR as a char *.
* valops.c (value_cast): Handle COMPLEX and BOOL types.
(value_assign): Handle Fortran literal string and complex values.
(f77_cast_into_complex, f77_assign_from_literal_string,
f77_assign_from_literal_complex): New functions.
Diffstat (limited to 'gdb/f-lang.c')
| -rw-r--r-- | gdb/f-lang.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gdb/f-lang.c b/gdb/f-lang.c index f9d55b7..77dce4f 100644 --- a/gdb/f-lang.c +++ b/gdb/f-lang.c @@ -20,6 +20,7 @@ along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "defs.h" +#include <string.h> #include "symtab.h" #include "gdbtypes.h" #include "expression.h" @@ -882,7 +883,6 @@ get_bf_for_fcn (the_function) { SAVED_BF_PTR tmp; int nprobes = 0; - long retval = 0; /* First use a simple queuing algorithm (i.e. look and see if the item at the head of the queue is the one you want) */ |