paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-25 22:47:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

ct: find declaration array of cont TVarRec instead of TVarData

Browse Source 
git-svn-id: trunk@9358 -
This commit is contained in:
mattias 2006-05-26 15:19:59 +00:00
parent d5f0c65a98
commit a4b841a712
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/codetools/finddeclarationtool.pas
View File

@ -32,7 +32,6 @@
(i.e. at the moment: integer+integer=longint (i.e. at the moment: integer+integer=longint
wanted: integer+integer=integer) wanted: integer+integer=integer)
- caching for procs - caching for procs
- variants
- multi pass find declaration (i.e. searching with timeout) - multi pass find declaration (i.e. searching with timeout)
- Get and Set property access parameter lists - Get and Set property access parameter lists
- make @Proc context sensitive (started, but not complete) - make @Proc context sensitive (started, but not complete)
@ -5210,16 +5209,16 @@ var
// the array type is the last child node // the array type is the last child node
//debugln('ResolveEdgedBracketOpen Open/RangedArray LastChild=',ExprType.Context.Node.LastChild.DescAsString); //debugln('ResolveEdgedBracketOpen Open/RangedArray LastChild=',ExprType.Context.Node.LastChild.DescAsString);
if ExprType.Context.Node.LastChild.Desc=ctnOfConstType then begin if ExprType.Context.Node.LastChild.Desc=ctnOfConstType then begin
// 'array of const'; the array type is 'TVarData' // 'array of const'; the array type is 'TVarRec'
// => search 'TVarData' // => search 'TVarRec'
Params.Save(OldInput); Params.Save(OldInput);
Params.Flags:=[fdfSearchInParentNodes,fdfIgnoreCurContextNode, Params.Flags:=[fdfSearchInParentNodes,fdfIgnoreCurContextNode,
fdfExceptionOnNotFound] fdfExceptionOnNotFound]
+fdfGlobals*Params.Flags +fdfGlobals*Params.Flags
-[fdfTopLvlResolving]; -[fdfTopLvlResolving];
// special identifier for TVarData // special identifier for TVarRec
Params.SetIdentifier(Self,'tvardata',nil); Params.SetIdentifier(Self,'tvarrec',nil);
Params.ContextNode:=ExprType.Context.Node; Params.ContextNode:=ExprType.Context.Node;
ExprType.Context.Tool.FindIdentifierInContext(Params); ExprType.Context.Tool.FindIdentifierInContext(Params);
ExprType.Context:=Params.NewCodeTool.FindBaseTypeOfNode(Params, ExprType.Context:=Params.NewCodeTool.FindBaseTypeOfNode(Params,