paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 22:51:20 +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 const
{ Warning these stay be ordered !! } { Warning these stay be ordered !! }
operator_levels:array[Toperator_precedence] of set of Ttoken= 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], [_PLUS,_MINUS,_OP_OR,_PIPE,_OP_XOR],
[_CARET,_SYMDIF,_STARSTAR,_STAR,_SLASH, [_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] ); [_STARSTAR] );
function sub_expr(pred_level:Toperator_precedence;accept_equal : boolean):tnode; function sub_expr(pred_level:Toperator_precedence;accept_equal : boolean):tnode;
@ -2527,7 +2527,10 @@ implementation
end. end.
{ {
$Log$ $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 * use val() for decoding integers
Revision 1.178 2005/01/04 16:38:07 peter Revision 1.178 2005/01/04 16:38:07 peter