paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 13:39:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed precedence of is-operator

Browse Source
This commit is contained in:
florian 2005-02-06 20:29:12 +00:00
parent 980d8dcfad
commit acc34b08cd
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/pexpr.pas
View File

@ -2301,10 +2301,10 @@ implementation
const
{ Warning these stay be ordered !! }
operator_levels:array[Toperator_precedence] of set of Ttoken=
([_LT,_LTE,_GT,_GTE,_EQUAL,_UNEQUAL,_OP_IN,_OP_IS],
([_LT,_LTE,_GT,_GTE,_EQUAL,_UNEQUAL,_OP_IN],
[_PLUS,_MINUS,_OP_OR,_PIPE,_OP_XOR],
[_CARET,_SYMDIF,_STARSTAR,_STAR,_SLASH,
_OP_AS,_OP_AND,_AMPERSAND,_OP_DIV,_OP_MOD,_OP_SHL,_OP_SHR],
_OP_AS,_OP_IS,_OP_AND,_AMPERSAND,_OP_DIV,_OP_MOD,_OP_SHL,_OP_SHR],
[_STARSTAR] );
function sub_expr(pred_level:Toperator_precedence;accept_equal : boolean):tnode;
@ -2527,7 +2527,10 @@ implementation
end.
{
$Log$
Revision 1.179 2005-01-20 17:05:53 peter
Revision 1.180 2005-02-06 20:29:12 florian
* fixed precedence of is-operator
Revision 1.179 2005/01/20 17:05:53 peter
* use val() for decoding integers
Revision 1.178 2005/01/04 16:38:07 peter