paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 02:00:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: support identifier cache for identifiers prefixed with & (e.g. enum values).

Browse Source 
git-svn-id: trunk@50320 -
This commit is contained in:
ondrej 2015-11-12 14:58:35 +00:00
parent da9c319b92
commit 7fa343bb58
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/finddeclarationcache.pas
View File

@ -574,8 +574,10 @@ var
NewEntry: PInterfaceIdentCacheEntry;
OldNode: TAVLTreeNode;
begin
if (Identifier<>nil) and (Identifier^ = '&') then
Inc(Identifier);
if (GetIdentLen(Identifier)=0) then
RaiseCatchableException('');
raise Exception.Create('TInterfaceIdentifierCache.Add: empty identifier'); //RaiseCatchableException(''); oooooo
if FItems=nil then
FItems:=TAVLTree.Create(@CompareTInterfaceIdentCacheEntry);
OldNode:=FindAVLNode(Identifier);