diff options
Diffstat (limited to 'gdb/p-exp.y')
| -rw-r--r-- | gdb/p-exp.y | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gdb/p-exp.y b/gdb/p-exp.y index 4e924b8..b4d4739 100644 --- a/gdb/p-exp.y +++ b/gdb/p-exp.y @@ -205,7 +205,7 @@ static int search_field; /* Object pascal */ %token THIS -%token <lval> TRUE FALSE +%token <lval> TRUEKEYWORD FALSEKEYWORD %left ',' %left ABOVE_COMMA @@ -434,13 +434,13 @@ exp : exp ASSIGN exp { write_exp_elt_opcode (BINOP_ASSIGN); } ; -exp : TRUE +exp : TRUEKEYWORD { write_exp_elt_opcode (OP_BOOL); write_exp_elt_longcst ((LONGEST) $1); write_exp_elt_opcode (OP_BOOL); } ; -exp : FALSE +exp : FALSEKEYWORD { write_exp_elt_opcode (OP_BOOL); write_exp_elt_longcst ((LONGEST) $1); write_exp_elt_opcode (OP_BOOL); } @@ -1379,14 +1379,14 @@ yylex () if (STREQ (uptokstart, "FALSE")) { yylval.lval = 0; - return FALSE; + return FALSEKEYWORD; } break; case 4: if (STREQ (uptokstart, "TRUE")) { yylval.lval = 1; - return TRUE; + return TRUEKEYWORD; } if (STREQ (uptokstart, "SELF")) { |