diff options
| author | Stan Shebs <shebs@codesourcery.com> | 1995-03-14 02:37:20 +0000 |
|---|---|---|
| committer | Stan Shebs <shebs@codesourcery.com> | 1995-03-14 02:37:20 +0000 |
| commit | 477b2425006ba2c296fc3c0e64cfd0146f99a7dd (patch) | |
| tree | f4eff2fea28bfdac4f30b6a2194f19430601d6e9 /gdb/f-exp.y | |
| parent | 85a30e5978feca7ced04f0a97876a69def76cbcc (diff) | |
| download | binutils-477b2425006ba2c296fc3c0e64cfd0146f99a7dd.zip binutils-477b2425006ba2c296fc3c0e64cfd0146f99a7dd.tar.gz binutils-477b2425006ba2c296fc3c0e64cfd0146f99a7dd.tar.bz2 | |
* ch-valprint.c (annotate.h): Include.
* eval.c (evaluate_subexp_standard): Remove unused variable.
(calc_f77_array_dims): Add parens to expression.
* f-exp.y (yylex): Add parens to expression, remove unused label.
* f-lang.h (calc_f77_array_dims): Declare.
* f-valprint.c (f_val_print): Remove unused variables.
Diffstat (limited to 'gdb/f-exp.y')
| -rw-r--r-- | gdb/f-exp.y | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gdb/f-exp.y b/gdb/f-exp.y index 71a219d..857b742 100644 --- a/gdb/f-exp.y +++ b/gdb/f-exp.y @@ -1039,8 +1039,8 @@ yylex () got_dot = got_d = 1; else if (!hex && !got_dot && *p == '.') got_dot = 1; - else if ((got_e && (p[-1] == 'e' || p[-1] == 'E')) - || (got_d && (p[-1] == 'd' || p[-1] == 'D')) + else if (((got_e && (p[-1] == 'e' || p[-1] == 'E')) + || (got_d && (p[-1] == 'd' || p[-1] == 'D'))) && (*p == '-' || *p == '+')) /* This is the sign of the exponent, not the end of the number. */ @@ -1114,7 +1114,6 @@ yylex () and $$digits (equivalent to $<-digits> if you could type that). Make token type LAST, and put the number (the digits) in yylval. */ - tryname: if (*tokstart == '$') { register int negate = 0; |