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

merge r51107 #491df20f71,r51216: codetools

Browse Source 
* codetools: support static array helpers
* codetools: support helpers for array types

git-svn-id: branches/fixes_1_6@51230 -
This commit is contained in:
ondrej 2016-01-08 12:42:27 +00:00
parent 54b0d3d0d4
commit 8bd083362e
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/codetree.pas
View File

@ -197,7 +197,9 @@ const
ctnInitialization,ctnFinalization];
AllFindContextDescs = AllIdentifierDefinitions + AllCodeSections + AllClasses +
[ctnProcedure];
AllPointContexts = AllClasses+AllSourceTypes+[ctnEnumerationType,ctnInterface,ctnImplementation,ctnTypeType,ctnUseUnitNamespace,ctnUseUnitClearName];
AllPointContexts = AllClasses+AllSourceTypes+
[ctnEnumerationType,ctnInterface,ctnImplementation,ctnTypeType,
ctnUseUnitNamespace,ctnUseUnitClearName,ctnRangedArrayType,ctnOpenArrayType];
// CodeTreeNodeSubDescriptors

2
components/codetools/finddeclarationtool.pas
View File

@ -4331,7 +4331,7 @@ begin
// find class helper functions
SearchInHelpersInTheEnd := False;
if (fdfSearchInHelpers in Flags)
and (ContextNode.Desc in [ctnClass,ctnRecordType,ctnTypeType,ctnObjCClass,ctnEnumerationType])
and (ContextNode.Desc in [ctnClass,ctnRecordType,ctnTypeType,ctnObjCClass,ctnEnumerationType,ctnRangedArrayType,ctnOpenArrayType])
and (ContextNode.Parent<>nil) and (ContextNode.Parent.Desc = ctnTypeDefinition)
then begin
if (fdfSearchInHelpersInTheEnd in Flags) then