projects
/
deliverable
/
binutils-gdb.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* gas/arm/abs12.d: Update expected disassembly.
[deliverable/binutils-gdb.git]
/
gdb
/
f-exp.y
diff --git
a/gdb/f-exp.y
b/gdb/f-exp.y
index 4a1f747605c902b56a86d013a97052508dbae5a8..121b2472833a6eb7bcd592a48c1c65018d00c9e8 100644
(file)
--- a/
gdb/f-exp.y
+++ b/
gdb/f-exp.y
@@
-1,6
+1,7
@@
/* YACC parser for Fortran expressions, for GDB.
/* YACC parser for Fortran expressions, for GDB.
- Copyright 1986, 1989, 1990, 1991, 1993, 1994
- Free Software Foundation, Inc.
+ Copyright (C) 1986, 1989, 1990, 1991, 1993, 1994, 1995, 1996, 2000, 2001,
+ 2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+
Contributed by Motorola. Adapted from the C parser by Farooq Butt
(fmbutt@engage.sps.mot.com).
Contributed by Motorola. Adapted from the C parser by Farooq Butt
(fmbutt@engage.sps.mot.com).
@@
-18,7
+19,8
@@
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+Foundation, Inc., 51 Franklin Street, Fifth Floor,
+Boston, MA 02110-1301, USA. */
/* This was blantantly ripped off the C expression parser, please
be aware of that as you look at its basic structure -FMB */
/* This was blantantly ripped off the C expression parser, please
be aware of that as you look at its basic structure -FMB */
@@
-52,6
+54,8
@@
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#include "bfd.h" /* Required by objfiles.h. */
#include "symfile.h" /* Required by objfiles.h. */
#include "objfiles.h" /* For have_full_symbols and have_partial_symbols */
#include "bfd.h" /* Required by objfiles.h. */
#include "symfile.h" /* Required by objfiles.h. */
#include "objfiles.h" /* For have_full_symbols and have_partial_symbols */
+#include "block.h"
+#include <ctype.h>
/* Remap normal yacc parser interface names (yyparse, yylex, yyerror, etc),
as well as gratuitiously global symbol names, so we can have multiple
/* Remap normal yacc parser interface names (yyparse, yylex, yyerror, etc),
as well as gratuitiously global symbol names, so we can have multiple
@@
-89,6
+93,8
@@
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#define yylloc f_lloc
#define yyreds f_reds /* With YYDEBUG defined */
#define yytoks f_toks /* With YYDEBUG defined */
#define yylloc f_lloc
#define yyreds f_reds /* With YYDEBUG defined */
#define yytoks f_toks /* With YYDEBUG defined */
+#define yyname f_name /* With YYDEBUG defined */
+#define yyrule f_rule /* With YYDEBUG defined */
#define yylhs f_yylhs
#define yylen f_yylen
#define yydefred f_yydefred
#define yylhs f_yylhs
#define yylen f_yylen
#define yydefred f_yydefred
@@
-100,18
+106,20
@@
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#define yycheck f_yycheck
#ifndef YYDEBUG
#define yycheck f_yycheck
#ifndef YYDEBUG
-#define YYDEBUG 1 /* Default to
no
yydebug support */
+#define YYDEBUG 1 /* Default to yydebug support */
#endif
#endif
-int yyparse PARAMS ((void));
+#define YYFPRINTF parser_fprintf
+
+int yyparse (void);
-static int yylex
PARAMS ((void)
);
+static int yylex
(void
);
-void yyerror
PARAMS ((char *)
);
+void yyerror
(char *
);
-static void growbuf_by_size
PARAMS ((int)
);
+static void growbuf_by_size
(int
);
-static int match_string_literal
PARAMS ((void)
);
+static int match_string_literal
(void
);
%}
%}
@@
-143,7
+151,7
@@
static int match_string_literal PARAMS ((void));
%{
/* YYSTYPE gets defined by %union */
%{
/* YYSTYPE gets defined by %union */
-static int parse_number
PARAMS ((char *, int, int, YYSTYPE *)
);
+static int parse_number
(char *, int, int, YYSTYPE *
);
%}
%type <voidval> exp type_exp start variable
%}
%type <voidval> exp type_exp start variable
@@
-172,7
+180,6
@@
static int parse_number PARAMS ((char *, int, int, YYSTYPE *));
%token <tsym> TYPENAME
%type <sval> name
%type <ssym> name_not_typename
%token <tsym> TYPENAME
%type <sval> name
%type <ssym> name_not_typename
-%type <tsym> typename
/* A NAME_OR_INT is a symbol which is not known in the symbol table,
but which would parse as a valid number in the current input radix.
/* A NAME_OR_INT is a symbol which is not known in the symbol table,
but which would parse as a valid number in the current input radix.
@@
-211,7
+218,9
@@
static int parse_number PARAMS ((char *, int, int, YYSTYPE *));
%left LSH RSH
%left '@'
%left '+' '-'
%left LSH RSH
%left '@'
%left '+' '-'
-%left '*' '/' '%'
+%left '*' '/'
+%right STARSTAR
+%right '%'
%right UNARY
%right '('
%right UNARY
%right '('
@@
-235,9
+244,11
@@
exp : '(' exp ')'
/* Expressions, not including the comma operator. */
exp : '*' exp %prec UNARY
{ write_exp_elt_opcode (UNOP_IND); }
/* Expressions, not including the comma operator. */
exp : '*' exp %prec UNARY
{ write_exp_elt_opcode (UNOP_IND); }
+ ;
exp : '&' exp %prec UNARY
{ write_exp_elt_opcode (UNOP_ADDR); }
exp : '&' exp %prec UNARY
{ write_exp_elt_opcode (UNOP_ADDR); }
+ ;
exp : '-' exp %prec UNARY
{ write_exp_elt_opcode (UNOP_NEG); }
exp : '-' exp %prec UNARY
{ write_exp_elt_opcode (UNOP_NEG); }
@@
-275,17
+286,39
@@
arglist : exp
{ arglist_len = 1; }
;
{ arglist_len = 1; }
;
-arglist : substring
- { arglist_len = 2;}
+arglist : subrange
+ { arglist_len = 1; }
+ ;
arglist : arglist ',' exp %prec ABOVE_COMMA
{ arglist_len++; }
;
arglist : arglist ',' exp %prec ABOVE_COMMA
{ arglist_len++; }
;
-substring: exp ':' exp %prec ABOVE_COMMA
- { }
+/* There are four sorts of subrange types in F90. */
+
+subrange: exp ':' exp %prec ABOVE_COMMA
+ { write_exp_elt_opcode (OP_F90_RANGE);
+ write_exp_elt_longcst (NONE_BOUND_DEFAULT);
+ write_exp_elt_opcode (OP_F90_RANGE); }
+ ;
+
+subrange: exp ':' %prec ABOVE_COMMA
+ { write_exp_elt_opcode (OP_F90_RANGE);
+ write_exp_elt_longcst (HIGH_BOUND_DEFAULT);
+ write_exp_elt_opcode (OP_F90_RANGE); }
;
;
+subrange: ':' exp %prec ABOVE_COMMA
+ { write_exp_elt_opcode (OP_F90_RANGE);
+ write_exp_elt_longcst (LOW_BOUND_DEFAULT);
+ write_exp_elt_opcode (OP_F90_RANGE); }
+ ;
+
+subrange: ':' %prec ABOVE_COMMA
+ { write_exp_elt_opcode (OP_F90_RANGE);
+ write_exp_elt_longcst (BOTH_BOUND_DEFAULT);
+ write_exp_elt_opcode (OP_F90_RANGE); }
+ ;
complexnum: exp ',' exp
{ }
complexnum: exp ',' exp
{ }
@@
-301,12
+334,22
@@
exp : '(' type ')' exp %prec UNARY
write_exp_elt_opcode (UNOP_CAST); }
;
write_exp_elt_opcode (UNOP_CAST); }
;
+exp : exp '%' name
+ { write_exp_elt_opcode (STRUCTOP_STRUCT);
+ write_exp_string ($3);
+ write_exp_elt_opcode (STRUCTOP_STRUCT); }
+ ;
+
/* Binary operators in order of decreasing precedence. */
exp : exp '@' exp
{ write_exp_elt_opcode (BINOP_REPEAT); }
;
/* Binary operators in order of decreasing precedence. */
exp : exp '@' exp
{ write_exp_elt_opcode (BINOP_REPEAT); }
;
+exp : exp STARSTAR exp
+ { write_exp_elt_opcode (BINOP_EXP); }
+ ;
+
exp : exp '*' exp
{ write_exp_elt_opcode (BINOP_MUL); }
;
exp : exp '*' exp
{ write_exp_elt_opcode (BINOP_MUL); }
;
@@
-315,10
+358,6
@@
exp : exp '/' exp
{ write_exp_elt_opcode (BINOP_DIV); }
;
{ write_exp_elt_opcode (BINOP_DIV); }
;
-exp : exp '%' exp
- { write_exp_elt_opcode (BINOP_REM); }
- ;
-
exp : exp '+' exp
{ write_exp_elt_opcode (BINOP_ADD); }
;
exp : exp '+' exp
{ write_exp_elt_opcode (BINOP_ADD); }
;
@@
-466,7
+505,7
@@
variable: name_not_typename
else
{
struct minimal_symbol *msymbol;
else
{
struct minimal_symbol *msymbol;
-
register
char *arg = copy_name ($1.stoken);
+ char *arg = copy_name ($1.stoken);
msymbol =
lookup_minimal_symbol (arg, NULL, NULL);
msymbol =
lookup_minimal_symbol (arg, NULL, NULL);
@@
-555,7
+594,7
@@
direct_abs_decl: '(' abs_decl ')'
func_mod: '(' ')'
{ $$ = 0; }
| '(' nonempty_typelist ')'
func_mod: '(' ')'
{ $$ = 0; }
| '(' nonempty_typelist ')'
- { free (
(PTR)
$2); $$ = 0; }
+ { free ($2); $$ = 0; }
;
typebase /* Implements (approximately): (type-qualifier)* type-specifier */
;
typebase /* Implements (approximately): (type-qualifier)* type-specifier */
@@
-587,9
+626,6
@@
typebase /* Implements (approximately): (type-qualifier)* type-specifier */
{ $$ = builtin_type_f_complex_s32;}
;
{ $$ = builtin_type_f_complex_s32;}
;
-typename: TYPENAME
- ;
-
nonempty_typelist
: type
{ $$ = (struct type **) malloc (sizeof (struct type *) * 2);
nonempty_typelist
: type
{ $$ = (struct type **) malloc (sizeof (struct type *) * 2);
@@
-604,11
+640,7
@@
nonempty_typelist
;
name : NAME
;
name : NAME
- { $$ = $1.stoken; }
- | TYPENAME
- { $$ = $1.stoken; }
- | NAME_OR_INT
- { $$ = $1.stoken; }
+ { $$ = $1.stoken; }
;
name_not_typename : NAME
;
name_not_typename : NAME
@@
-631,16
+663,15
@@
name_not_typename : NAME
static int
parse_number (p, len, parsed_float, putithere)
static int
parse_number (p, len, parsed_float, putithere)
-
register
char *p;
-
register
int len;
+ char *p;
+ int len;
int parsed_float;
YYSTYPE *putithere;
{
int parsed_float;
YYSTYPE *putithere;
{
- register LONGEST n = 0;
- register LONGEST prevn = 0;
- register int i;
- register int c;
- register int base = input_radix;
+ LONGEST n = 0;
+ LONGEST prevn = 0;
+ int c;
+ int base = input_radix;
int unsigned_p = 0;
int long_p = 0;
ULONGEST high_bit;
int unsigned_p = 0;
int long_p = 0;
ULONGEST high_bit;
@@
-653,7
+684,7
@@
parse_number (p, len, parsed_float, putithere)
/* [dD] is not understood as an exponent by atof, change it to 'e'. */
char *tmp, *tmp2;
/* [dD] is not understood as an exponent by atof, change it to 'e'. */
char *tmp, *tmp2;
- tmp =
strsave
(p);
+ tmp =
xstrdup
(p);
for (tmp2 = tmp; *tmp2; ++tmp2)
if (*tmp2 == 'd' || *tmp2 == 'D')
*tmp2 = 'e';
for (tmp2 = tmp; *tmp2; ++tmp2)
if (*tmp2 == 'd' || *tmp2 == 'D')
*tmp2 = 'e';
@@
-696,26
+727,26
@@
parse_number (p, len, parsed_float, putithere)
while (len-- > 0)
{
c = *p++;
while (len-- > 0)
{
c = *p++;
- if (
c >= 'A' && c <= 'Z'
)
- c
+= 'a' - 'A'
;
- if (
c != 'l' && c != 'u
')
-
n *= base
;
-
if (c >= '0' && c <= '9
')
-
n += i = c - '0'
;
+ if (
isupper (c)
)
+ c
= tolower (c)
;
+ if (
len == 0 && c == 'l
')
+
long_p = 1
;
+
else if (len == 0 && c == 'u
')
+
unsigned_p = 1
;
else
{
else
{
- if (base > 10 && c >= 'a' && c <= 'f')
- n += i = c - 'a' + 10;
- else if (len == 0 && c == 'l')
- long_p = 1;
- else if (len == 0 && c == 'u')
- unsigned_p = 1;
+ int i;
+ if (c >= '0' && c <= '9')
+ i = c - '0';
+ else if (c >= 'a' && c <= 'f')
+ i = c - 'a' + 10;
else
return ERROR; /* Char not a digit */
else
return ERROR; /* Char not a digit */
+ if (i >= base)
+ return ERROR; /* Invalid digit in this base */
+ n *= base;
+ n += i;
}
}
- if (i >= base)
- return ERROR; /* Invalid digit in this base */
-
/* Portably test for overflow (only works for nonzero values, so make
a second check for zero). */
if ((prevn >= n) && n != 0)
/* Portably test for overflow (only works for nonzero values, so make
a second check for zero). */
if ((prevn >= n) && n != 0)
@@
-735,23
+766,24
@@
parse_number (p, len, parsed_float, putithere)
target int size is different to the target long size.
In the expression below, we could have tested
target int size is different to the target long size.
In the expression below, we could have tested
- (n >>
TARGET_INT_BIT
)
+ (n >>
gdbarch_int_bit (current_gdbarch)
)
to see if it was zero,
but too many compilers warn about that, when ints and longs
are the same size. So we shift it twice, with fewer bits
each time, for the same result. */
to see if it was zero,
but too many compilers warn about that, when ints and longs
are the same size. So we shift it twice, with fewer bits
each time, for the same result. */
- if ((TARGET_INT_BIT != TARGET_LONG_BIT
- && ((n >> 2) >> (TARGET_INT_BIT-2))) /* Avoid shift warning */
+ if ((gdbarch_int_bit (current_gdbarch) != gdbarch_long_bit (current_gdbarch)
+ && ((n >> 2)
+ >> (gdbarch_int_bit (current_gdbarch)-2))) /* Avoid shift warning */
|| long_p)
{
|| long_p)
{
- high_bit = ((ULONGEST)1) << (
TARGET_LONG_BIT
-1);
+ high_bit = ((ULONGEST)1) << (
gdbarch_long_bit (current_gdbarch)
-1);
unsigned_type = builtin_type_unsigned_long;
signed_type = builtin_type_long;
}
else
{
unsigned_type = builtin_type_unsigned_long;
signed_type = builtin_type_long;
}
else
{
- high_bit = ((ULONGEST)1) << (
TARGET_INT_BIT
-1);
+ high_bit = ((ULONGEST)1) << (
gdbarch_int_bit (current_gdbarch)
-1);
unsigned_type = builtin_type_unsigned_int;
signed_type = builtin_type_int;
}
unsigned_type = builtin_type_unsigned_int;
signed_type = builtin_type_int;
}
@@
-923,7
+955,9
@@
yylex ()
char *tokstart;
retry:
char *tokstart;
retry:
-
+
+ prev_lexptr = lexptr;
+
tokstart = lexptr;
/* First of all, let us make sure we are not dealing with the
tokstart = lexptr;
/* First of all, let us make sure we are not dealing with the
@@
-933,8
+967,8
@@
yylex ()
{
for (i = 0; boolean_values[i].name != NULL; i++)
{
{
for (i = 0; boolean_values[i].name != NULL; i++)
{
- if
STREQN
(tokstart, boolean_values[i].name,
-
strlen (boolean_values[i].name)
)
+ if
(strncmp
(tokstart, boolean_values[i].name,
+
strlen (boolean_values[i].name)) == 0
)
{
lexptr += strlen (boolean_values[i].name);
yylval.lval = boolean_values[i].value;
{
lexptr += strlen (boolean_values[i].name);
yylval.lval = boolean_values[i].value;
@@
-943,16
+977,25
@@
yylex ()
}
}
}
}
- /* See if it is a special .foo. operator */
+ /* See if it is a special .foo. operator
.
*/
for (i = 0; dot_ops[i].operator != NULL; i++)
for (i = 0; dot_ops[i].operator != NULL; i++)
- if (
STREQN (tokstart, dot_ops[i].operator, strlen (dot_ops[i].operator))
)
+ if (
strncmp (tokstart, dot_ops[i].operator, strlen (dot_ops[i].operator)) == 0
)
{
lexptr += strlen (dot_ops[i].operator);
yylval.opcode = dot_ops[i].opcode;
return dot_ops[i].token;
}
{
lexptr += strlen (dot_ops[i].operator);
yylval.opcode = dot_ops[i].opcode;
return dot_ops[i].token;
}
+ /* See if it is an exponentiation operator. */
+
+ if (strncmp (tokstart, "**", 2) == 0)
+ {
+ lexptr += 2;
+ yylval.opcode = BINOP_EXP;
+ return STARSTAR;
+ }
+
switch (c = *tokstart)
{
case 0:
switch (c = *tokstart)
{
case 0:
@@
-1007,7
+1050,7
@@
yylex ()
{
/* It's a number. */
int got_dot = 0, got_e = 0, got_d = 0, toktype;
{
/* It's a number. */
int got_dot = 0, got_e = 0, got_d = 0, toktype;
-
register
char *p = tokstart;
+ char *p = tokstart;
int hex = input_radix > 10;
if (c == '0' && (p[1] == 'x' || p[1] == 'X'))
int hex = input_radix > 10;
if (c == '0' && (p[1] == 'x' || p[1] == 'X'))
@@
-1103,8
+1146,8
@@
yylex ()
/* Catch specific keywords. */
for (i = 0; f77_keywords[i].operator != NULL; i++)
/* Catch specific keywords. */
for (i = 0; f77_keywords[i].operator != NULL; i++)
- if (
STREQN
(tokstart, f77_keywords[i].operator,
-
strlen(f77_keywords[i].operator))
)
+ if (
strncmp
(tokstart, f77_keywords[i].operator,
+
strlen(f77_keywords[i].operator)) == 0
)
{
/* lexptr += strlen(f77_keywords[i].operator); */
yylval.opcode = f77_keywords[i].opcode;
{
/* lexptr += strlen(f77_keywords[i].operator); */
yylval.opcode = f77_keywords[i].opcode;
@@
-1130,16
+1173,18
@@
yylex ()
int hextype;
sym = lookup_symbol (tmp, expression_context_block,
int hextype;
sym = lookup_symbol (tmp, expression_context_block,
- VAR_
NAMESPACE
,
+ VAR_
DOMAIN
,
current_language->la_language == language_cplus
current_language->la_language == language_cplus
- ? &is_a_field_of_this : NULL,
- NULL);
+ ? &is_a_field_of_this : NULL);
if (sym && SYMBOL_CLASS (sym) == LOC_TYPEDEF)
{
yylval.tsym.type = SYMBOL_TYPE (sym);
return TYPENAME;
}
if (sym && SYMBOL_CLASS (sym) == LOC_TYPEDEF)
{
yylval.tsym.type = SYMBOL_TYPE (sym);
return TYPENAME;
}
- if ((yylval.tsym.type = lookup_primitive_typename (tmp)) != 0)
+ yylval.tsym.type
+ = language_lookup_primitive_type_by_name (current_language,
+ current_gdbarch, tmp);
+ if (yylval.tsym.type != NULL)
return TYPENAME;
/* Input names that aren't symbols but ARE valid hex numbers,
return TYPENAME;
/* Input names that aren't symbols but ARE valid hex numbers,
@@
-1170,5
+1215,8
@@
void
yyerror (msg)
char *msg;
{
yyerror (msg)
char *msg;
{
+ if (prev_lexptr)
+ lexptr = prev_lexptr;
+
error ("A %s in expression, near `%s'.", (msg ? msg : "error"), lexptr);
}
error ("A %s in expression, near `%s'.", (msg ? msg : "error"), lexptr);
}
This page took
0.028822 seconds
and
4
git commands to generate.