FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* ch-exp.c: Rename FIELD_NAME to DOT_FIELD_NAME (to avoid conflict).

Browse source
This commit is contained in:
Per Bothner 1997-10-21 21:15:52 +00:00
parent 61a60a8a70
commit fbb09651da
2 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gdb/ChangeLog
View file

@ -1,3 +1,7 @@
Tue Oct 21 14:15:26 1997 Per Bothner <bothner@cygnus.com>
* ch-exp.c: Rename FIELD_NAME to DOT_FIELD_NAME (to avoid conflict).
Fri Oct 17 13:22:02 1997 Stan Shebs <shebs@andros.cygnus.com>
* infcmd.c: Improve grammar of "set args" help.

10
gdb/ch-exp.c
View file

@ -91,7 +91,7 @@ enum ch_terminal {
CHARACTER_STRING_LITERAL,
BIT_STRING_LITERAL,
TYPENAME,
FIELD_NAME,
DOT_FIELD_NAME, /* '.' followed by <field name> */
CASE,
OF,
ESAC,
@ -537,7 +537,7 @@ parse_named_record_element ()
label = PEEK_LVAL ().sval;
sprintf (buf, "expected a field name here `%s'", lexptr);
expect (FIELD_NAME, buf);
expect (DOT_FIELD_NAME, buf);
if (check_token (','))
parse_named_record_element ();
else if (check_token (':'))
@ -555,7 +555,7 @@ static void
parse_tuple_element (type)
struct type *type;
{
if (PEEK_TOKEN () == FIELD_NAME)
if (PEEK_TOKEN () == DOT_FIELD_NAME)
{
/* Parse a labelled structure tuple. */
parse_named_record_element ();
@ -845,7 +845,7 @@ parse_primval ()
{
switch (PEEK_TOKEN ())
{
case FIELD_NAME:
case DOT_FIELD_NAME:
write_exp_elt_opcode (STRUCTOP_STRUCT);
write_exp_string (PEEK_LVAL ().sval);
write_exp_elt_opcode (STRUCTOP_STRUCT);
@ -2137,7 +2137,7 @@ ch_lex ()
inputname = match_simple_name_string ();
if (!inputname)
return '.';
return FIELD_NAME;
return DOT_FIELD_NAME;
}
return (ILLEGAL_TOKEN);