paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 11:00:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: added * operator to const set terms

Browse Source 
git-svn-id: trunk@20236 -
This commit is contained in:
mattias 2009-05-26 11:00:47 +00:00
parent ba16d11eae
commit 6d68236e14
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/finddeclarationtool.pas
View File

@ -8680,10 +8680,9 @@ function TFindDeclarationTool.IsTermEdgedBracket(TermPos: TAtomPosition; out
- functions
- operators: + and -
[a,b]+[c]-A()
[a,b]+[c]-D()*inherited E
not allowed:
[]*[]
[]<>[]
}
var
@ -8707,7 +8706,8 @@ begin
begin
inc(Lvl);
if (Lvl=1) and (EdgedBracketsStartPos<1) then begin
if (LastAtoms.Count=0) or LastAtomIs(-1,'+') or LastAtomIs(-1,'-')
if (LastAtoms.Count=0)
or LastAtomIs(-1,'+') or LastAtomIs(-1,'-') or LastAtomIs(-1,'*')
then
EdgedBracketsStartPos:=CurPos.StartPos;
end;