paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:59:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

compiler: fix error in overloaded_names array. "In" operator has "is" name and vice versa. Add token in comment for each overloaded_names entry to prevent similar errors in future.

Browse Source 
git-svn-id: trunk@16617 -
This commit is contained in:
paul 2010-12-23 06:44:47 +00:00
parent b6a8fb8a5b
commit 22ddd23d03
1 changed files with 27 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
compiler/symtable.pas
View File

@ -264,15 +264,33 @@ interface
procedure DoneSymtable;
const
overloaded_names : array [NOTOKEN..last_overloaded] of string[16] =
('error',
'plus','minus','star','slash','equal',
'greater','lower','greater_or_equal',
'lower_or_equal', 'not_equal',
'sym_diff','starstar',
'as','is','in','or',
'and','div','mod','not','shl','shr','xor',
'assign','enumerator');
overloaded_names : array [NOTOKEN..last_overloaded] of string[16] = (
{ NOTOKEN } 'error',
{ _PLUS } 'plus',
{ _MINUS } 'minus',
{ _STAR } 'star',
{ _SLASH } 'slash',
{ _EQ } 'equal',
{ _GT } 'greater',
{ _LT } 'lower',
{ _GTE } 'greater_or_equal',
{ _LTE } 'lower_or_equal',
{ _NE } 'not_equal',
{ _SYMDIF } 'sym_diff',
{ _STARSTAR } 'starstar',
{ _OP_AS } 'as',
{ _OP_IN } 'in',
{ _OP_IS } 'is',
{ _OP_OR } 'or',
{ _OP_AND } 'and',
{ _OP_DIV } 'div',
{ _OP_MOD } 'mod',
{ _OP_NOT } 'not',
{ _OP_SHL } 'shl',
{ _OP_SHR } 'shr',
{ _OP_XOR } 'xor',
{ _ASSIGNMENT } 'assign',
{ _OP_ENUMERATOR } 'enumerator');