aboutsummaryrefslogtreecommitdiff
path: root/gdb/ch-exp.c
diff options
context:
space:
mode:
Diffstat (limited to 'gdb/ch-exp.c')
-rw-r--r--gdb/ch-exp.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/gdb/ch-exp.c b/gdb/ch-exp.c
index cc7d7f7..45436a3 100644
--- a/gdb/ch-exp.c
+++ b/gdb/ch-exp.c
@@ -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);