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

codetools: local var completion: fixed search type of const set

Browse Source 
git-svn-id: trunk@31248 -
This commit is contained in:
mattias 2011-06-16 11:25:07 +00:00
parent ca83cd6512
commit 1fc6a30b76
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/codetools/finddeclarationtool.pas
View File

@ -9550,7 +9550,8 @@ begin
debugln(['TFindDeclarationTool.FindTermTypeAsString [name: ',ExprTypeToString(ExprType)]);
{$ENDIF}
if (ExprType.Desc=xtContext)
and (ExprType.Context.Node.Desc=ctnEnumerationType) then begin
and (ExprType.Context.Node.Desc in [ctnEnumerationType,ctnEnumIdentifier])
then begin
SetTool:=ExprType.Context.Tool;
SetNode:=SetTool.FindSetOfEnumerationType(ExprType.Context.Node);
if SetNode<>nil then begin
@ -10166,6 +10167,9 @@ var
end;
begin
{$IFDEF ShowExprEval}
debugln(['TFindDeclarationTool.FindSetOfEnumerationType ',EnumNode.DescAsString]);
{$ENDIF}
if EnumNode.Desc=ctnEnumIdentifier then EnumNode:=EnumNode.Parent;
if EnumNode.Desc=ctnEnumerationType then EnumNode:=EnumNode.Parent;
p:=@Src[EnumNode.StartPos];
@ -10230,8 +10234,7 @@ begin
if (AliasType<>nil) and (AliasType^.Node<>nil) then begin
case AliasType^.Node.Desc of
ctnTypeDefinition:
Result:=GetIdentifier(
@AliasType^.Tool.Src[AliasType^.Node.StartPos]);
Result:=GetIdentifier(@AliasType^.Tool.Src[AliasType^.Node.StartPos]);
end;
if Result<>'' then exit;
end;